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Von der Idee zum Programm 



Weiterhin: 

Komplexe Grafik 

Sie lernen die mathematischen Grundlagen von Fraktalgrafiken und erarbei¬ 
ten einen kompletten Fraktalgenerator zur Erzeugung von “Apfelmännchen“- 
Bildern. 

Der Computer lernt 

Erleben Sie ein Paradebeispiel für "Künstliche Intelligenz“: Das Programm 
“Minischach" ist lernfähig und wird mit jeder Partie ein bißchen besser. 

Wordmaster 

Sie raten ein Wort, das sich der Computer ausgedacht hat. Dann rät der 
Rechner ein Wort, das Sie sich ausgedacht haben. Wer braucht weniger 
Versuche? Sie werden sich wundern... 

Wordketten 

Mit einem raffinierten Algorithmus löst der CPC Wortketten-Rätsel. Oder er 
erfindet neue Rätsel - ganz wie Sie wollen. 

Entwicklungshilfe 

Eine gut ausgestaitete Simulation versetzt Sie in die Lage eines Entwick¬ 
lungshelfers, der eine Hungersnot abzuwenden versucht. Aber Ihre Mittel 
sind begrenzt. 


Das Software-Experiment 

• Siebzehn verschiedene, lauffähige Programme 

• 180 Seiten Anleitung 

Kassette nur DM 29, - * 

Diskette nur DM 39, - * 


Der Computer als Stratege 
Ein raffiniertes System von Spielzugbe¬ 
wertungen macht den CPC zu einem fast 
unschlagbaren Gegner im Gobang-Spiel, 
der Ihnen anfangs saftige Niederlagen 
bescheren wird. Keine Angst - das 
Programm ist zu schlagen - aber wie, das 
müssen Sie selbst herausfinden. 


Das Spiel des Lebens 
Nach natürlichen Prinzipien des 
Wachstums erzeugt der Computer 
phantastische, kristallförmige Farb- 
strukturen. Ändern Sie die Regeln und 
Voraussetzungen und sehen Sie, was 
für neue, noch nie dagewesene For¬ 
men sich ergeben. 


Das Ökologie-Experiment 

Der Computer zeigt Ihnen in animier¬ 
ter Farbgrafik einen simulierten 
Lebensraum mit Weideland, Schafen 
und Wölfen. Erforschen Sie die öko¬ 
logischen Gesetzmäßigkeiten, und 
schaffen Sie ein stabiles, natürliches 
Gleichgewicht. 


Pascal läßt grüßen 
Ein erstaunliches Programm enthüllt 
verborgene Strukturen im 
sogenannten "Pascalschen Drei¬ 
eck“. Die grafische Darstellung 
ergibt traumhaft schöne und farbige 
Musterbilder. 


Mit roher Rechengewalt 
Mit dem “Brute-Force“- 
Algorithmus darf der CPC so rich¬ 
tig loslegen und spielt mit roher 
Rechengewalt in dem afrikani¬ 
schen Strategiespiel “Kalaha" alle 
Gegner an die Wand - oder kön¬ 
nen Sie ihn trotzdem schlagen? 


für CPC 464/664/6128 


Nehmen Sie teil an dem Abenteuer 
"Computer"! In zehn lebendig und 
leicht verständlich geschilderten Reisen 
in die Welt der Computergrafik, Simula¬ 
tion und künstlichen Intelligenz erarbei¬ 
tet der Autor mit Ihnen zusammen 
insgesamt 17 interessante Programme, 
die Sie auf Diskette/Kassette erhalten. 


Das umfangreiche, 180seitige Handbuch 
vermittelt Ihnen auf anschauliche und 
unterhaltsame Weise, wie aus Algorith¬ 
men Datenstrukturen und letztendlich 
Software entsteht: Von der Idee zum 
Programm - der ideale Kursus zum 
Einstieg in das Computerwissen, für 
Hobby und Schulunterricht. Sehen Sie 
selbst, zu welchen phantastischen 
Grafiken und verblüffenden Intelligenz¬ 
leistungen der CPC bei raffinierter 
Programmierung fähig ist! 
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Software satt! 


So lautete die Meinung der Redaktion PCAMSTRAD nach Fertigstellung des 
neuen CPC-Sonderheftes, welches nun vor Ihnen liegt. Endlich vor Ihnen 
liegt, sollte es wohl besser heißen, denn seit dem letzten Sonderheft ist ei¬ 
nige Zeit ins Land gegangen. Zeit, die wir jedoch genutzt haben, um Ihnen 
wieder eine Fülle an Grundlagen und Programmen zusammenzutragen, die 
über das normale Maß der PC AMSTRAD International hinausgehen. 

Und so finden Sie wieder einiges an Futter’für Ihren CPC, unter anderem 
ein tolles Berechnungsprogramm für Satelliten, deren Bahnen grafisch dar¬ 
gestellt werden, ein Lernprogramm, welches Ihnen die Berechnung von li¬ 
nearen Gleichungen erleichtert, ein anderes Mathematikprogramm, das statt 
Ergebnissen lieber Apfelmännchen auf den Bildschirm zaubert, sowie Spiele, 
die Ihnen spannende Unterhaltung am Bildschirm versprechen; ein Um¬ 
stand, der gerade jetzt die Herbst- und Winterabende verschönern kann. 

Aber auch Grundlagen über die Datenfernübertragung und CP/M, das 
zweite’ Betriebssystem des CPC, sowie eine Menge an Tips und Tricks war¬ 
ten darauf, Ihnen beim Arbeiten mit dem Computer hilfreich zur Seite zu 
stehen. 

Uns bleibt daher nur noch, Ihnen viel Vergnügen bei der Lektüre des Son¬ 
derheftes und beim Benutzen der Programme zu wünschen. 


Herzlichst Ihr 


Jürgen Bomgießer 
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In die wunderbare Welt der Mathematik entfiihrl Sie unser Fraktal-Genera- 
tor. Finden Sie Apfelmännchen und andere sonderbare Figuren 

S.30 



SÄT berechnet Ihnen die Umlaufbahn und den Einstrahlbereich eines belie¬ 
bigen Satelliten und gibt diese Berechnungen grafisch wieder 

S.58 



So ein Händler, der hat 's schwer — vor allem, wenn er im Hanse-Zeitalter auf 
Reisen geht. Gehen Sie mit, wenn Sie GOLDDUKATEN und SCHIFFS¬ 
KANONEN gerne haben 

S. 71 
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Nicht nur für Sammler 6 

Wissen Sie, was eine Compilation ist? Dies ist eine Sammlung 
von CPC-Spielen auf einer Diskette. Die bis jetzt erhältlichen 
haben wir für Sie unter die Lupe genommen. 

DFÜ - Ihr Anschluß an die Zukunft 12 

Download, Upload, Mailboxen - Begriffe der Datenfernüber¬ 
tragung, die für Sie nach Lektüre unseres Berichtes keine 
Fremdworte mehr sein werden. 


Anwendungen: 


Timer — Die Weltzeit im CPC 22 

Wieviel Uhr ist es in New York, wenn es in Peking 3 Uhr 30 
ist? Solche Fragen lassen sich mit diesem Programm schnell 
beantworten. 

LIGL 27 

Ein einfaches Wort für gar nicht einfache mathematische Re¬ 
chenaufgaben. Wie man Lineare GLeichungen mit dem Com¬ 
puter löst, erfahren Sie hier. 

Wunderbare Welt der Mathematik 30 

Daß die Mathematik nicht unbedingt 'staubtrocken’ sein muß, 
zeigt Ihnen dieser Fraktal-Generator. 

Bestellen mit Freu(n)den 36 

Viele Versandhäuser bieten inzwischen alles an, was der 
Mensch (eigentlich nie) braucht. Mit diesem Programm kön¬ 
nen Sie Bestellungen für sich selbst und Ihre Freunde verein¬ 
fachen. 

Windows? Null Problemo 42 

Der CPC kann Windows verwalten, das ist bekannt. Jedoch hat 
nicht jeder das Talent, gleich auf Anhieb diese Windows zu er¬ 
stellen. Eine komfortable Hilfe dazu finden Sie in diesem Pro¬ 
gramm. 

Durch den Datendschungel 49 

Assembler-Programmierer stehen meistens vor dem Problem, 
vor lauter CALLs und RETs den JMP nicht mehr zu finden. 

Wie dieser Misere abzuhelfen ist, zeigt Ihnen SOLVE — der 
’ Speicherdurchforster'. 

MICRO PA INT 53 

Die erweiterte Version des Zeichenprogramms DRAW. Die er¬ 
stellten Bilder sind jetzt auch für Artworx (PC International, 
Ausgabe 11/88) nutzbar. 

Blick zu den Sternen 58 

Ein Leckerbissen für alle Satellitenfans. Ob Tele-, 


Kommunikations- oder astronomische Satelliten, mit SAT läßt 
sich jede Umlaufbahn und jeder Abstrahlbereich berechnen 
und grafisch darstellen. 


Spiele: 


Soweit die Reaktion reicht 66 

Seit dem Film ’TRON’ kennt wohl jeder dieses schnelle Reak¬ 
tionsspiel. Unser neues Tron verlangt Ihnen einiges an Reak¬ 
tionen ab. 

Unter den Sternen 70 

Ein Reaktionsspiel für schnelle Leute. Holen Sie sich die Sterne 
vom Himmel, aber passen Sie auf, daß Sie nicht ins Bodenlo¬ 
se fallen... 

Golddukaten und Schiffskanonen 71 

Heutzutage Geschäftsmann zu sein, bedeutet eigentlich mehr 
Streß als Abenteuer. Im Mittelalter war es jedoch ganz anders. 

Hier war Handel verknüpft mit langen Seereisen und Abenteu¬ 
ern. Lernen Sie den Handel zu Hansezeiten kennen... 

Ran an die Kisten 85 

Das hat man davon - etliche Kisten versperren den Weg im 
Neubau, und Sie müssen sie beiseite räumen, und dies so ge¬ 
schickt wie möglich. Das artet in Arbeit aus. Trotzdem — LETs 
WORK! 
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Hier kocht der Chef — hoffentlich genug von allem, denn 
wenn die Gäste nicht rechtzeitig bedient werden, gibt es Arger. 
Und den sollten Sie bei unserem Spiel möglichst vermeiden. 

95 

Der Zeitwürfel 

Professor Rubik aus Ungarn ist bekannt für seine nervenaufrei¬ 
benden Knobelspiele wie den Würfel. Sein letztes Projekt, ge¬ 
nannt “Rubiks Clock“, finden Sie hier als CPC-Simulation. 

103 

Mein CPC ist voll!!! 

'EIMERKETTE’ heißt unser kleines Denkspiel, welches Ihre 
Reaktion und Ihr Denkvermögen fordert. 

104 

Tips und THcks: 

Fast wie im Fernsehen 

Alternativer Bildschirmaufbau mit Screenflutsch 

21 


Betriebssystem-Calls 

Ein Muß für Assembler-Programmierer und solche, die es wer¬ 
den sollen: Lernen Sie die Möglichkeiten des CPC-Betriebs¬ 
systems kennen. 



Verflixte Kiste! Ist schon schlimm, wenn alles im Weg steht, aber wenn man 
dann noch wenig Platz zum Umräumen hat, wird es gar knifflig. Zumindest 
bei LETS WORK 

S.8S 


Wer suchet, der findet 

Suchen und Ersetzen ist eine Funktion, die beim Arbeiten mit 
ASCII-Dateien das Leben erleichtern kann. 

2000 plus ROM gleich 3000 

Wie schnell aus einem DMP-2000-Drucker ein DMP 3000 
werden kann, zeigt Ihnen unsere kurze Beschreibung vom Aus¬ 
tausch eines ROM-Bausteins. 
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Kurze, knackige Programme von einem kByte Länge. Schnell 
abgetippt, schnell ausprobiert. 
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Der Bankmanager des CPC 6128 unterstützt die zweite RAM- 
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Sie diese Eigenschaft für sich selber einsetzen. Hier soll Ihnen 
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Nirwana. Was hilft da? Ein Einzelschritt-Simulator, der jeden 
Befehl nacheinander abarbeitet. 


Wir wissen nicht, 
was Ihr Hausarzt 
bei eingerosteten 
Knochen em¬ 
pfiehlt — wir em¬ 
pfehlen auf jeden 
Fall die Joystick- 
Matte im Ei¬ 
genbau 

S. 132 



CPC-Listingservice 
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Das CPC-Fitneß-Center 

Das Dauersitzen vor dem Computer ist auch nicht das Wahre. 
Also auf zum Fitneß-Training. Womit? Mit unserer Selbstbau- 
Joystickmatte und dem entsprechenden Fitneßprogramm. Also 
auf, denn wer rastet, der... 


Grundlagen: 


CP/M Intern 

Das 'zweite’ Betriebssystem Ihres CPC. Welche Möglichkei¬ 
ten in diesem System stecken und wie sie sich nutzen lassen, 
zeigt Ihnen dieser Grundlagenartikel. 


Rubriken: 

Editorial 

Impressum 


S. 142 



Das Betriebssystem CP/M ist vielen CPC-Benutzern immer noch unheimlich 
und unbekannt. Daß CP/M jedoch einiges zu bieten hat, zeigt Ihnen unser 
Grundlagenartikel 
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Bericht 


Nicht nur für Sammler 

Softwaresammler, was bieten die? 

Immer wieder hört und liest man über Compilationen von älteren Spielen. 
Mehrere Programme werden zusammen auf einen Datenträger gebracht 
und zu außerordentlich günstigen Preisen angeboten. Was ist dran an diesen 
Sammlern? Viel gute Software für wenig Geld oder alte Hüte, neu aufgelegt? 


Wissen Sie was eine Ld ist? Nun, die 
Antwort ist ganz einfach, wenn Sie sich 
die Ld von der LP her ableiten. Eine LP 
ist eine Langspielplatte, und somit muß 
eine Ld (logischerweise) eine Langspiel¬ 
diskette sein, auf der, ähnlich wie bei ei¬ 
ner LP, mehrere verschiedene Titel, in 
dem Fall Programme, enthalten sind. Im 
allgemeinen werden diese natürliche?) 
nicht Lds genannt, sondern Compila- 
tions. 

Nun gibt es auch schon ziemlich viele 
dieser Compilations für die CPCs, und 
genau hier setzt dieser Bericht an. Er soll 
eine (kleine) Übersicht über die am 
Markt befindlichen Compilations brin¬ 
gen. Daß man nicht alle Compilations 
aufführen oder erwähnen kann, ist klar, 
da es sich schon um zu viele handelt. 
Aber die besten unter ihnen haben wir für 
Sie ausgesucht und ein wenig genauer un¬ 
ter die Lupe genommen. 

Daß man bei so vielen “Programm¬ 
sammlern“ auch nicht jedes Programm 
einem ausführlichen Testbericht unter¬ 
ziehen kann, dürfte ebenfalls verständlich 
sein. Da die meisten Programme auch 
schon früher einmal in der PC Internatio¬ 
nal getestet wurden, ist dies auch nicht 
notwendig, da man sich dadurch infor¬ 
mieren kann; dennoch haben wir einige 
der Höhepunkte nochmal ganz kurz er¬ 
wähnt. Als erstes jedoch muß ich Sie 
noch auf die nachfolgenden Tabellen hin- 
weisen. Dort stellen wir Ihnen eine Aus¬ 
wahl von Compilations mit ihrem Na¬ 


men, dem Inhalt und der Preis/Lei¬ 
stungs-Note, die Sie ja auch aus den ge¬ 
wohnten Software Reviews her kennen, 
vor. 

Supreme Challenge 

Aber nun geht’s los, und zwar gleich mit 
der, nach meiner Meinung, besten Com¬ 
pilation dieses Berichts - mit Supreme 
Challenge. Diese Compilation enthält 
zwar “nur“ fünf Programme, von denen 
aber zumindest vier Stück bereits Ever¬ 
greens sind. Das beste Programm dieser 
Ld (Sie erinnern sich?) stellt wohl ELI¬ 
TE dar, die unvergleichliche Weltraum¬ 
und Handelssimulation, die vor ein paar 
Jahren die größten Schlagzeilen machte 
und auch heute noch ganz oben bei den 
Spitzenprogrammen steht. Sie müssen als 
Weltraumhändler so lange Handel mit 
unzähligen Planeten betreiben, bis sie in 
die Handelselite aufgenommen werden. 
Ein Superspiel, das einen immer wieder 
für Stunden vor den Bildschirm fesselt. 
Das nächste Programm ist Starglider, ein 
noch nicht einmal so altes Programm, 
ebenfalls ein Superhit. Ein voll ausgestyl¬ 
tes Ballerspiel der Extraklasse. Sie flie¬ 
gen über eine in Vektorgrafik gehaltene 
Planetenoberfläche und müssen alles ab¬ 
schießen, was Ihnen in den Weg kommt. 
The Sentinel und Tetris waren zwar kei¬ 
ne so großen Hits wie die beiden vorher 
genannten Spiele, aber auch sie standen 
ganz oben in der Software-Hitparade. Bei 



Ballblazer, ein Sport¬ 
spiel aus ferner Zu¬ 
kunft. Es gilt, einen 
Energieball in das 
gegnerische Tor zu 
befördern. Dieses 
Spiel finden Sie auf 
der Prestige Collec¬ 
tion 


Tetris handelt es sich um ein Denkspiel, 
bei dem Sie von oben anfliegende Puz¬ 
zleteile so ausrichten müssen, daß am 
Ende der ganze Bildschirm voll ist. In 
The Sentinel erwarten Sie 10000 Welten, 
die Sie von Robotern befreien müssen. 
Dabei geht es nicht ums Ballern, sondern 
ums Denken, denn Sie müssen es schaf¬ 
fen, überden Robotern zu stehen, um sie 
zu besiegen. Bei 10000 Welten eine echte 
Herausforderung. Das letzte Programm 
dieser Compilation (und nicht nur dieser 
Compilation) ist ACEII. Ein Kampfflug¬ 
simulator, der es aber nicht unbedingt 
wert ist, auf so einer Spitzen-Ld mit auf¬ 
genommen zu werden. Alles in allem ist 
diese Compilation aber wirklich eine der 
besten, wenn nicht sogar die beste, die es 
zur Zeit auf dem Softwaremarkt gibt. 

Ausflihrlicher Test in PC Amslrad International Heft 1/89 

Prestige Collection 

Auch diese Compilation zählt, wie die 
vorhergehende, zur Spitzenklasse der an¬ 
gebotenen Compilations. Auf dieser 
Sammlung sind zwar ’nur’ vier Spiele 
enthalten, aber jedes davon kann mit Fug 
und Recht als Kleinod bezeichnet 
werden. 

The Eidolon ist ein Spiel, bei dem Sie ein 
unerforschtes Höhlensystem erkunden 
müssen. Daß diese Grotten mit allerlei 
Getier bevölkert sind, braucht wohl nicht 
extra erwähnt zu werden. 

Ballblazer ist das Sportspiel einer fernen 
Zukunft. Sie müssen versuchen, mittels 
eines fahrzeugartigen Schlägers einen 
Energieball in das gegnerische Tor zu be¬ 
fördern. 

Rescue on Fractalus. Als Pilot eines Ret¬ 
tungsgleiters müssen Sie havarierte Pilo¬ 
ten von der Oberfläche des Planeten 
Fractalus retten. 

Koronis Rift. Als intergalaktischer 
Schrotthändler haben Sie den Planeten 
einer lange untergegangenen Kultur ent¬ 
deckt. Nun gilt es, alle Wertsachen von 
der Planetenoberfläche zu bergen. 

Vier Progamme bester Qualität zum Preis 
eines einzelnen Spieles, hier heißt es zu¬ 
greifen, solange der Vorrat reicht. 

Ausführlicher Test in PC Amstrad International Heft 9/89 

Space Ace 

Eine insbesondere für Freunde gepfleg¬ 
ter Balleraction empfehlenswerte Samm¬ 
lung. 

Enthaltene Titel wie North Star, Cyber- 
noid und Exolon präsentieren Action und 
Ballerspaß gehobener Qualität. Grafisch 
sind alle enthaltenen Titel ein Augen¬ 
schmaus, die auch in puncto Animation 
zu dem besten gehören, was es auf dem 
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— Das ist die Software zum CRC Sonderheft 8/89 — 



Sprungmatte mit 
Joystickanschluß 


DATABOX: 

- mehr als der übliche Software¬ 
service 

- bringt alle Programme des 
Sonderheftes auf Kassette oder 
3-Zoll-Diskette. 

- Fast alle Programme sind durch 
den auf dem Datenträger enthal¬ 
tenen CPC-Emulator auf allen 
drei CPC-Rechnern lauffähig. 

- trägt das Titelbild des gleich¬ 
zeitig erscheinenden Sonder¬ 
heftes. 

- Über 400 kByte Software für 
Ihren CPC! 


Einzelbezugspreise für DATABOX: 

je Diskette 3“ 24,-DM 

Kombi-Pack {3-Zoil-Diskette 1 + 2) nur 38,- DM 
je Kassette 14,-DM 

Kömbi-Pack (Kassette 1 + 2) nur 25,- DM 

■ Unabhängig von der Anzahl der bestellten 
Artikel berechnen wir für das Inland 4,- DM bzw. 
für das Ausland 6,— DM Porto und Verpackung. 


Let's work 

- Super Strateglesplel 
Hanseat 

- Handel Im Mittelalter 


Tips & Tricks: 


System-Calls 
Aufrüstung des DMP 2000 
Elrucelschrittslmulntor 


Hardware: 


Grundlagen: 


Datenfernübertragung 
- Das Tor zur Welt 


A nwend ungen: 






Weltzeituhr Im PC 
Satellitenbahnen berechnen 
Fraktalgenerator zum Abtippen 


Für alle CPCs als Kassette und 3-Zoll- 
Oiskette 

Inhalt der Databox zu Sonderheft 8/89 


Diskette/Kassette 1: 

Timer - Die Weltzeit im 
CPC 

Windows? Null Problemo 
Ran an die Kisten 
La Cuisine 

Fast wie im Fernsehen 

• Prozessor-Lupe 
Fitneß-Center 

BONUSPROGRAMM 1: 

Fight 

Diskette/Kassette 2 

Blick zu den Sternen 
o Durch den Daten¬ 
dschungel 
Unter den Sternen 
Der Zeitwürfel 
Wer suchet, der findet 

• Emulator 

x Checksummer 664 
BONUSPROGRAMM 1: 
Offiziersskat 


Ligl 

Wunderbare Welt der 
Mathematik 
Soweit die Reaktion 
reicht (Emu) 

D Neues vom Bank¬ 
manager 
• Emulator 

BONUSPROGRAMM 2: 
Kanonen-Duell 


Bestellen mit Freu(n)den 
Micro-Paint 

Golddukaten und Schiffs 
kanonen 
Mein CPC ist voll 
Alle 1-kByte-Programme 
• Checksummer 464 
□ Checksummer 6128 
BONUSPROGRAMM 2: 
Crown-Convoy 


• Nur für 464 
□ Nur für 6128 


x Nur für 664 

O 464/664 mit Speichererweiterung 


Jede Databox ent¬ 
hält zwei Bonuspro¬ 
gramme, die nicht 
im Hefterscheinen. 


Diskette 1: 

Fight: Ein Action-Spiel im Weltraum 
Kanonen-Duell: Ein Taktikspiel für zwei Personen 


Diskette 2: 

Offiziersskat: Ein Kartenspiel für ein oder zwei Per¬ 
sonen 

Crown-Convoy: Entkommen Sie dem Höhlensystem 
mit einem Ball 


Coupon ausschneiden, auf eine Postkarte kleben oder per Brief senden an /[I 1 !#' 

/ / /Daten- v 

DMV-Verlag, Postfach 250, 3440 Eschwege 
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Absender: (Bittegenaue Anschritt angeben) 


Name 


Vorname 


Str./Nr. 
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Bericht 



Rasante Vectorgrafik und ein gutes Spielkonzept heben Mercenary weit über 
den Durchschnitt vergleichbarer Spiele. Dieses Spiel finden Sie auf der Com¬ 
mand Performance Sammlung 
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Bruce Lee verbindet Jump and Run mit Elementen aus Karatespielen. Dieses 
Spiel ist in der Sammlung Karate Ace enthalten 


CPC zu sehen gibt. Leider sind einige Ti¬ 
tel dieser Compilation auf dem Index. 

20 Chart Busters 

Eine einmalige Super-Compilation, die 
zwar zum Teil auch Billigproduktionen 
enthält, aber alles in allem hält, was sie 
verspricht. 

Hier finden sich Titel wie Ghostbusters, 
Tau Ceti und The Way of the Exploding 
Fist, um nur einige der auf dieser Super 
Compilation enthaltenen Spiele zu nen¬ 
nen. Vom Preis-Leistungs-Verhältnis her 
ein echter Hit. 

The History of Making - 

The first three Years 

Eine etwas andere Ld ist sie schon, denn 
hier findet man nicht nur elf Programme 
(+ vier indizierte), sondern man erhält 
die Geschichte eines Softwarehauses, 
nämlich die von U.S. Gold. Hier finden 
sich so bedeutende Hits wie das Golfspiel 
Leaderboard oder das Labyrinth- und 
Ballerspiel Gauntlet, bei dem Sie “Tau¬ 
sende“ von Feinden abschießen und 
durch Hunderte von Level s wandern 
müssen. Auch die Automatenumsetzung 
Kung Fu Master, in dem Sie sich durch 
fünf Stockwerke gegen Messerwerfer, 
Zwerge und Drachen behaupten müssen, 
um Ihre geliebte Freundin zu befreien; 
oder die World Games, bei denen Sie ge¬ 
meinsam mit Ihren Freunden z.B. um die 
Weltmeisterschaft im Baumstammwer¬ 
fen, Fässerspringen oder Klippensprin¬ 
gen kämpfen müssen, sind enthalten. 

Ausführlicher Test in PC Amstrad International Heft 2/89 

Command Performance 

Weitere sieben Programme befinden sich 
auf Command Performance, wobei es 
sich auch hier wieder um recht gute Pro¬ 


gramme handelt. Da wäre zunächst der 
Klassiker Mercenary, bei dem sie auf ei¬ 
nem Planeten - mit wunderschöner Vek¬ 
torgrafik — gestrandet sind und nun ver¬ 
suchen müssen, durch das Auffinden von 
diversen Ersatzteilen, diesen wieder zu 
verlassen. Als nächstes ist da noch Xeno, 
das, wie Ballblazer (siehe oben), ein 
Sportspiel der Zukunft darstellt. Zwei 
Spieler versuchen wieder mit Hilfe von 
zwei schlägerähnlichen Gebilden, einen 
Ball ins gegnerische Tor zu bringen. 
Auch dieses Spiel bereitet viel Spaß, der 
aber nach einer gewissen Zeit schon stark 
abnimmt. Nicht ganz so gut wie andere 
hier vorgestellten Lds, aber dennoch 
empfehlenswert. 

Ausßhrlicher Test in PC Amstrad International Heft 4/89 

Star Games El 

Eine schon etwas ältere, aber dennoch in¬ 
teressante Ld stellt Star Games II dar. Mit 
The Eidolon, Ballblazer (siehe oben) und 
Highway Encounter, einem grafisch und 
animationstechnisch voll ausgereiften 
Ballerspiel, bei dem Sie mit fünf Robo¬ 
tern einen riesigen Highway von Aliens 
befreien müssen, haben sich auch auf 
dieser Compilation einige gute Spiele 
versammelt. Trotz ihres Alters kann auch 
diese Compilation als interessant be¬ 
zeichnet werden. 

Five Star III 

Ebenfalls älteren Semesters ist Five Star 
III. Eine Compilation, die ihren Namen 
nicht wegen der Anzahl der enthaltenen 
Programme trägt, der Name soll Hinweis 
auf die Qualität der Spiele sein. Und dies 
nicht zu unrecht. 

Die Palette der enthaltenen Programme 
reicht von Tau Ceti über The Way of the 
Exploding Fist bis zu Firelord, das si¬ 
cherlich eines der echten Highlights die¬ 


ser Compilation ist. In der Rolle des Sir 
Galaheart müssen Sie ein legendäres 
Land von einer terrorsüchtigen Herrsche¬ 
rin befreien. In 512 Schauplätzen gilt es, 
jeder Menge Gefahren zu begegnen. 
Ebenfalls enthalten ist Aliens, das Spiel 
zum Film. Hier gilt es, mit einer Crew 
aus beinharten Space Marines einen fer¬ 
nen Planeten von üblen Monstern zu be¬ 
freien. 

Hier finden sich ausschließlich Spiele, 
die einstmals Spitzenplätze in diversen 
Softwarehitparaden belegten. Auch die¬ 
se Compilation ist empfehlenswert. 

Karate Ace 

Sieben der besten Karate/Kung-Fu-Spiele 
auf einem Datenträger. Vom Standard¬ 
programm des Genres "The Way of the 
Exploding Fist’, das auch auf dieser 
Sammlung enthalten ist, einmal abgese¬ 
hen, bekommt der Compilation-Freund 
alles geboten, was CPC-Software an ge¬ 
pflegter Prügelaction aufbieten kann. 
Das beste Programm des Sammlers ist 
zweifelsohne ’The Way of the Tiger’. Die¬ 
ses Programm ist seiner Grafik, seiner 
Animation und seines Scrollings wegen 
- hier scrollt der CPC vertikal drei un¬ 
terschiedliche Ebenen — ein Super-Hit 
geworden. 

Auch die Fortsetzung Avenger’ ist enthal¬ 
ten, obwohl es sich hier weniger um ein 
Karatespiel, denn um einen Gauntlet- 
Clon handelt. 

Alles in allem eine Sammlung, die viel 
Spiel fürs Geld bietet. 

Game, Set and Match II 

Der Nachfolger des Sporthits Game, Set 
and Match ist noch um Längen besser als 
der alte selbst, deshalb habe ich ihn auch 
nicht vorgestellt. Wer kennt nicht Match- 
day II, den Fußballhit für die Amstrads 
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Bericht 



lhe Wayoftlie Tiger ist grafisch, spiel- und programmtechnisch einer der ab¬ 
soluten Höhepunkte der Karatespiele. Dieses Spiel ist in der Sammlung Ka¬ 
rate Ace enthalten 



Wilde Weltraumaction. Extrawaffen, Lex’elwächter und Unmassen von Fein¬ 
den machen aus Zvnaps eine echte Herausforderung. Sie finden Zynaps auf 
der Space Ace Compilation 


überhaupt? Da kann man aber wirklich 
alles verstellen. Man kann die Gegner 
foulen, den Ball köpfen und die Stärke 
des Gegners bestimmen. Das einzige, 
was mir nicht gefiel, war die Geschwin¬ 
digkeit, die zwar recht schnell ist, aber 
doch noch ein bißchen schneller hätte ge¬ 
macht werden müssen. Aber sonst, das 
Scrolling ist fließend, und die Figuren 
recht hübsch. 

Auch die Motorsport-Fans kommen hier 
auf ihre Kosten, denn mit Championship 
Sprint und Super Hang on sind hier 
gleich zwei gute Motorsportsimulationen 
zusammen. Bei Championship Sprint, 
dem Nachfolger von Super Sprint, kann 
man sogar seine eigenen Rennstrecken 
zusammenbasteln. Man sieht die Renn¬ 
strecke von oben und muß seinen Wagen 
als erstes ins Ziel bringen. Nicht 
schlecht! 

Auch Super Hang on, ein Motorradren¬ 
nen. ist nicht von schlechten Eltern, denn 
es gehört schon einiges dazu, die in schö¬ 
ner Grafik gehaltenen Rennstrecken zu 
schaffen. Aber hier kommt wirklich kein 


Sportfreak schlecht weg, denn es sind für 
so ziemlich jeden genug Sportspiele da¬ 
bei. Mit zehn Programmen gehört sie zu¬ 
mindest von der Quantität her zu den 
obersten, aber auch die Qualität ist nicht 
zu verachten. 

Leaderboard Par 3 

Was soll man dazu noch sagen? Es sind 
drei Leaderboardspiele auf einem Pack, 
und daß Leaderboard zu den besten Golf¬ 
simulationen gehört, braucht, glaube ich, 
nicht extra erwähnt zu werden; und es ist 
schön, sich mal gemütlich vom Sessel 
aus durch die Landschaft zu “schlagen“. 
Von der Schlägerauswahl bis zum Be¬ 
rechnen des Windes müssen Sie hier auf 
alles aulpassen. Golffreunde, holt’s 
Euch! 

Flight Ace 

Die letzte hier vorgestellte Ld ist für alle 
Freunde von Flugsimulatoren gedacht, 
die auch gerne mal etwas ballern. Hier 


sind solche Spitzenspiele wie Advanced 
Tactical Fighter, Tomahawk oder der gu¬ 
ten, alten Spitfire 40 zu einer für Flugsi¬ 
mulatorfreunde interessanten Compila¬ 
tion zusammengestellt. 

1. ) SupremeChallenge Titel: Elite, Star¬ 
glider, Tetris, The Sentinel und ACE II 
Note: 1 

2. ) Prestige Collection Titel: The Eido- 
lon, Ballblazer, Koronis Rift und Rescue 
on Fractalus 

Note: 1 

3. ) Space Ace Titel: North Star, Trantor, 
Cybemoid, Exolon, Zynaps, Vcnom 
Strikes Back und Xevious 

Note: 1 

4. ) 20 Chart Busters Titel: Ghostbusters, 
Fa Cup Football, Agent X II, Tau Ceti, 
Kane, The way of the exploding Fist, Ri- 
cochet, Ninja Hamster, Rasputin, Ollie 
and Lisa, Zolyx, Dan Dare, Formula 
One Sim., Brian Jack’s Superstar Chal¬ 
lenge, I-Ball, Park Patrol, Thrust, Har- 
vey Headlanger, War Cars und ein indi¬ 
ziertes Spiel 

Note: 1 



Das russische Geschicklichkeitsspiel begeistert Computerspieler in aller Welt. 
Ein Highlight, das auf dem Sammler Supreme Challenge enthalten ist 



mmmmmmum 
Tflü" er t i'TiT 

FORUfiftO 

co mp ft ss nac 


0G; ßij>- 25 

REEMfi 

LftüNCHEO 


TR RG ETTING 


TRACKING 


INR: 0 MIS:5 RMM :9 fLR:; 
GfiL-CORP SKIMMER. GCS-50: 


Auf Tau Ceti ist die Hölle los. Nach einer großen Katastrophe gilt es, alle Re¬ 
aktoren eines fernen, ehemals besiedelten Planeten wieder in Betrieb zu neh¬ 
men. Sie finden Tau Ceti auf der Sammlung 20 Chart Busters 
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Bericht 



Wer Labyrinthspiele mag, liegt bei Firelord genau richtig. Im magischen Mit¬ 
telalter angesiedelt, gilt es, einer terrorsüchtigen Königin das Handwerk zu 
legen. Interessiert? Sie finden das Spiel auf der Sammlung Five Star III 



Schreckliche Monster aus der Tiefe des Weltraums haben eine Kolonie über¬ 
fallen. Sie sollen dort nun für Ordnung sorgen. Dieses Spiel finden Sie in der 
Five-Star-UI-Sammlung. 


5. ) The History of Making Titel: Leader 
Board, Impossible Mission, Super Cycle, 
Gauntlet, Infiltrator, Kung Fu Master, 
Spy Hunter, Road Runner, Bruce Lee, 
Goonies, World Games und 4 indizierte 
Programme 

Note: 2 

6 . ) Command Performance Titel: Merce- 
nary, Xeno, Hardball, Cholo, Bobsleigh, 
lOth Frame und Leviathan 

Note: 4 

7. ) Star Games II Titel: Highway Encoun¬ 
ter, Knight Games, Ballblazer, Avenger, 
Trailblazer und The Eidolon 

Note: 3 

8 . ) Five Star ÜI Titel: The way of the ex- 
ploding Fist, Tau Ceti, Firelord, Aliens, 
Tempest, Trap Door und Strike Force 
Harrier 

Note: 2 

9. ) Karate Ace Titel: The way of the Ti¬ 
ger, Avenger, The way of the exploding 
Fist, Kung Fu Master, Samurai Triology, 
Uchi Mata und Bruce Lee 

Note: 2 

10. ) Game, Set and Match II Titel: 


Matchday II, Track and Field, Basketma- 
ster, Steve Davies Snooker, Winter Olym- 
piad, Nick Faldo plays the open, 
Championship Sprint, Super Hang on. 
Superbowl und Test Match 
Note: 2 

11.) Lcaderboard Par 3 Titel: Leader¬ 
board, Leaderboard Tournament, World 
Class 
Note: 2 

So, das waren die “ Haupt-Lds“, aber es 
gibt noch einige andere, die vielleicht 
auch nicht so ganz unerwähnt bleiben 
sollten. Da wäre als erstes mal Gold, Sil- 
ver, Bronze (s. PC Heft 12/88), mit Sum¬ 
mergames I + II und den Wintergames; 
dann gibt es noch Solid Gold mit den 
Programmen: Gauntlet, Ace of Aces, 
Leaderboard, Infiltrator und den Winter- 
games; die Giants mit California Games, 
Gauntlet II, Out Run, Rolling Thunder 
und 720Grad sind auch nicht schlecht; 
dann noch Game, Set and Match mit Ping 
Pong, Barry McGuigans World Cham¬ 
pionship Boxing, Daley Thompson’s Su- 
pertest, Squash, Konami’s Tennis und 


Snooker, Hypersports, World Series Ba¬ 
seball, Basketball und Super Soccer und 
Ten Mega Games beinhaltet die 
“Mega“Spiele: North Star, Cybernoid, 
Deflector, Trailblazer, Bloodbrother, 
Mask II, Tour de Force, Hercules, Ma¬ 
sters of the Universe und Blood Valley. 
Als nächstes käme da noch die Arcarde 
Force Four, auf der Sie Road Runner, 
Metrocross, Gauntlet und Indiana Jones 
wiederfinden, Epics Epyx enthält die 
Spiele Worldgames, Supercycle, Impos¬ 
sible Mission und Wintergames. Als al¬ 
lerletztes kommen noch die Top Ten, die 
allerdings nicht so top sind, Saboteur 
I+H, Critical Mass, Airwolf, Sygma ÜI, 
Deep Strike, Combat Lynx, Turbo 
Esprit, Thanatos und Bombjack II. Das 
war’s jetzt aber endgültig. Wir hoffen, 
daß dieser kleine Bericht Ihnen ein biß¬ 
chen hilft bei der Auswahl Ihrer nächsten 
Compilation. Doch schauen Sie erst noch 
einmal nach, denn es kommen dauernd 
neue und zum Teil auch noch bessere 
Compilations auf den Markt. 

(Markus A. Litters/hs/cd) 



Ein Oldtimer, der nach wie vor für viel Spielspaß sorgt. Wohl eines der ersten 
Karatespiele überhaupt. The Way ofthe exploding Fist finden Sie auf der Ka- 
rate-Ace-Sammlung 
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Boxweltmeisterschaft mit dem irischen Meister Barry McGuigan. Da kommen 
Sportspielfans auf ihre Kosten. Dieses Spiel ist in der 'Game, Set and Match ’ 
Sammlung enthalten 
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-SPIELE 

zu unglaublichen Preisen 


CYRUS II Schach 

Das bewährte Schachprogramm mit 3D-Display, 
einstellbarer Spielstärke und deutscher 
Bedienungsanleitung 

Für alle CPCs 

Kassette jetzt nur 10,- DM* 

Best.-Nr. 130 


STARTEST 

Action-Adventure für alle CPCs 

Kassette jetzt nur 10,- DM* 

Best.-Nr. 103 1 ’ 

Diskette jetzt nur 19,- DM* 

Best.-Nr. 104 * ’ 


Fantastic Four 

Vier Superprogramme zum kleinen Preis: 

COCKAIGNE - Weltraum-Actionsspiel 

TERRANAUTI - Science-Fiction- 
Adventure 

FRUITS - Geschicklichkeitsspiel 
TERRANAUT II - Textadventure 


3D-Light Cycle: 

Das allseits bekannte und beliebte 
TRON-Spiel für zwei Personen jetzt 
wie im Film!! Erleben Sie dieses 
spannende und abwechslungs¬ 
reiche Actionspiel jetzt in einer 
neuen Dimension. Verblüffende und 
noch nie dagewesene 3D-Effekte 
sowie professioneller Sound lassen 
Sie in eine völlig andere CPC-Welt 
versinken. Diesen Super-Hit muß 
man ’live’ gesehen haben. 

3D-Labyrinth: 

Das beste Labyrinthspiel jetzt in Super-3D-Qualität. Auf der Suche nach 
Hinweisen zum Passwort, das den mächtigen Zentralcomputer lahmlegen kann, 
lauern tausend Gefahren auf Sie. Die räumliche, perfekte 3D-Darstellung, 
superschneller Grafikaufbau und viele Überraschungen garantieren eine 
völlig neue Art von Spielvergnügen. 



Voraussetzungen: 

CPC 464/664/6128 mit Farbmonitor. Das 

Spiel 3D-Light Cycle kann ohne 3D- 

Brille auch auf Grünmonitor gespielt Best.-Nr. 1369 

werden, Darstellung dann in 2D. Diskette jetzt nur 


39,- DM 


GAMF BOX 3 


Für alle CPCs 

Diskette jetzt nur 29,- DM* 

Ravt .Mr inil ' 


CPC Power-Spiele-Paket 

18 tolle Spiele für alle CPCs 

4 Disketten jetzt nur 49,- DM* 

Best.-Nr. 102 


SPECIAL OFFERSIII 

9 Spiele für alle CPCs 

3 Disketten jetzt nur 39,- DM* 

Best.-Nr. 107 


Vier Super-Programme zum kleinen Preis. 

Die neue CPC-Spielebox enthält vier ausgesuchte 
TOP-Programme der Spitzenklasse. 

Da ist für jeden das Richtige dabei! 


1. Alphajet 

Lieben Sie Abenteuer und Gefahren Im Weltraum? Dann steigen Sie 
in den neuentwickelten Alphajet und erforschen die interstellaren 
Sonnensysteme. Vielfältige Gefahren lauern auf Ihrer Mission. 
Erleben Sie mit Alphajet ein hochklassiges Act.onspiel mit 
außergewöhnlicher Grafik und vielen tollen Effekten. 

2. Telefomania 

Man schreibt das Jahr 1992. Das sogenannte Datenzeitalter hat be¬ 
gonnen. Alles kann per Datenübertragung von zu Hause aus erledigt 
werden. Das Problem: Einige Gebiete wurden bei der Vernetzung 
schlichtweg vergessen. Ihre Aufgabe besteht nun darin, als Einsatz¬ 
leiter vor Ort diese Vernetzung vorzunehmen. Verhandeln Sie also 
direkt mit den Hausbesitzern über Tarife und Anschlußmöglichkeiten 
Gutes Gespür ist hier gefragt, denn nicht jeder will auch an das 
Datennetz angeschlossen werden. Mit Telefomania erwartet Sie eine 
völlig neue Spielidee, die auch Sie begeistern wird. 

3. Kampf den Insekten 

Übernehmen Sie die Rolle eines berühmten Gärtners. Ihre Aufgabe 
besteht in der behutsamen Pflege des weltschönster und mehrfach 
preisgekrönten Gartens von Lord CPC. Erschwert wird dies durch 
verschiedenartige Insekten, die immer wieder an Ihren herrlichen 
Pflanzen nagen und diese zerstören. Durch gezielten Einsatz von 
Dünger und Sprays (ohne Treibgas} können Sie den unliebsamen 
Zeitgenossen zu Leibe rücken. Ein erlebnisreiches 
Geschicklichkeitsspiel für die ganze Familie mit vielen 
Überraschungen erwartet Sie. 



4. Funbouncer 

Ihr bester Freund wurde vom bösen Zauberer entführt. Mutig und 
stark, wie Sie nun einmal sind, machen Sie sich sofort auf die Suche 
nach Ihrem verschwundenen Kumpan. Als Sie das Schloß des 
Zauberers erreichen, werden Sie und Ihr Freund in einen feuerroten 
Ball verwandelt. In dieser Gestalt müssen Sie nun den geheimen 
Ausgang des Gewölbes finden, um den Fluch zu verlieren. Doch 
Vorsicht: Vielfältige Gefahren, wie zum Beispiel scharte Felskanten 
oder rostige Nägel, machen Ihnen neben anderen Zeitgenossen, die 
ebenfalls verzaubert wurden, das Leben schwer. Funbouncer ist ein 
schnelles und farbenfrohes Actionspiel mit vielen Levels und eigenem 
Bild-Construction-Set. 

Für alle CPCs nur als 3-Zoll-Diskette , 

Best.-Nr.: 1012 


Unabhängig von der Anzahl der bestellten Produkte berechnen wir für das 
Inland DM 4,- bzw. für das Ausland DM 6,- Porto und Verpackung. 


Bitte benutzen Sie den Bestellcoupon auf Seite 7. 
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Bericht 


DFÜ 

Ihr Anschluß an die Zukunft 

Über die Möglichkeit, Daten 
in die Ferne zu übertragen 

Zählen Sie auch zu den CPC-Benutzern, die neidvoll auf die Besitzer ande¬ 
rer Rechner blicken und mit ansehen müssen, wie die ’mal kurz’ eine Mail¬ 
box anrufen, um sich die neuesten Tips zum Thema Umweltschutz oder gar 
Public-Domain-Software herauszuladen? Das muß nicht sein. Haben Sie den 
Bericht zur Datenübertragung in der PC International 10/88 gelesen? Hier 
erfahren Sie den Rest der Wahrheit, vom Anfang bis zum ersten ’Login’. 


Von Ihrem CPC bis zu einer Mailbox ist 
es im wahrsten Sinne des Wortes ein wei¬ 
ter Weg. Dieser Weg führt im Normalfall 
von Ihrem Rechner über die serielle 
Schnittstelle zum Modem und von dort in 
das Telefonnetz, um am anderen “Ende“ 
wieder über ein Modem zur seriellen 
Schnittstelle und von da zum Mailbox¬ 
rechner zu führen. 

Die serielle Schnittstelle - 
die Verbindung zur Außenwelt 

Die serielle Schnittstelle ist dabei unser 
erster “Wegbegleiter“. Das Grundprinzip 
einer seriellen Schnittstelle ist die Um¬ 
wandlung von parallelen Daten in serielle 
und zurück; dies vollzieht in der Regel 
ein UART (Universal Asynchronous Re¬ 
ceiver Transmitter, das heißt Universel¬ 
ler Asynchroner Sender/Empfänger). 
Das Umwandeln hat den Vorteil, daß, 
wenn Daten über eine weite Entfernung 
transportiert werden müssen, bereits drei 
Leitungen ausreichen, nämlich eine Sen¬ 
deleitung, eine Empfangsleitung und eine 
Masseleitung (0 Volt). Würden die Da¬ 
ten hingegen parallel übertragen, wäre 
eine Vielzahl von Leitungen erforderlich. 
Die RS232C ist eine solche genormte se¬ 
rielle Schnittstelle, deren Leitungen und 
Pegel festgelegt sind. Die Pegel betragen 
gegenüber 0 Volt einmal -12 V für logisch 
Eins und einmal +12 V für logisch Null. 
Als Steckverbindung wird für die 
RS232C ein 25poliger Sub-D-Verbinder, 
oder neuerdings auch ein 9poliger Sub- 
D-Verbinder, verwendet. Die DIN unter¬ 
scheidet 6 verschiedene Arten von Lei¬ 
tungen: 

— Erdleitungen (E1,E2) 

— Datenleitungen (D1,D2) 

— Steuerleitungen (S1-S12) 

— Meldeleitungen (M1-M8) 

— Taktleitungen (77-75) 

— Leitungen für den Hilfskanal 
(HD1,HD2 , HS2, HM2, HM5, HM6) 

Vermutlich werden Sie sich jetzt fragen, 
warum das so viele Leitungen sind, wo 
wir doch vorhin davon gesprochen ha¬ 


ben, daß bereits drei ausreichen. Das läßt 
sich mit den unterschiedlichen Ausbau¬ 
arten von V.24-Schnittstellen erklären. 
Der eine Hersteller macht es so, der an¬ 


dere so. Strenggenommen sind das natür¬ 
lich keine V.24-Schnittstellen mehr, da 
diese ja genormt sind. Im Grunde wäre 
es aber auch unsinnig, wenn ein Gerät 
Leitungen aufweisen würde, die über¬ 
haupt nicht benötigt würden; hier be¬ 
schränkt man sich halt auf das notwen¬ 
digste und nennt es V.24. Ein 9poliger 
SUB-D-Verbinder reicht aus, hatten wir 
gesagt. Somit benötigen wir also nur die 
Leitungen TxD, RxD, RTS, CTS, DSR, 
GND, DCD, DTR und RI. Eine ausführ¬ 
liche Beschreibung können Sie der Ab¬ 
bildung 1 entnehmen. 

Harte und weiche Hände 

Hier wollen wir uns nicht über den Druck 
Ihrer Hände unterhalten, sondern uns mit 
der gegenseitigen Steuerung zwischen 
Endgerät und Modem befassen. Wie bei 
jeder Kommunikation müssen sich bei¬ 
de Partner so “verstehen“, daß zum Bei- 


Die wichtigsten Leitungen der V.24 im einzelnen 
TxD: Sendedaten (zur DÜE) 

Die hier ankommenden Daten werden von der DÜE abgesendet, soweit folgende 
Leitungen aktiv sind: 

DTR — DEE betriebsbereit 

DSR — Betriebsbereitschaft (der DÜE) 

RTS — Sendeteil einschalten 
CTS — Sendebereitschaft (der DÜE) 

RxD: Empfangsdaten (von der DÜE) 

Die hier ankommenden Daten werden von der DÜE empfangen, soweit folgende 
Leitungen aktiv sind: 

DTR — DEE betriebsbereit 

DSR - Betriebsbereitschaft (der DÜE) 

RTS: Sendeteil einschalten (zur DÜE) 

Mit dieser Steuerleitung wird die DÜE von der DEE informiert, daß diese Da¬ 
ten übertragen will. Ist die Leitung aktiv, schaltet die DÜE ihren Sender ein und 
ist dann bereit, Daten zu senden. 

CTS: Sendebereitschaft (der DÜE) 

Über diese Meldeleitung wird die DEE von der DÜE über deren Sendebereitschaft 
informiert. Es ist also die Quittung auf eine RTS-Anforderung. Ein Aktivzustand 
bedeutet, daß die DÜE bereit ist, die Daten von der DEE abzusenden. 

DSR: Betriebsbereitschaft (der DÜE) 

Über diese Meldeleitung wird der DEE mitgeteilt, daß die DÜE betriebsbereit ist 
und eine Verbindung mit der Gegenstelle besteht. 

GND: Signalbezugspunkt 

Dies ist die Masseleitung beider Geräte. 

DCD: Empfangssignalpegel (der DÜE) 

Über diese Meldeleitung erkennt die DEE, daß die DÜE von der Gegenstelle gül¬ 
tige Signale mit ausreichendem Pegel empfangt (das ist ein Datenträgerton), gleich¬ 
zeitig ist es die Empfängerfreigabe für die DEE. 

DTR: DEE betriebsbereit 

Mit dieser Steuerleitung steuert die DEE die Anschaltung der Übertragungslei¬ 
tung (Verbindungsaufbau). Ist diese Leitung inaktiv, wird eine bestehende Ver¬ 
bindung getrennt. 

RI: Ankommender Ruf 

Über diese Meldeleitung teilt die DÜE dem DEE das Ankommen eines Rufsig¬ 
nals mit (das heißt, ein Verbindungswunsch von der Gegenstelle). 

Der Pegel einer inaktiven Leitung ist logisch Eins und entspricht —12V 


Abb.l: Die Leitungsbezeichnungen der seriellen Schnittstelle. 
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spiel der Rechner dem Modem “sagen“ 
kann: “Halt! Jetzt kann ich nichts emp¬ 
fangen“ oder “Achtung! Jetzt möchte ich 
senden“. Genauso muß das Modem auf 
diese Signale reagieren und darf dann 
eben z.B. nicht mehr senden. Diese Art 
der gegenseitigen Steuerung nennt man 
Handshake, wobei die eine Art, bei der 
die Steuerung über Leitungen (also hard¬ 
waremäßig) erfolgt, Hardware-Hand¬ 
shake heißt. Die zweite Art des Hand¬ 
shakes läuft, wie Sie wahrscheinlich 
schon vermutet haben, nicht hardware¬ 
mäßig, sondern softwaremäßig ab. Hier¬ 
bei “sagt“ der Empfänger dem Sender 
durch zwei ASCH-Zeichen entweder 
"Halt“ oder “Weitermachen“. Das Zei¬ 
chen X-OFF (CTRL-S, &11) hält die 
Übertragung an und das Zeichen X-ON 
(CTRL-Q, &13) läßt sie wieder zu. Die¬ 
se Art des Handshakes findet auch bei 
der Bildschirmausgabe vieler Rechner 
Anwendung. Jetzt wäre nur noch zu klä¬ 
ren, wo welche Handshake-Arten ver¬ 
wendet werden. Wie bereits erwähnt, 
wird das Software-Handshake bereits bei 
vielen Rechnern angewendet, so hat es 
sich auch bei den Mailbox-Systemen ein¬ 
gebürgert. Denn verständlicherweise 
kann zwischen Ihrem CPC und dem 
Mailbox-Rechner schlecht ein Hardware- 
Handshake stattfinden, da zwischen bei¬ 
den Modems nur eine Zwei-Draht-Ver- 
bindung (Telefonleitung) besteht. Bei der 
Verbindungssteuerung zwischen Modem 
und Rechner verwendet man hingegen 
das Hardware-Handshake, da hier das 
Modem direkt an den Rechner ange¬ 
schlossen ist. Dieses Handshake läßt sich 
bereits mit zwei der neun wichtigsten 
Leitungen einer V.24 realisieren. Dum¬ 
merweise gibt es hierbei zwei Möglich¬ 
keiten, die beide nicht das Gelbe vom Ei 
sind: 

1. Die RTS-CTS-Steuerung ist wohl am 
bekanntesten und regelt die Sendeanfor¬ 
derung der DEE (RTS) und die Sende¬ 
freigabe der DÜE (CTS). 

2. Die DTR-CTS-Steuerung regelt die 
Empfangsfreigabe der DEE (DTR) und 
die Sendefreigabe der DÜE (CTS). 

Nur kann es passieren, daß das Modem 
die Verbindung bei inaktivem DTR-Si- 
gnal auftrennt. Da hilft nur Ausprobie¬ 
ren, wenn’s nicht klappt... Im Normal¬ 
fall ist die DÜE aber eine reine Übertra¬ 
gungseinrichtung, das heißt, ein empfan¬ 
genes Zeichen muß durch die DEE sofort 
abgeholt werden, ehe das nächste emp¬ 
fangen wird, so daß man ruhig das RTS- 
CTS-Protokoll benutzen kann. Es gibt al¬ 
lerdings auch “intelligente“ Modems, die 
die empfangenen Zeichen speichern kön¬ 
nen, wenn die DEE nicht empfangsbereit 
ist; das könnte der DÜE zum Beispiel 
über RTS mitgeteilt werden. 

Bisher haben wir nur über die V.24 und 
deren Leitungen gesprochen. Aber wie 
werden denn nun die Bytes übertragen? 
Auf diese Frage kann man mit einem ein¬ 


zigen Wort antworten: asynchron. Schön, 
meint der interessierte Leser, sehr 
schön... wenn man nur wüßte, was es ist! 

Alles formatiert 

Nun, synchron bedeutet soviel wie 
gleichzeitig. Hier steht es für getaktet. 
Also bedeutet asynchron nicht getaktet. 
Im Klartext heißt das, daß mit der Über¬ 
tragung der einzelnen Bits zu einem be¬ 
liebigen Zeitpunkt begonnen werden 
kann. Jedes Byte wird also bitweise, zu¬ 
erst das niederwertigste (Bit 0), übertra¬ 
gen. Dem ersten Bit voran wird die Start¬ 
bedingung (Startbit) gesendet, während 
nach dem letzten Bit die Stoppbedingung 
(Stopbit) gesendet wird. Diese beiden 
Bedingungen sind eindeutig und markie¬ 
ren Anfang und Ende eines Bytes. Zu¬ 
sätzlich kann noch ein Päritätsbit zur Feh¬ 
lerprüfung mitübertragen werden, dieses 
muß aber nicht sein. Als Beispiel soll 
hier Abbildung 3 dienen. 

Da ja, wie im Bild zu sehen ist, der In- 
aktivpegel logisch Eins entspricht, “lau¬ 
ert“ der Empfänger des UARTs auf einen 
logisch Null-Pegel. Daran erkennt er den 
Anfang eines Bytes und beginnt mit der 
Umwandlung des ankommenden Daten¬ 
stroms in parallele Daten. Wie war das 
doch gleich mit dem Paritätsbit? Dort 
gibt es die gerade und ungerade Parität. 
Dabei wird das Paritätsbit immer so “er¬ 
gänzt“, daß die Anzahl der Eins-Bits ent¬ 
weder gerade oder ungerade ist. Auf un¬ 
ser “M“ (01001101) bezogen hieße es, daß 


das Paritätsbit bei gerader Parität nicht 
gesetzt wäre, weil das “M“ in binärer 
Darstellung 4 Eins-Bits aufweist. 

Es ist sicherlich ganz einleuchtend, daß 
Sender und Empfänger das gleiche Da¬ 
tenformat (so nennt man den Aufbau ei¬ 
nes Datums) benutzen müssen, andern¬ 
falls gibfs Müll... 

Die gebräuchlichsten Datenformate in 
der DFÜ sind 8 Datenbits, keine Parität 
und 1 Stopbit oder 7 Datenbits, gerade 
Parität und 1 Stopbit. ln Kurzschreibwei¬ 
se: 8nl bzw. 7el. Die verschiedenen 
Möglichkeiten lassen sich aus folgender 
Tabelle entnehmen: 

7 bit no parity 1 stopbit 

8 bit even parity 2 stopbit 

odd parity 

“Nebensächlichkeiten“ 

Bislang haben wir die V.24 und die Über¬ 
tragung von vorne bis hinten durchgear¬ 
beitet, es fehlen nur noch die Übertra¬ 
gungsgeschwindigkeit und die Übertra¬ 
gungsart. 

Fangen wir mit der Übertragungsge¬ 
schwindigkeit an. Sie wird in bit/s (Bit 
pro Sekunde) angegeben und besagt, 
wieviel Bit pro Sekunde übertragen wer¬ 
den können. In der DFÜ finden zur Zeit 
vier verschiedene Geschwindigkeiten 
Anwendung: 300 bit/s ist die gebräuch¬ 
lichste und wird von hist allen Mailboxen 
benutzt. 

1200 bit/s hat sich mittlerweile auch 
schon eingebürgert. 
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Die Leitungen der V.24 im Überblick 
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2400 bit/s ist momentan noch Zukunfts¬ 
musik, da die Übertragungseinrichtun- 
gen dafür noch ziemlich teuer sind. 

Die vierte Geschwindigkeit ist eigentlich 
mehr ein Zwitter; hierbei wird nämlich 
mit 1200 bit/s empfangen und mit 75 bit/s 
gesendet. Btx nutzt zum Beispiel diese 
“billige“ Übertragungsgeschwindigkeit, 
weil diese Modems nicht so aufwendig 
sind wie die für 1200 bit/s in beide Rich¬ 
tungen. 

Und da wären wir auch schon bei der 
nächsten Nebensächlichkeit, der Über¬ 
tragungsart. Drei an der Zahl werden un¬ 
terschieden. .. 

Fangen wir einmal mit dem einfachsten 
an. Wenn Sie z.B. die Fernbedienung Ih¬ 
res Fernsehers benutzen und das Gerät 
daraufhin das gewünschte Programm 
zeigt, so hat Ihr Druck auf eine Taste da¬ 
für gesorgt, daß die Fernbedienung (Sen¬ 
der) mit dem Fernsehgerät (Empfänger) 
kommuniziert hat; man kann auch sagen, 
der Sender hat dem Empfänger Daten 
übermittelt. Ganz einfach. Doch was hat 
das mit DFÜ zu tun, werden Sie jetzt fra¬ 
gen. Nun, dies nennt man eine Einwege¬ 
kommunikation, weil die Fernbedienung 
immer der Sender und das Fernsehgerät 
immer der Empfänger ist. Es wird be¬ 
stimmt nicht Vorkommen, daß der Fern¬ 
seher der Fernbedienung etwas mitteilen 
will... Perfekt fachmännisch nennt man 
diese Art der Übertragung simplex (oder 
abgekürzt sx). 

Die zweite Art werden Sie vielleicht von 
einer Türsprechanlage her kennen. Im 
Ruhezustand ist diese Anlage auf “Hö¬ 
ren“ gestellt, das heißt, die Übertragung 
geht nur in eine Richtung. Wollen Sie 
jetzt “Sprechen“, müssen Sie die Sprech¬ 
taste drücken, damit der Übertragungs¬ 
weg umgeschaltet wird. Bei der DFÜ ist 
das mit dem wechselseitigen “Sprechen“ 
(hier Senden) genauso und wird halbdu¬ 
plex genannt (abgekürzt mit hx oder 
hdx). 

Die dritte Möglichkeit, die noch übrig 
bleibt, trägt das Kürzel dx wie duplex 
(oder auch vdx für vollduplex); und da es 
einem Computer mehr oder weniger egal 
ist, ob er nun zwei Dinge gleichzeitig tut, 
gibt es die dritte Kommunikationsart nur 
bei Maschinen. (Für denjenigen, der sich 
noch nicht denken kann, was duplex ist: 
gleichzeitiges Übertragen in beide Rich¬ 
tungen...) 


Heutzutage wird in der DFÜ (und von 
fast allen Mailboxen) ausschließlich die 
dritte Übertragungsart (duplex) ver¬ 
wendet. 

Das wird (an)geboten... 

Zuerst das Interface, dieses kommt von 
Amstrad und beinhaltet neben einem Z80 
DART (einem speziellen Wandlerbau¬ 
stein) noch ein Eprom mit einem Termi¬ 
nalprogramm und diversen RSXes zur 
Programmierung. Dieses Interface hat al¬ 
lerdings einen Vor- und einen Nachteil: 
Es läßt sich mühelos vom CP/M-Be- 
triebssystem ansprechen, da die Routinen 
schon im BIOS vorhanden sind; nur ar¬ 
beitet es ungern mit der Vortex-RAM-Er- 
weiterung zusammen, da beide das exter¬ 
ne ROM # 6 benutzen. Dieses Interface 
ist somit sowohl für den Anwender als 
auch für den Programmierer gedacht, 
denn hier gilt: auspacken-einschal- 
ten-loslegen. Das Interface kann laut 
Herstellerangaben an allen CPCs betrie¬ 
ben werden. Abzuraten ist von “Schnitt¬ 
stellenlesungen“, die den Joystickport be¬ 
nutzen. Das mag zwar im ersten Augen¬ 
blick praktisch (und billig) erscheinen. 
Jedoch ist das nur ein Hilfsmittel und 
scheitert spätestens bei größeren Übertra¬ 
gungsgeschwindigkeiten. Ein richtiges 
Hardware-Interface meistert hingegen 
Übertragungsraten bis zu 19200 bit/s. 

Modem und Koppler - zwei 

ungleiche Brüder 

Bisher wurde die V.24-Schnittstelle aus¬ 
führlich besprochen, jetzt folgt der zweite 
“Wegbegleiter“ — das Modem. 

Modem ist ein Kunstwort und setzt sich 
zusammen aus Modulator und Demodu¬ 
lator. Seine Funktion läßt sich genauso 
mit zwei Begriffen beschreiben: modu¬ 
lieren von Signalen und demodulieren 
von Signalen. Modulieren bedeutet, daß 
der Trägerton durch die zu sendenden 
Bits seine Frequenz ändert. Diese Modu¬ 
lationsart heißt Frequenzmodulation und 
wird Ihnen sicherlich vom Radio her be¬ 
kannt Vorkommen. Demodulieren be¬ 
deutet dementsprechend, daß der modu¬ 
lierte Trägerton wieder zurück in die ein¬ 
zelnen Bits gewandelt wird. Und genau 
an dieser Stelle tritt ein kleines Problem 
auf: 


Da das Telefonnetz die eigenen Signale 
zurückleitet, empfangt der Empfänger die 
Signale des eigenen Senders. Um diesem 
abzuhelfen und die DFÜ nicht ganz un¬ 
möglich zu machen, werden zwei ver¬ 
schiedene Frequenzgruppen verwendet: 
Der Anrufer (also Sie) sollten immer im 
Originate-Mode arbeiten, während der 
Angerufene (also die Mailbox) immer im 
Answer-Mode arbeiten sollte. So wird 
der eigene Empfänger nicht durch den ei¬ 
genen Sender gestört. 

Der Grund, weshalb überhaupt ein Mo¬ 
dem benötigt wird, ist relativ einfach: Je¬ 
der Rechner, also auch der CPC, arbei¬ 
tet mit digitalen Signalen, kennt somit 
nur zwei logische Zustände. Das Telefon¬ 
netz (dazu kommen wir später) arbeitet 
hingegen analog, denn hier wird ja in er¬ 
ster Linie Sprache (Töne) übertragen. 
Das Modem dient also als Wandler zwi¬ 
schen zwei “Welten“, auf der einen Sei¬ 
te digital und auf der anderen analog. Die 
Geschwindigkeit, mit der Modems arbei¬ 
ten können, hängt natürlich von der 
Bandbreite auf der Analogseite ab. Das 
Telefonnetz hat eine Bandbreite von 
3,1 kHz und begrenzt die Übertragungs¬ 
geschwindigkeit daher auf 2400 bit/s. 
Zwar gibt es auch Modems, die mit 
höheren Geschwindigkeiten arbeiten, 
jedoch wird da nicht mehr mit der Fre¬ 
quenzmodulation gearbeitet. Eine wei¬ 
tergehende Erklärung würde hier aller¬ 
dings zu weit führen. Worin besteht aber 
eigentlich der Unterschied zwischen 
einem Modem und einem Akustikkopp¬ 
ler? Diese Frage läßt sich recht einfach 
beantworten. Werfen wir dazu einen 
Blick in die Definition der Deutschen 
Bundespost: 

Dort wird zwischen “galvanisch“ (das 
bedeutet leitend) verbundenen und aku¬ 
stisch gekoppelten Modems unterschie¬ 
den. Demzufolge sind also Akustikkopp¬ 
ler auch Modems? Im Grunde genom¬ 
men ja, denn sie erfüllen ebenso das oben 
beschriebene Prinzip wie Modems. Den 
“kleinen Unterschied“ gibt es allerdings 
dennoch: Da bei einem Akustikkoppler 
die Übertragung akustisch gekoppelt ab¬ 
läuft (der Telefonhörer wird dazu in den 
Koppler gelegt), können natürlich bei 
lauten Umgebungsgeräuschen Übertra¬ 
gungsfehler auftreten. Ein Modem ist 
hingegen direkt an die Telefonleitung an¬ 
geschlossen (einfach die beiden Leitun¬ 
gen des Modems an die Telefonleitung 
anklemmen), so daß hier ruhig ein Preß¬ 
lufthammer bei der Arbeit sein kann; so¬ 
lange er die Leitung nicht trifft, gibt’s 
auch keine Probleme... 

Ein Modem ist auch komfortabler zu be¬ 
dienen als ein Akustikkoppler: Bei die¬ 
sem muß die Verbindung per Hand auf¬ 
gebaut werden (also gewählt), während 


Beispiel für eine Übertragung des Zeichens "M" (01001101): 
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Abb. 3: Der Signal¬ 
verlauf bei der Über¬ 
tragung, wenn der 
Buchstabe ’M'über¬ 
tragen wird 
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Bericht 


ein Modem dies auf Befehl tut. Fazit: Mit 
einem Modem geht’s einfacher und 
macht auch mehr Spaß. 

Ein nicht ganz unwesentlicher Punkt ist, 
wie immer, das liebe Geld. So werden 
Akustikkoppler für etwa 300,- DM an- 
geboten, während Modems ein Vielfa¬ 
ches davon kosten. Der einzige Ausweg 
aus diesem Dilemma wäre ein Hayes- 
kompatibles Modem, welches bereits für 
den Preis eines Akustikkopplers zu haben 
ist. Der Vorteil liegt klar auf der Hand: 
Modemkomfort zum Preis eines Aku¬ 
stikkopplers. Dabei haben Hayes-kompa- 
tible Modems noch den weiteren Vorteil, 
daß sie sich durch ihre Verbreitung zu ei¬ 
nem Quasistandard entwickelt haben und 
so von vielen Software-Paketen unter¬ 
stützt werden. 

In diesem Zusammenhang muß aus¬ 
drücklich darauf hingewiesen werden, 


daß das Betreiben von Modems (oder 
Kopplern) ohne Genehmigung des Zen¬ 
tralamtes für Zulassungen im Femmelde- 
wesen an öffentlichen Femmeldenetzen 
in der Bundesrepublik Deutschland und 
in Berlin (West) verboten ist und straf¬ 
rechtliche Folgen nach sich ziehen kann. 
Das war schönstes Postdeutsch und muß¬ 
te auch ’mal sein. 

Netze... 

Sind Sie bis hierher gefolgt? Dann ist es 
jetzt genug der grauen Theorie, gehen 
wir gleich zur Praxis. Doch vorher soll¬ 
ten Sie noch ein paar allgemeine Dinge 
kennenlemen. Da dürfte zum Beispiel 
die Frage aufgetaucht sein, wie ich mich 
in eine Mailbox “einlogge“ (von ’Login’, 
das ist die Zugangsprozedur, die DBP 
spricht hier von anschalten). Wie bekom¬ 


me ich Nummern von Mailboxen? Und, 
und, und... All diese Fragen wollen wir 
hier Schritt für Schritt klären. Zuerst der 
Begriff Netz. Natürlich ist damit kein Fi¬ 
schemetz gemeint, sondern eine Verbin¬ 
dungsmöglichkeit zwischen jeweils zwei 
Netzendpunkten. Netze (auch das Tele¬ 
fonnetz) sind im allgemeinen in soge¬ 
nannte Netzknoten (so werden Vermitt¬ 
lungsstellen genannt) aufgeteilt. Um 
beim Telefonnetz zu bleiben, gehen wir 
einmal davon aus, Sie wählen die Telefon¬ 
nummer 02203. Die erste Null bedeutet, 
daß Sie die Fernvermittlungsstelle an¬ 
sprechen. Die erste Zwei baut die Verbin¬ 
dung zur Zentral vermittlungsstelle Düs¬ 
seldorf auf. Dort sorgt die zweite Zwei 
dafür, daß die Verbindung zur Hauptver¬ 
mittlungsstelle Köln geht. Die zweite 
Null spricht nun die Knotenvermittlungs¬ 
stelle Köln an und die Drei gibt die Ver- 
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ein eigenes Postfach (durch Kennwort geschuetzt) und koennen 
Ohne Zeltverzug Nachrichten Innhcrhilb des Systems verschicke 

Nach Antragatel1ung bekommen Sie Innerhalb weniger Tage vom w 
mit der “gelben“ Post eine Beataetlgung das Antrages mit dam 
ersten Kennwort. Es koennen nur Antraege bearbeitet werden, w 
alle geforderten Angaben enthalten. 


- Dieser Text 1 
Befehl ei 1 ata ml 
In folgend 
aml ga 

an Tagungen 

commodo re 
gesuche 
mal 1boxwer 


sst sich durch Steuerzeichen abbrechen - 
1t •?’. Hilfe durch 'HILFE' I 
Brettern” nachschauen: 


11 - 11 - 88 ) 
11 - 11 - 88 ) 
03-10-88) 
16-10-88) 
09-11-88) 
11 - 11 - 88 ) 
05-10-88) 
05-11-68) 
11 - 11 - 88 ) 
10 - 10 - 88 ) 


Keine neuen Nachrichten. 

Befehl : b echr.elder 

Brett schneider-cpc: Brett f}r 

Nr. * Datum Zelt Abs./Empf. 

1 27 05-10 13:31 sysop 

2 18 05-10 13:32 sy30p 

3 25 20-10 20:31 gast 

4 17 25-10 08:25 gast 

(schneider-cpc) Befehl: 134 


angebote 
appl e 
btx 
df) 

hardware 

msdOs 

schnelder-cpc 


(10-il-BB) 
(09-11-88) 
(04-11-88) 
( 10 - 10 - 88 ) 
(21-10-30) 
(30-10-38) 
(25-10-38) 
(28-10-88) 
(09-11-08) 


Schneider CPC/Jolce-Benut 
Kb Betreff 

2 Asel 1-Bild-Konver 
6 Galgenbaum-Raten 
1 handahake-problem 
1 Nochmai Aufruf 


Empf(nger 
Abfrage N 
Text: 


handshake-probleme 
20-10-88, 20:31:55 
schneider-cpc 


uebertragung 
fehlt, 
dies kann behöbe 


3t die dass 
ate 


jes CPC 464/664 oder 
em CPC 664 ein Proble 
Bltlg bekannt ‘st und 


6128 . 

m von dem Ich gerne wuesste 
ob Jemand abhilfe kennt., 
n einer mailbox bei 120C baue 
Immer das 2.Zeichen der neuen 


ch ei r 


al b9ystem-be<J1 ngt was mehr 


den 1ndem die 

_ _ hen schon) null-byt 

vom lothar (ctbbs) macht . 
denn der cpc braucht nach nem retur 

fuer andere Zeichen. ^ 

mit anderen boxen so auch hier mit der komkom Im 1200/75 bd 
wieder diese probleme. 

die Schnittstelle die Ich verwende ist uebrig 
das problerr 1s ausserdem nicht abhaengig von 
macht mein compl die selben fack 
falls Jemand das selbe probe! 
besser ln die ctbbs 
viel flruesse de Jue 
, ende 

Nachrlcht Nr.: 4 

Nachricht von: 

Betrifft: 

Abgesandt am: 


ige-retur 


hat und abhi1fe 
lothar ..tel.: Koel n/ 
aus koeln-braunsfeld 


hnelder-schnittst 

re . .bei teloccm 1 
tte nachrlcht hl« 


gast 

Nochmal Aufruf 
25-10-88, 08:25:41 

schneidei—cpc 


Hailo Schneider CPC-Us 


Ich mache 
dass d 
weltem 


, - seit ein paa 

Moegl1chkelten di 
cht ausgenutzt 
als Schneider C 


Wochen Ofue und bin der Melnun 
e dieses Medium in sich birgt be 
rden . 

-User ist man wegen der gerlngun 


ngewi« 


Ich moechte nun 
Raum Koeln auf i 
Mal 1 box einigen 


Vorschlägen, de 


Fuer diesen Zweck rufe Ich dazu auf bei Inter 
CTBBS anzuwaehlen und mir folgende Informatlc 
hlnterlaasen: 

Name des Abse 

Interessenber 
und eigene He 


atmall box mit Username 


nd Rufnummer 


Ist, und die 


Ich werde nach einigen Wochen (Insof 
meinen Aufruf aktzeptabel war) 

CTBBS schreiben aus der steh d 
der Aktion ableiten laesst. 


e Resonanz auf 
Statistlk ln die 

r weitere Werdegang 


rble 1 De Ich 


(achnelder-cpc) Befehl: b » 
Liste der "Schwarzen Brette 


60000 -aaaembl■ 

BOxSe-aeeemblc 

idventura 

ami ga 

angebote 

anregungen 

app'e 

assembler 

atar 1 

basl c 

bas 1 code 

bllder 

btx 

c-f reaka 
commodo re 
computerclub 


mal 1boxwerbung 

msdos 

paacal 

echnelder-cpc 
slnclalr 
System-1nfc 
termlne 
videodat 
Videotext 


01-01 

01-01 

01-01 

11-11 

10-11 

11-11 

09-11 

01-01 

03-10 

01-01 

01-01 

01-01 

04-11 

01-01 

16-10 

01-01 

10-10 

09-11 

21-10 

01-01 

01-01 

11-11 

30-10 

05-10 

25-10 

05-11 

28-10 

11-11 

09-11 

10-10 


Forum f)r 68k-Masch‘. nenprog r amml e 
Forum f)r 80x86-Maschlnensprache 
Infos und Llsungen zu Adventure-. 
Brett f)r AMIGA-Benutzer 
Verk{ufe/Tauschangebote (nicht s« 
Ideen und Kritik zur Mailbox 
Alles um Apple-II Computer 


Assemblerprogramml 
Atari Computer 
Forum f)r Basic-Prog 
Basicode-II Librarle 


Al 1« 


___ und Anwe 

WDR-Bi1d)be.- - 

Infos aus und um Bl 1dschlrmte*t 
Forum f)r C-Programmic 
Alles f}r Commooor 
Neu 1gkeit 


64/128/... 
WCR-Computercluo 
DF 1-Szene 
Kauf- und Tauschgesuch« 

Hardware -Infos und -Tricks 

Neuigkeiten von KALEIDOSKOP 
Alles um den Apple-Macintosh 
Werbeforum f)r ancere Mailboxan 
Brett f)r M5-Dos-Anwender 
Forum fjr Paacal-Programmierer 
Brett f)r Schneider CPC/J01ca-Benutzer 
Forum f > r Sindalr-Benutzer 
Informationen und Hinweise des Systembetr 
Terminedaten 2u Messen, Clubtreffs, etc 
Neuigkeiten um das Videodat-System 


und 


Videotext 


(schnelder-cpc) Befehl: b btx 


Brett btx: Infos 


Bl 1dschirmte 


Nr. * Datum Zeit Ab3./£mpf. 

1 89 17-10 10:22 sysop 

2 60 17-10 10:23 sysop 

3 18 04-11 10:23 sysop 

(btx) Befehl: b videodat 


Ir. * Datum Zelt Abs./Empf. 

4 17 09-11 12: 12 sysop 

6 6 09-11 12:16 sysop 

7 8 09-11 12:17 sysop 

8 6 09-11 12:16 sysop 

9 7 09-11 12:19 sysop 

11 15 09-11 12:22 sysop 

12 7 09-11 12:23 sysop 

13 


Kb Betreff 

18 Verzeichnis da 
1 BTX-Statistik 
5 Bediecungsanl 


das Vldeodat-Syste 


Kb Betreff 


a 1 ei dos kop 11/88 - 
.11/88 - Quiz 
. 11/88 - Info 

.11/88 - Info 
.11/88 - News 
. 11/88 - GWBA51C Prag 


Teletel-Syste 


halt & Sendeterml 


Fl i tt 


09-11 12:24 
09-11 12:25 sysop 
09-11 12:26 sysop 


... 11/88 - C-64 Ba . 

K.11/88 - Amiga - Dir Listor 
K.11/S6 - Tip K}h'. ücnrar.xentB 
K.11/38 - Filmtest 'Grillen 


(videodat) Befehl: b Videotext 

Brett Videotext: Informationen aus und Zorn Videot. 
Nr. « Datum Zelt Abs./Empf. KD Betreff 

I 66 10-10 13:12 sysop 1Z Erhebungsei 

3 46 10-10 13:15 sysop 1 

4 53 10-10 13:19 sysop 1 Wechse'kuri 

(Videotext) Befehl: ? 

Folgende Befehle stehen Zur VerfJgung: 

? Antrag Brett E 

Elnatel len Hilfe Inhalt K- 

Lesen Mailbox Senden 

Zelt 

(Videotext) Befehl: e 

Verbindung beenden (Ja/Nein)? J 
Anruf um 12:21:31 Uhr beendet ! 

Oauer der Verbindung: 9 Minuten, 39 Sekunden 

Auf Wiedersehen, Mallbox-Gast l 


gebn1s 
ti p» r 
.e vom 


e des F» 
Recht 
. 10.68 


Abb.4: Das Mitschnitt-Protokoll der KomCom-MaUbox 
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Bericht 


bindung zur Ortsvermittlungsstelle Köln- 
Porz wei ter. Das waren jetzt eine Menge 
neuer Begriffe, aber das Netzprinzip ist 
denkbar einfach: Durch die Aufteilung in 
mehrere Ebenen von Vermittlungsstellen 
(Netzknoten) entsteht eine Art Leit weg, 
der auch von den Postleitzahlen her be¬ 
kannt ist. Selbstverständlich gibt es noch 
mehrere Netze, z.B. Telex, Teletex, 
Datex... 

Das Datex-P-Netz hat in letzter Zeit im¬ 
mer mehr an Bedeutung gewonnen, da 
über dieses Netz viele Rechenzentren zu 


erreichen sind, private Mailboxen hinge¬ 
gen “hängen“ eher am Telefonnetz... Das 
waren jetzt alles Netze, in denen jeweils 
zwei Endgeräte direkt miteinander ver¬ 
bunden sind. Doch es gibt noch eine 
zweite Art von Netzen. Diese zweite Art 
kann man mit dem Briefpostnetz verglei¬ 
chen. Es dient genauso dem Nachrich¬ 
tenaustausch zwischen zwei Teilneh¬ 
mern, ohne daß diese direkt miteinander 
verbunden sind. Die Bezeichnung lautet, 
nebenbei bemerkt, “Message Handling 
Systems“, und es gibt eine Unzahl davon; 


das bekannteste ist das UUCP-Netz, an 
das auch Universitätsrechner angeschlos¬ 
sen sind... 

Wir bleiben bei den “direkten“ Netzen 
und da besonders beim Telefonnetz. Ob¬ 
wohl es nicht für die Datenkommunika¬ 
tion gedacht ist, weil es ja ein Analognetz 
ist, hat es sich in kürzester Zeit zum be¬ 
liebtesten Medium für die DFÜ ent¬ 
wickelt. Die Hauptgründe dafür sind 
wohl der weltweite Zugang, die ver¬ 
gleichsweise niedrigen Gebühren und die 
Verbreitung des Telefons. 


PROl: Verbindung hergestellt mit 0221 249508 

ProNet Mail box (PROl) 

Name? GAST 


Guten MOrge 
*** Anhalte 
Will kommen 


Sie befinden 
Ihnen somit 
diesen koennen sie zwa 
von Inhalt und Aufbau 
doch keine Nachricht 
Teilnehmer der Mailbox 
Sie eine liste der für 
ehl> erhalten Sie Erls 


Mai 1box-Gaat! 

Ctrl-S UEbersoringer 
dar ProNet Mai 1 box I 
;tch als Ga 


Ctrl-C Abbr 


n unsere* Mall box System. Es stehen 
der Mal 1box-Befeh!e zur Verfügung. Mit 
das System durchlaufen una sich ein Bild 
er ProNet Mallbox macnen, Sie koennen je- 
n lesen bzw. an schwarze Bretter oder an 
versenden! Durch Eingabe eines ? erhalten 
Gaeste gueltlgen Befehle, Mit HILFE <Bef- 
uterungen zu diesen Kommandos. 


IMCA) M 5uin^., 1st sehnlich wie die GeoNet Mallbox (sh 
J^A) iilSÜ 6 Fu « r alle, die GeoNet nicht kennen, hier 
kurze Beschreibung einiger Mai 1box-Merkmale: 


Befehlsorientierte, 
Alle Nachrichten st 
und sind einzeln ab 
geschlossenen Banut 
Anzeige aller w*r 
such neu einget 
' "rsand von pe 


GeoNet-kompat1 ble " Benutz 
ien ln sogenannten schwär 
'bar . Auf Wunsch koennen «« 
ppen zur Verfuegung g 


ol ne 
robarf 1 aeche. 


hrlcht 


ffen 


d 1 t 


ilich 


--bekommen 

Empfaenger gelesen 
o Ruecknahme von ve 
richten. 

o Weiterleiten von Nachricht. 
Moegllche Bestimmung eines 'Ve 


Ind. 
n Nachricht 
■Igt, ob und 


h Ihrem"’! atz 

mit Empfs 


en oder uebarf1vesalg gewordenen Nach- 


ndere Ben 


Ode 


. .Stimmung eir._ ... vv 

Kost bei Abwesenheit weitergeleitet wird, 

0 Nachrichten-Verteiler fuer den Postversand 
aener Benutzergruppen. 

o Moegllche Definition eines persoen11 eher Ansage-Tex 
moechte nflOZB 9t w1rd ’ der Ihner Nachricht zuxomme 

0 Um! fo r /~Wanö 1 e. mit dessen Hilfe Sie Umlaute 

Terminal nicht dafuer ausgelegt Ist, konvertieren 


erhalb geschlos- 
saga-Textes, Car 


kot _ 

o XMOdam/Ke 
MSDOS, At 
IBM/VM, u... 

0 Umfangreiche Hilfetext.. .... 
o Telesatz-Dlenst. Es besteht dl 
via Mallbox erstellen zu lassen. 

0 Mal 1boxbetr1eb auf 300 oder 1200 Bau 
o In Vorbereitung: Anschluss an das 
Usenet'. 

Um die ProNet Mailbo» 


- ' 1 1 vie1 Publ 1 c-Domal n Softwa 

ST, C64/C128, CBM610. AMIGA, CP/M, VAX/VMS 

Befehlen. 

Moegl1chkeit, 


1 assen 

a fuer 
UNIX, 

kvorlagen 


Teil nehme 
benoet 1 gt 


- Gew 


Zugunsten einer s 
ntraege koennen S1 
nt rag abschicke 


ste.nlos Benutz 


eingetragener 
r des Systems 
bearbaitung der 
r Mall box ei non 
lgenden Angaben 


bhter 


_ . . Benutzsrname Isax. 15 Zeichen, keine Leerzei 

- Vornamfl^ h Name PaBSWOrt <4 ‘ lS Ste,,i »’ Leerzeichen) 

“ Strasse und Hausnummer 

- Wohnort (mit PLZ) 

- Telefonnummer 

- Computertyp 

N»ch Moeglichkeit sollte der Benutzername aus dem abgekua 
fleB1l0et werden ohne leerst 
staÜ2Si!2n { f1ih Bl *! : f US Arthur DBnt wird A.OENT), Sie kc 
stattdeasen auch ein Pseuconym waehlen. sofern Ihnen die« 

s1nd: näB 3 1 r 1 ch unde^uur« 

i.Tn»n ’ Geb « n , s1< : bBl Pseudonymen nach Moegl Ichkeit 

Sa?22anl??hJS SS?-S ~ ' / I e,e N,men *'"<1 bereits vergeben. Ihre 
pe rsoen . 1 chen Daten werden von uns qemae<;n de ^ 

t2ng n3ChUtZ ' BeSt1mmun9 * n behandel “ und unterliegt 


eher 


Geheimh&l- 


n 4 Wochen nach 
System elnwaehl 


Ihram Antr 


Sie sollten sich innerhalb 
Ihrem Benutze mimen ln tu 
?*!] b0 * faich geloescht w.rg. 

Teilnehmer, die durch rechtswldr1 ge Verwendung der Mai 
fallen, werden sofort aus dem System entfernt. 

Antr “S mit dem Befehl SENOE ANT 
^® r 0« 3s » r ' Sie nicht, Ihr Passwort mitanzugeben 
Vorname a1s Passwort eingetragen. Die Bearbe 
•fhnlJ/SÜV? ? ar «•«•' innerhalb von 43 Stunden. 

Ihnen das jetzt alles zu schnell gegangen neben 
einfach HILFE USERANTRAG ein! ’ ’ 1 9eoen 


1 box 
RAG 


Bitte in folgenden "Bretter 


AMIGA 

ANREGUNGEN 

C-FREAKS 

CCC-AKTUEll 

OFUE 

ESSEN&TRINKEN 

HARDWARE 

KDV 

KINO 

MAINFRAME 

MEOIEN 

MUSIKBOX 

PASCAL 

RECHTSWESEN 

RESTAURANT-TIPS 

SCIENCE 

STELLENMARKT 

SZENE-KOElN 

TELESATZ 

TPUNITS 

UNTERHALTUNG 

WARENTEST 

WUQ 
Nr 


(03-I1-B8) 
(04-09-88) 
(15-10-88) 
(12-10-88) 
( 11 - 11 - 88 ) 
(20-09-68) 
(08-09-88) 
( 02 - 11 - 88 ) 
(13-11-88) 
03-11-88 
(12-11-88) 
(12-11-88) 
(18-09-88) 
( 12 - 10 - 88 ) 
(20-09-88) 
(12-10-88! 
29-08-88) 
(07-11-88) 
(01-07-88) 
(08-11-88) 
(12-11-88) 
(04-09-88) 
(14-09-88) 


Gatum Zeit Abs./Empf. 


10-09 15:23 ZENTRALE 
21-09 22:43 ZENTRALE 


hschauen: 

ANGEBOTE 

ATARI 

CAC-NEWS 

COMMOOORE 

DIVERSES 

GESUCHE 

INTERPOOLNET 

KERMIT 

LITERATUR 

MEDIA-SIG 

MSDOS 

NETWORKS 

POLITIK 

REISEN 

SCHuAGZEILEN 

SOFTWARE 

SYSINFO-D 

TELEPUBlIShING 

TERMINE 

UNIX 

VMS 

WIRTSCHAFT 


Kb Betreff 


(12-11-88) 
(28-10-88) 
|15-09-88) 
(10-09-88) 
(12-11-88) 
(12-11-86) 
(07-11-88) 
(19-07-88) 
(12-11-88) 
25-09-88 
(ll-ll-BS) 
(28-10-88) 
(31-10-88) 
(27-07-88) 
(12-10-86 
11 - 11 - 86 ) 
(10-11-aa) 
(07-11-88 
(05-11-8B) 
(13-08-88) 
(0B-03-88) 
(09-11-88) 


Liste der "Schwär 

AMIGA o 

ANGEBOTE l 

ANREGUNGEN 0 

ATARI 

C-FREAKS 

CAC-NEWS 

CCC-AKTUELL 1 

COMMOOORE 

OFUE i 

DIVERSES 

ESSEN&TRINKEN 2 

GESUCHE l 

HARDWARE 0 

INTERPOOLNET 0 

KDV o 

KERMIT 
KINO 

LITERATUR l 

MAINFRAME o 

MEDIA-SIG 

MEDIEN 

MSOOS 

MUSIKBOX 

NETWORKS 9 

PASCAL 

POLITIK 3 

RECHTSWESEN 1, 

REISEN 2 

RESTAURANT-TIPS 2l 

SCHLAGZEILEN 1; 

SCIENCE 

SOFTWARE 1 

STELLENMARKT 2! 

SYSINFO-D K 

SZENE-KOELN 0‘ 

TELEPUBLISHING 0' 

TELESATZ o- 

TERMINE 
TPUNITS 
UNIX 

UNTERHALTUNG 
VMS 

WARENTEST 
WIRTSCHAFT 
WUG 


8-10 

5-10 

5-09 

2-10 

0-09 

1-11 

2-11 

0-09 

2-11 

B-09 

7-11 

2-11 


unformationen rund um den Commodo 
Angebdte der Teilnehmer 
Verbesserungs- und Brettvorschlaa 
Informationen fuer Atari-ST User 
Tips, Tricks und Sources zur Prog 
Neues vom CAC 

Aktuelle Informationen des 
Brett fuer Commodqre CBM Ua»> 
Neues aus dem DFUE-Geschehen 

Meldunaen und Ankuendig 


irammiersprache 
Chacs-Ccmputer-Club 


Koch r 


epte 


. ur.nks und Cock tai 1-Mi x tu rer 
Gesuche der Teilnehmer 

Informationen zu neuen Computer-Systemen 
Inter Pool Net News / Mai 1 box 1isten 
Zivl1 dienst-Informationen 
Informationen zu OFUE-Protokol1en 
Kir.otips und Filmkritiken 
Buch-Empfehlungen und Rezensionen 

CUG: Large-Systems-l'se’-qroup 

CUG: Media-SIG Koeln 
Informationen zu den Medien 
Informationen fuer MS-DOS Benutzer 
LP/CO-Tips und Konzerttermine 
Internationale Datenbanken und Computern« 
ProblemlOesunsen ln Pascal 
Da5 politische Diskussionsforum 
Diskussion allgemeiner Rechtsprobleme 
Reisen und Hotel-Empfehlungen 
Restaurant-Empfehlungen und Gourmet-Tips 
Nachr.chtan zum Taßesgeschehen 
Forschung, Technik und Umweltschutz 
Algorithmen und Publio-Doma 
Arbeitsangebote und Stellen 
Systemankuendigungen *uer p?oNi 


n-Softv 


A ui 


Ttp f e r 


05-1 

08-1 

13- 0 
12-1 
08-0 
04-0 

09-1 

14- 0 


f fer 


Koelner "Su 
uas Mal 1box-Magazin 
Druckyorlagen per Mailbbx 
Messetermine, An kuend •! gungen u 
Turbo-Pascal Version 4.C Units 
Informationen zu UNIX Systemen 
Unterhaltsames aus aller Welt 
Informationen zum VAX/VMS Setriebssyst 
Verbraucher-Informationen und Warentes 
Nachrlcnten aus dem W1rtschaftsgeschah 
WOiren s Usergroup 


Befehl: b klno 

ieSrb*ll«?i ^S° t1P “ Und Fn "’ l<r,t1KEn 


Nr. Oatum Zelt Abs./Empf. 

2416 27-10 17:32 ELO 

? 7 -10 17:33 ELO 
2823 04-11 11:10 ELO 

2524 04-11 11:10 ELO 

2640 10-11 13:52 ELO 

264. 10-11 13:52 ELO 

2711 13-11 02:32 T.WERNER 

(KINO) Befehl: 1 2417 1086 


Kb ßetraff 
1 "Oie Kommissarin" 

1 ''falsches Spiel mit Roger Rabbit" 
1 "Ich bin Du K 
1 "Der Kurier" 

1 Domioick und Eugene" 

1 "Oie letzte Versuchuna Christi" 

1 "Killing Blue" 


Nachricht Nr.: 
Nachricht vor: 
Betrifft: 
Abgesandt am: 
Empf(nger: 
Text: 

* • 


2417 

ELO 

"Falsches Spiel mit Roger Rabbit" 

27-10-88. 17:33:44 

KINO 


* ** ** #«#*»#* 
«* * • « t> 0 

* * * * *» 6 


• • * 


** * » * "Falsches Spiel mit Roger Rabbit" 


um viel 
Mi t fli 

Robert 

rasantes 


Ickfiguren 
nase Roger 
Detektiv besoit 


und Zeiche 
ei chentr 1 
gekommene 

mehr geht__ Mll u . 

ser am)santen Mischung 
Zemeckl - J - • - ■ - 

impo i 


eben 
,bbl t 
n 1{' 
ht. 


d lieben ln Hollywood, bis 
seine F-au von .in.. 
Dies. 


’kt ba 1 ö , da" 
)er Fal1 Ist gef{hrllen... 

- -chentrlck- und Raalfilm 1 

r. gelungen, der Witz, Unterhaltung i 
alter Cartoons kommen auf ihre Koste 


M. 


Oem WDR-V1deotext Tafel 545/548 


Nachricht Nr 
Nachricht vo 
Betrifft: 
Abgesanot am 

Empf(nger: 


k ; h 1« 
ELO . 


Kt: 


1086 

ELO 

Muts... Durch? 
23-03-88, 16:2 

KINO 


# # t •» * # 

** * # * # $ 
t * * # #* * 


In Notwehr tjtet e 
eingent11chen Prozess 
Mit UnterstJtZung 1 
zur Anklägerin gegen 


## * * # "Nute 

Luxus-Cal 1girl 
wi 11 man sie in 
es Anwalts bewel 


Durchgedreht ' 

hren Freier. Vor Beginn des 
1e Psychiatrie abschleben. 
3ie ihre Noskpl 1“, wird 
rlichkeit und ein rigides 

Psycho-Drama fesselt bis zur letzten Minute. Das Resjmee 
d'e Kindheit verpfuschten Lebens mit all seinen 
geht unter die Haut. Bartra Strelsano spielt sich die 
una auch Richard Dreyfuss zieht alle 


Konsequenzen 

verzweifelte 'Seele aus dem L 
Register dar Schauspielkunst. 


.. aus dem WOR-Vldeote 
(KINO) Befehl: ? 

Brett Dialog 

Inhait Senden 

(KINO) Befahl: e 
Befehl: e 

11:13:50 


it Tafel 610/611 


Auf Wieo« 


Mai 1box-Gast. 


Abb.5: Hier der Mitschnitt einer Verbindung mit der ProNet-Mailbox 
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Bericht 


Mailboxen gibt es viele. Weltweit. Sie 
unterscheiden sich neben dem unter¬ 
schiedlichen Aufbau und Informations¬ 
angebot auch in private und kommerziel¬ 
le Mailboxen. 

...und Boxen 

Kommerzielle Mailboxen, z.B. die Tele- 
box der DBP oder das GeoNet, werden 
hauptsächlich von Firmen zum schnellen 
Nachrichtenaustausch genutzt. Für den 
(armen) Privatmann haben sie den Nach¬ 
teil, daß sie recht teuer sind, so bezahlt 
man etwa 20 DM pro Monat Grundge¬ 
bühr und für jede Verbindungsminute 
und das Versenden von Nachrichten noch 
einmal etwas. Die privaten Mailboxen 
werden von Privatpersonen hobbymäßig 
betrieben und sind in der Regel fast ko¬ 
stenlos. Hier hat man natürlich keine Si¬ 
cherheit dafür, daß die Daten in falsche 
Hände geraten oder die Box von heute auf 
morgen 'offline’ geht, also sang- und 
klanglos den Betrieb einstellt. Wenn man 
das ganze aber “nur“ als schönes Hob¬ 
by betrachtet, reicht eine “Privatmail¬ 
box“ bei weitem aus. 

Um das zum Teil “erschlagende“ Infor¬ 
mationsangebot einmal kennenzulemen, 
finden Sie in unserem Artikel ein paar 
Mitschnitte aus Mailboxen, in denen der 
Autor selber aktiv ist. (Die Auswahl ist 


selbstverständlich rein zufällig und sagt 
nichts über die “Güte“ der Mailbox aus.) 
Als erstes wollen wir einmal einen Blick 
in die KomCom-Mailbox des WDR wer¬ 
fen, die, wie fast alle Mailboxen, in ver¬ 
schiedene Schwarze Bretter und ein per¬ 
sönliches Postfach aufgeteilt ist. Nach 
Anwahl der Telefonnummer (0221) 
210515 meldet sich der Rechner wie in 
Abbildung 4 zu sehen ist. 

Wie Sie anhand der Vielzahl der Schwar¬ 
zen Bretter sehen können, bietet die 
Mailbox einen “Haufen“ an Informatio¬ 
nen. In der “Szene“ ist es die bekannte¬ 
ste Mailbox überhaupt. Freilich hat diese 
“Bekanntheit“ auch einen entscheiden¬ 
den Nachteil: Es ist fast unmöglich, ein¬ 
mal eine freie Leitung zu erwischen... 
Als zweite Mailbox soll die ProNet 
(0221) 249508 vorgestellt werden. Sie 
läuft auf einem AT-Kompatiblen mit 
80-MByte-Festplatte und ist von der Be¬ 
nutzeroberfläche ähnlich wie das Kom- 
Com aufgebaut. Auch hier ist das Infor¬ 
mationsangebot “erschlagend“, wie man 
im Protokoll in Abbildung 5 sehen kann. 
Weniger erschlagend, aber dennoch 
enorm, ist das Angebot der CTBBS. Die¬ 
se Mailbox ist unter (0221) 8903821 zu 
erreichen und läuft als einzig bekannte 
auf einem CPC464 mit Speichererweite¬ 
rung, vier 720-kByte-Diskettenlaufwer- 
ken und einem PD-Mailboxprogramm. 


Dementsprechend sieht natürlich auch 
das Softwareangebot aus (Abb. 6). Wie 
Sie unschwer feststellen konnten, unter¬ 
scheidet sich der Aufbau dieser Mailbox 
von den beiden anderen. Es handelt sich 
dabei um ein sogenanntes BBS (Bulletin 
Board System). Diese Form ist vor allen 
Dingen in den USA sehr häufig anzu¬ 
treffen. 

Programmiert 

Bis jetzt haben wir eigentlich alles be¬ 
sprochen, was für das Verständnis der 
Datenfernübertragung wichtig ist, nur 
eins fehlt noch: ein Kommunikationspro¬ 
gramm. Das ist ein Programm, mit dem 
der CPC auf die Stufe eines Terminals 
degradiert wird; er dient dann nämlich 
ausschließlich zur Ein- und Ausgabe von 
Daten. Mitunter gibt es allerdings sehr 
komfortable Kommunikationsprogram¬ 
me, mit denen auch Dateien übertragen 
werden können... 

Die Frage ist nur, welches Programm ist 
das richtige für mich? Um es gleich vor¬ 
wegzunehmen, es gibt für die CPCs nicht 
gerade sehr viele Programme auf dem 
Markt. Zum Teil sind sie schon bei der 
RS232C dabei, zum Teil muß man sie 
sich auch als ’Einzelstück’ kaufen (oder 
selber programmieren...). Bei 'Sepa¬ 
rat’-Programmen sollte man aber schon 


Moechtest Du ANSI-Graflk [j/N] ? > 

*** C.T.B.B.S. ***** COLOGNE TURBO BULLETIN BOARD SYSTEM ***** C.T.E.B.S. 
300/1200 Baud 

8 Datenbits, 1 Stopbit, No Parlty 

24 Stunden Online 

Sysop: Lothar 
CoSysop: Be rthold 
CoSysop: Guenther 


Alle bisherigen Benutzer dieses Systems, die 
als “nicht gefunden" gemeldet werden, moechte ich 
bitten, sich nochmals einzutragen. 


Vorname > MARCO 
Zuname > PRIES 
Passwort > . 

Login : 02:08 Sonntag 13-NOV-88 

Eingetr. Benutzer : MARCO PRIES 

Anrufer Nummer : 707 
Access Zelt heute : 1 
Access Zeit total : 41 

Letzter Anruf : 02:06 Sonntag 13-NOV-88 

Zul. geles. Brief : 114 
Uploads bis heute : 0 
Downloads bis heute: 0 

C.T.B.B.S. - Login - 

Die C.T.B.B.S. laeuft nun nochmal mit einer neuen Software. Wir wuenschen 
allen Usern viel Freude an den neuen, erweiterten Moeglichxeiten. Bei 
Problemen schreibt Bitte eine Nachricht an den Sysop. 

Druecke... 

"7" fuer Menues und Hilfe CTRL-S fuer Llstings-Pause 

Zeichen ln ”<>" sind Befehle CTRL-C fuer Listmg-Abbruch 

Die erste Zahl im System-Prompt zeigt die verbleibende System-Zeit an. 

Davon oeffentliche Briefe : 13 

In diesem Brett sind keine privaten Briefe fuer Dich. 


68-Messagesystem POST [7 = Menue]> F 

Dateiberelch: LOGIN Files: 6 Eelegt: 31K 
AUSZUG .TOT 2K ! ML2400 -TOT 2K | SYSTEM .DIR 4K | 

CTBBSUSR.DOC 17K • PCNET .MOL 3K i TOILETTE.TQT 3K | 

0 Uploads, 0 Downloads bis heute. 

68-FileSystem LOGIN [? = Menue]> DIR 

C.T.B.B.S. FileSystem Menue 


<B>rett/Dateibereich wechseln tFiinde Datel(en) 

<l>nbalt des Dateibereichs <G>roesse/Transferzeit anzeigen 

<A>RC-Pile an/aus <N>eue Uploads anzeigen 

<L>BR-File an/aus <Z>eigen einer ASCII- oder *.?07 Datei 

<S>ende File mit X-/Y-Modem (Upload) (Benutzer —> CTBBS) 

<H>ole File mit X-/Y-Modem (Download) (CTBBS —> Benutzer) 

Die anderen Menues: <M>essagesystem <U>tilities 

<E>nde (logoff) 


67-FileSystem LOGIN [7 = Menue]> B CFK 


Dateibereich: CPK FileB: 13 

Belegt: 143K 


12K | USERCOPY.COM 3K 

AUTO 

. LBR 

4K 

KERMIT -LBR 

19K i 

SWEEP 

■ COM 

CRUNCH 

. LBR 

13K 

MACTOOLS. ARC 

45K ! 

TTT 

.CCM 

6K ! 

CUBE 

.LBR 

10K 

NEWLU .CQM 

15K : 

UKM7 

• COM 

8X ; 

INHALT 

.LBR 

5K 

RUN .BAS 

2K ; 

UNEBA 

• COM 

1K | 


67-FileSystem CPM [7 = Menue]> M 

67-MessageSystem POST [7 = Menue]> L 

Lesen Such Option <AXEXGXNXSXQX?> > A 

Oeffentlicher Brief #114 [POST] vom: 16:51 Sonntag 9-Okt-88 
Von: BERTHOLD BOLLINGER 
An: ALLE 

Betr.: Nullen nach CR... 


Le3en <J><N><FXQXV><A><?> > J 

Zur Information fuer alle, die (wie ich) gelegentlich etwas "verbogene" 
Menues auf dem Bildschirm haben: 

Dieses Mailboxprogramm verfuegt ueber (fuer einen Z80-Rechner) recht 
schnelle I/O-Routlnen. Wer einen relativ langsamen Rechner als 
DFUE-Terminal verwendet, kann unter Umstaenden erleben, dass am 
Zeilenanfang manchmal Zeichen verlorengehen und die Menues dadurch 
entstellt oder schlecht leserlich werden. 

Abhilfe: im utilitles-System den Menuepunkt <p>arameter anwaehlen und 
die Anzahl der <N>ullbytes nach CR/LF erhoehen (z.B. auf 5-6). Die Box 
sendet dann nach jedem CR und LF die entsprechende Anzahl an 
Nullzeichen (chr$(0)), und der Terminalrechner hat Zeit genug seinen 
Zeilenvorschub zu machen... 

Gruss, Berthold. 


65-MessagaSystem POST [? = Menue]> P 


C.T.B.B.S. MessageSyatem Menue 

Briefe! <T>exte zu besonderen Themen 

<L>esen <S>chreiben «Mitteilungen des SysOp 

<B>rett/8riefbereich wechseln <C>AC-Mallboxliate 

OMurzuebersicht Briefe (nur Betreff) s<Y>steminfo 

<l>nhalt Message-System (komplett) 


Die anderen Menues: <F>ilesystem <u>tilities 


<E>nde (logoff) 

65-MessageSystem POST [? = Menue]> U 
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CPC-ANWENDUNG 


ConText (SZSk 

Autor: Matthias Uphotf _ 


Damit das Schreiben wieder Spaß macht 

Der Klassiker: 

ConText CPC - bis heute ungeschlagen in der Gruppe der Textverarbeitungen. 
Dieses Programm besticht vor allem durch seine leichte Anwendungsweise, die 
selbst unerfahrenen Computerbesitzern den Umgang mit einer Textverarbeitung 
möglich macht. 

ConText CPC - das heißt: 

Einfachste Bedienung durch logische Tastaturbelegung; alle Funktionen sind über 
die Control- und eine definierte Taste zu erreichen. 

Funktionen wie EINFÜGEN, FLIESSTEXT BLOCKFORMATIERUNG und KOPIE¬ 
REN sind über Tastendruck aufrufbar und werden in einer Statuszeile angezeigt. 
Mehrspaltiges Schreiben und Textkopieren erleichtern Ihnen die Korrespondenz. 
25 KByte Textspeicher mit insgesamt 5 DIN-A4-Seiten, damit Sie auch lange Briefe 
problemlos erstellen können. 

Voreingestellt für die meisten CENTRONICS-Drucker, durch übersichtliche 
Tabellenprogrammierung anpaSbaran viele EPSON-kompatible Drucker. 
Weiterschreiben während des Drückens, denn 'time is money'. 

Darstellung von Sonderschriften wie VERGRÖSSERN und UNTERSTREICHEN, 
Anzeigen von anderen Schriftarten durch Steuerzeichen. 

Auf Diskette / Kassette gespeicherte Textbausteine sind überall im Text plazierbar. 
Eingebauter Taschenrechner und Kalender, damit Sie den Überblick behalten. 

Dies sind nur einige der Möglichkeiten, die ConText Ihnen als Textverarbeitung 
bietet. 

Der benötigte Hardware-Aufwand ist gering. 

Sie brauchen nur einen CPC 464 / 664 oder 6128 und einen Drucker. Alles andere erklärt 
Ihnen die ausführliche deutsche Bedienungsanleitung, die dem Programm beiliegt. 


Und wo glbt’s ConText CPC ? 

Bei DMV zu bestellen als 

3 “-Diskette 
Kassette 


TurbO-DATA-CPC 

Volldampf in der Dateiverwaltung 

Brauchen Sie ein neues Adreßbuch oder Telefonverzeichnis? 
Müssen Sie Ihre Sammlungen von Briefmarken, Schallplatten, 
Dias oder anderen Schätzen sortieren? Alles kein Problem, wenn 
Sie für Ihren CPC eine universelle Dateiverwaltung haben, und die 
gibt’s jetzt beim DMV: 

Turbo-DATA-CPC ist die universelle Dateiverwaltung 
für jede Gelegenheit, mit der Sie problemlos Über¬ 
blick und Ordnung in alle Ihre Daten bringen kön¬ 
nen. Dabei helfen Ihnen die vielfältigen Funktionen 
von Turbo-DATA-CPC: 

- Universell durch veränderbare Ein- und Ausgabemasken 

- Blitzschnelle Suchfunktionen durch Indexfelder 

- Dateikapazität bis maximal 80 verschiedene Felder 

- Bis zu 19 Felder gleichzeitig auf dem Bildschirm sichtbar 

- Besonders schnelle und umfangreiche Sortierfunktion 

- Eigene Formatierroutine mit extrem hoher Kapazität 

- Zweiteilung des Bildschirms in Status- und Arbeitsfeld 

- Deutscher Zeichensatz und deutsche Tastaturbelegung 

- Komplette Druckroutinen, auch für Etikettendruck 

Hardwarevoraussetzung: CPC 464/664/6128 
mit einem Diskettenlaufwerk 

Ganz gleich, was Sie zu archivieren haben, Turbo-DATA-CPC ist 
in jedem Fall die richtige Wahl. 


59,- DM' 
4S,- DM' 


DM 69, 


Copyshop 


Das universelle Hardcopy-Programm 
für CPC 464/664/6128 
Autor: Matthias Uphoff 


ER 0 


Copyshop im Detail: 

- Hardcopy in 4 (!) Formaten: DIN A4, DIN A5, 13,5x8,5 cm und 21,5 x 
13,5 cm - superschnelle Hardcopy-Routine: DIN A4 in ca. 4 Minuten (DMP 
4000) - arbeitet in allen drei Modes - Anpaßmenü für JEDEN Epson- 
kompatiblen Drucker - läuft ebenfalls mit den Seikosha-Druckern GP-500 
CPC, GP-550 CPC und GP-1000 CPC - Anpassung an Drucker möglich, 
die mit 1280 Punkten pro Zeile arbeiten, z.B. CPA-80 GS - Okimate ML 182 

- Anpassung kann beim Verlag angefordert werden - Anpassungauch 
für Drucker möglich, die die Bitbild-Bytes verkehrt herum drucken (das MSB 
unten statt oben), z.B. NEC P2-Pinwriter. - 32 Farbraster über Menü wähl¬ 
bar - Grafikeditor - komfortable Pulldown-Menüs - Schnelle Fill-Routine 

- beliebige Ausschnittvergrößerungen - Bildschirm invertieren - selbst- 
relozierende Hardcopy-Routinen für eigene Programme - neue Save- und 
Load-Routinen erkennen automatisch Mode und Farbwerte - Freezer - 
saved auf Tastendruck Screenshots aus laufenden BASIC-Programmen, 
die anschließend ausgedruckt werden können. 

Und die Weltneuheit: Hardcopy-Simulation auf dem Bildschirm! 

Sie können sich Ihre Hardcopy vor dem endgültigen Ausdruck auf dem Bildschirm ansehen! 


3“-Diskette 


49,- DM' 


SPECIAL OfFERsl 

für CPC 464-664-6128, nur auf 3“- Disketten 

Original CPC-Software im Paket 
zu stark herabgesetzten Preisen 

DISKSORT-STAR 

Leistungsstarke Diskettenverwaltung, die keinem CPC- 
Benutzer fehlen sollte. DISKSORT-STAR verwaltet, archiviert, 
katalogisiert, druckt,... Ihre Diskettensammlung auf einfachste 
Weise. Neben der reinen Diskettenverwaltung ist unter ande¬ 
rem noch ein kompletter Diskettenmanager enthalten. Auch in 
puncto Bedienungskomfort ist DISKSORT-STAR kaum zu 
schlagen. 

STAR-MON 

Das Entwicklungssystem für Profis 

• Assembler • Editor • Disassembler 

• Monitor • vier Breakpoints • Trace- 
Funktion • Bankswitch • Memory 
Dump • Diskettenmonitor • u.v.m. 


SPECIAL OPFER j 

No. 2 

v!«r Proprewm* 


CREATOR-STAR 

Ein Trickfilmdesigner für alle Hobby¬ 
regisseure auf dem CPC! 

• Sprite-Designer • Laufschrift • Utili¬ 
ties • Kulissendesigner • Sprites mit 4 
Unterpositionen • Verbinden von Sprites 

• Kulissen auch übereinandergeiegt • 

rij.; .. j,= Eigene Programmiersprache mit Editor 

UIVI Oy und Compiler 

DESIGNER-STAR 

Grafikprogramm, mit dem man Bildschirmgrafiken komfortabel 
erstellen kann. Hilfsmenü auf Tastendruck - kein Joystick oder 
Maus notwendig. 


Unabhängig von der Anzahl der bestellten Programme berechnen wir für das Inland 4,- DM bzw. für das Ausland 6, - DM Porto und Verpackung. 

Bitte benutzen Sie den Bestellcoupon auf Seite 7. 

PMV-Verlag - Postfach 250 • 3440 Eschwege 












Bericht 


auf den Preis achten. So gibt es z.B. ein 
Public-Domain-Programm, Modem 
Executive (MEX), welches klare Vorteile 
bietet (der Autor arbeitet selbst damit): 
Erstens ist es kostenlos, weil eben Public 
Domain, und zweitens ist es direkt für 
den Einsatz auf den CPCs vorgesehen (es 
läuft auf jedem CPC unter CP/M 2.2 mit 
dem im Handel erhältlichen Amstrad-In- 
terface). Des weiteren unterstützt es die 
Modem-Funktionen wie automatische 
Wahl, Telefonnummernregister, XMo- 
dem, YModem, Online-Help usw. 

Glossar 

RS 232 C 

Amerikanische Schnittstellennorm. Sie 
beinhaltet: 

a) die funktionellen Anforderungen an 
die Schnittstelle zwischen DEE und DÜE 
sowie 

b) die elektrischen Eigenschaften der 
Schnittstellenleitungen. 

a) DIN 66 020 Teil 1 (CCITTEmpfeh- 
lung V.24) 

b) DIN 66 259 Teil 1 (CCITTEmpfeh- 
lung V.28) 

DEE 

Datenendeinrichtung. Das ist das Daten¬ 
endgerät bzw. der Rechner. Die englische 
Bezeichnung ist DTE (Data Terminal 
Equipment). 


DÜE 

Datenübertragungseinrichtung. Das ist 
das Modem. Die englische Bezeichnung 
ist DCE (Data Communication Equip¬ 
ment). 

CCITT 

Comite Consultatif International Telegra- 
phique et Telefonique. Das ist ein inter¬ 
nationaler, beratender Ausschuß für 
Standardisierungen im Übertragungs¬ 
dienst. 

UART 

Englische Abkürzung für Universal 
Asynchronous Receiver Transmitter. Das 
ist der eigentliche Umwandler innerhalb 
der seriellen Schnittstelle. Beispiele für 
einen UART sind unter anderem die Z80 
SIO, die Z80 STI oder der Z80 DART. 
Modem 

Ein Kunstwort aus MOdulator und DE- 
Modulator. Ein Modem hat die Aufgabe, 
digitale Daten (vom Rechner) in analoge 
umzuwandeln, um sie als Tonfrequenzen 
in das Telefonnetz zu schicken. Auf der 
anderen Seite wandelt es die Tonfrequen¬ 
zen wieder zurück in digitale Signale. 
Vereinfacht kann man sagen, daß jedem 
logischen Wert eine bestimmte Frequenz 
zugeordnet ist. 

Simplex 

Bezeichnung für eine Übertragungsart, 
bei der die Daten nur in eine einzige 
Richtung übertragen werden. 


Halbduplex 

Bezeichnung für eine Übertragungsart, 
bei der die Daten abwechselnd von der ei¬ 
nen in die andere Richtung übertragen 
werden. 

Duplex 

Bezeichnung für eine Übertragungsart, 
bei der die Daten gleichzeitig in beide 
Richtungen übertragen werden. 

XModem, YModem 

Das sind Übertragungsprotokolle, mit 
denen Daten (nicht nur Texte) gesichert 
übertragen werden können. Diese Proto¬ 
kolle erkennen weitgehend mögliche 
Übertragungsfehler und korrigieren diese 
auch. Die ungesicherte Übertragung bie¬ 
tet indes keine Fehlererkennung oder gar 
Korrektur. 

Literaturverzeichnis 

c’t 12/86, 

Die RS232C-Schnittstelle, 

Heise Verlag 

DIN 66 020 Teil 1, 

CCITT-Empfehlung V.24, 

Beuth Verlag 

DIN 66 259 Teü 1, 

CCITT-Empfehlung V.28, 

Beuth Verlag 

(Marco Pries/jb) 


64-Utllities [7 = Menue]> p 

Parameter <B><CX1 ><S)<P)<Q)<Skt><?> > ? 

Aendern der User Parameter 

<B> Prompt Bell an/aus <L> Zeilen per Seite «Passwort aendern 

<N>ullen nach C/R <S>hift nock an/aus <T>ransferprotckoll 

<Q>uit/Ende 

Alle Parameter werden ahgespeichert fuer spaetere Anrufe. 

Parameter cbxcxlxsxpxQxsxix?) > L 
Gegenwaertige Einstellung Lines per Screen ist 23. 

Neue Einstellung [10-48 oder 99 = ohne Pausen]» 99 
Parameter <B><C><L><N><P><QXSXT><?> > N 
Gegenwaertige Einstellung: 2 Nullen. 

Wieviele Nullen benoetigst Bu [0-9]? > 0 
Parameter <bxcxlxnxpxqxsxtx?> > Q 

63-utilities [? = Menue]> M 

63-MessageSystem POST [? = Menue]> C 


KAILBOXEN KOELN (c) CAC e.V. Verein fuer TeleKommuniKation Vers.01.11.88/11. 


VWahl! 

TelNr. 

MailBoxen 24 H Online 

System Info 

! PRO! 

NET 

SYSOP 

0221 ! 

210515 

KomKom Multi User 

WDR Computer ClubiCPM! 


Cristia 

0221 ! 

244054 

Silly MBox 

Atari Download 

!AST! 

Zer 

Erwin 

0221 ! 

361634 

Senil 

MagicNet Koeln 

'IBM! 

MAG 

Gerd 

0221 ! 

394976 

Cream II Cologne 

ST Info+Software 

'AST! 


Gerd 

0^21 ! 

426760 

Sunil 

8KP CAC CCC IPN 

! IBM! 

PCN 

Georgie 

0221 ! 

511087 

Fool 

Foolish POWER 

! IBM! 

PCN 

Fool 

0221 ! 

512640 

Hacker Box Koeln 

CAC/HARDWARE-LAB 

! IBM! 

PCN 

Kan:5 

0221 ! 

558336 

BITDschungel LINKS-K 

CAC/LINKS/CCC/BHP!IBM! 

ZEN 

Peter 


621278 

Linex 

VKM Box 

1 AMI ! 


Wolfgan 

0221 ! 

626327 

DW-Hedienservice 


! IBM! 


Dwbox 

0221 ! 

693767 

Nomex - RBBS 

Clipper/DBase 

! IBM! 


Josef 

0221 1 

810323 

PMK - Dbase/Clipper 

Keine 300 Baud 

! IBM! 

PCN 

Peter 

0221 ! 

856888 

Kibo 

VKM Box 

! AMI! 


Seiner 

0221 ! 

882898 

MILKA 

CAC/Melnungen 

! IBM! 

PCN 

Gerd 

0221 ! 

896323 

Macro 

Tus Ir.fo 

! AMI! 


Norbert 

0221 ! 

1616284 

Saturn MailBox Koeln 

Keine 300 BaudlK 

! IBM! 

PCN 

Peter 

0221 ! 

7393515 

FOTO-BOX 

Foto,IBM,Infos 

! IBM! 

PCN 

Elmar 

0221 ! 

8903821 

CTBBS 

PICS VERS. 1.6 d 

!CPC! 


..othar 

0214 ! 

45834 

LOS Leverkusen Online 

MagicNet Server 

! IBM! 

MAG 

Poland 

021731 

31748 

CBM 

Jetzt 24 Stunden 

! AMI ! 


Michael 

02174! 

3371 

Bobi 1 Burscheid 

SlectricCircus 

! AST! 


Job 

02203! 

24448 

DISK 

18 h bis 07 h 

'.IBM! 

PCN 

Jackv 

02203! 

25838 

A3C 

FreeWareLine 

! AST! 

ZER 

Uwe 

022031 

26860 

Dataserv 

SystemBeratung(K)!IBM! 


3erretz 

02203! 

33021 

PAL 

Software Line 

! IBM! 

PCN 


02203! 

33133 

CREATIV MailBox 0 

CAC/IPN/APPLE 

IIBM! 


Gregor 

02204! 

57102 

PRO NET 1 - CAC - 

ProNet-cologne 

!IBMI 


Boris 

02234! 

63321 


VKM - BOX 

! C64! 


Jan 

02234! 

71292 

Plakat Box Koeln 

Restaurantinfo 

! IBM ! 


Ralf 

02236! 

63371 

Magic Mountain 

Endlich wieder da!AST! 

ZER 

Jochen 

02236! 

81924 


Unbekannter HASS 

! 128 ! 



02237! 

8459 

HartBox 

Kerpen - Brueggen'.IBM! 

PCN 

3ernd 

02273! 

2637 

Camel 

Spiele Box 

! IEM! 

PCS 

Horst 

02273! 

55782 

Fantasy 

Das Paradis 

! AMI ! 


Samray 








VWahl! 

TelNr. 

MailBoxen 24 H Online 

System Info 

!?RG! 

NET 

SYSOP 

02051! 

21568 

VOPATEPATU 

Velbert 

! AST ! 

ZER 

Peter 


0201 ! 

256885 

ELOI's Mailbox System 

Essen 

! AST! 

ZER 

Frank 

0201 ! 

627018 

Milliways 

Essen 

'IBM! 

MAG 

Ratrick 

0201 ! 

790957 

Megabox 

Essen 

! IBM! 

MAG 

Arnold 

0202 ! 

463678 

Ronsdorfer Box 

Wuppertal 

! IBM! 

ZEH 

Horst 

0202 ! 

464259 

MSWS 

Wuppertal 

'IBM! 

PCN 

Axel 

0202 ! 

473086 

ToelleTurm 

Wuppertal 

! IBM! 

ZER 

Kerstin 

0202 ! 

597645 

Wuppertaler Daten Box 

FastNet-Control 

! AMI! 


Klaus 

0202 ! 

661051 

Wuppertaler Muell Syst 

Wuppertal 

!C64! 


Rowerb 

0202 ! 

789207 

Vohwinkler Mailbox 

Wuppertal 

! C64! 


Knox 

0202 1 

4660234 

Underground Network 

LAN/FastNet 

! IBM! 


Volker 

02151! 

476567 

KDWDB Krefeld /BTX/CAC 

Krefeld CAC 

! IBM! 


Karl 

022351 

43799 

AM1GA BOX Erftstadt 

20-07 Uhr 

! AMI! 


L-B-A 

02241! 

404403 

Midimail 

Troisdorf 

! AST! 

ZER 

Rene 

02244! 

5552 

Public Mail Service 

OberPleis 

! AMI! 


Juergi 

0228 ! 

254020 

Maus 

Bonn 

IIBM! 

MA'J 

Axel 

0231 ! 

334346 

FORUM 

Dortmund 

! IBM! 

PCN 

Frank 

02324! 

83368 

KKB 

Hattingen 

! IBM! 

MAG 

Kim 

0234 ! 

412240 

PENTA 

Bochum 

! IBM! 

PCN 

Ralf 

02361! 

29654 

Nomex 

Recklinghausen 

IIBM! 


Rolf 

02351! 

67335 

FANTASY 

Recklinghausen 

! IBM! 

PCN 

Susi 

02407! 

18326 

KICK 

Kohlscheid 

! AMI! 


Uwe 

02461! 

53606 

JuelicherlnfoService 

Juelich 

! 128! 


Willi 

02761! 

5900 

SUESAU 

Olpe 

! IBM! 


Gregor 

030 ! 

4542336 

CPM 

AMATEURFUNK 

! IBM! 

PCN 

Chmie 

030 ! 

6818679 

Info Box Berlin 

Berlin/IPN 

IIBM! 


Heino 

06201! 

66995 

BMW 

Weinheim 

! IBM! 

PCN 

Claus 

0631 ! 

90469 

PC-INFO 

Kaiserslautern 

IIBM! 

PCN 

Klaus 

06525! 

7321 

EifelBox 

Irrel/Eifel 

! IBM! 

PCN 

Michael 

0681 ! 

582627 

BCB 

SAARbruecken 

! IBM! 

PCN 

3enny 

0681 ! 

635480 

NEBOSA 

SAARbruecken 

! IBM! 

PCN 

Kurt 

069 ! 

4990769 

The Bungeon - Amiga 

Frar.kFurt 

! AMI! 


Mad Max 

089 ! 

5706448 

LINKS 

Muer.chen 

! IBM! 

ZER 

Taus 

09120! 

9939 

JAT Mailbox 

Leinburg 

'IBM! 


Achim 

0032 ! 

87866321 

PAL-PDB 

Belgien 

IIBM! 

PCN 

Ralf 

0041 ! 

31460001 

TRANSFORM 

Schweiz/Bern 

IIBM! 

PCN 

Bernd 

0041 ! 

45211488 

INVESTRA 

Schweiz/Xaltbach 

IIBM! 

ZER 

Gino 


- + - + -+ - +-+-+- 

MAILBOXEN KOELN (C) CAC e.V. Verein fuer TeleKommuniKation 01.11.88/11.01 
--- < - 


Info:HARDWARE LAB 0221-515529 HANS ist von 15-22 Ohr zu erreichen:CAC< 

- > - . -- 

- ■> PCNet - PCN - ZERBEHUSNET - ZER - MAGICNet MAG - MAUSNET - MAO<- 


■> USERTKSFFEN :Am Samstag dem 12.11.19B8 im Juger.dPark unter der«- 

■> ZooBruecke, SachsenbergStrasse, 5000 Koeln 21 (Deutz) 14-19 h <- 

> - <- 

•> AN ALLE SYSTEMBETREIBER - Bitte sendet Sure WERBEZEILE in die <- 

■> SONIL - 0221/426760 PCNSt Koeln - AN ALLS SYSTEMBETREIBER - <- 

> - <- 

■> CAC e.V.- Verein fuer Telekommunikation - :Eupener Stra33e 161<- 

•> 5000 Koeln 41: Tel (Buero): 0221-497 28 83: 10:00 - 18:00 Uhr <- 


(o) CAC e.V. & Georgie : Liste ausörucken und gebrauchen.1101880111 <-- 


< Freeware by Computer Artists Cologne e.V. - Verein fuer Telekommunikation 

< Nicht fuer kommerziellen Gebrauch (C) Georgie;CAC e.V. "Lass mich REISEN 


59-MessageSystem POST [? = Menue]> E 

Hast Du noch einen Kommentar an den SysCp [j/N] ? > 

Logoff: 02:19 Sonntag 13-NOV-68 
Verbindung dauerte: 11 Min. 

Auf Wiedersehen, MARCO! Ruf mal wieder an... _ 

Abb.6.: Die CTBBS-Mailbox hat ein etwas anderes Aussehen als die anderen 
Mailboxen. Näheres erfahren Sie im Text 
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Tips & Tricks 


Fast wie im Fernsehen 

Alternativer Bildschirm¬ 
aufbau mit Screenflutsch 

Nehmen wir an, Sie haben ein Programm geschrieben, 
welches sich zwecks hübscherer Darbietung eines Titel¬ 
bildes bedient. Nehmen wir weiter an, Sie haben be¬ 
schlossen, daß das Bild effektvoll erscheinen soll. Mit 
vorliegendem Programm stellen wir Ihnen eine Möglich¬ 
keit vor, dieses Problem zu lösen. 

Der Effekt, den Screenflutsch Ihnen bietet, ist ein seichtes Ein¬ 
blenden der Grafiken. Er wird dadurch erreicht, daß vor dem 
Laden des Bildes alle Farben auf den Wert 0, also schwarz, ge¬ 
setzt werden. Danach werden die einzelnen Farbstifte der Reihe 
nach mit FarbzuWeisungen bedacht. Die einzelnen Fragmente 
der Zeichnung, die mit einem Farbstift gemalt wurden, ändern 
so in vom Benutzer bestimmbaren Abständen ihre Farbe, bis sie 
das endgültige Aussehen erreicht haben. 

Das Programm fragt nach Start einige Variablen ab, durch die 
der Modus, die Verzögerungszeit und der Name der Bilddatei 
bestimmt werden. 

Sollten Sie diese Routine in eigenen Programmen gebrauchen, 
so können Sie Zeilen 20-60 weglassen, müssen allerdings die 
Variablenzuweisungen im Programm vornehmen. 

Um das Programm nach dem Abtippen testen zu können, sollte 
sich ein beliebiges Bild (übliche 17 kByte Binärdatei) auf dem 
Datenträger befinden, da das Programm ohne derartiges “Fut¬ 


ter“ selbstverständlich nicht läuft. Wenn Sie allerdings alle Vor¬ 
bereitungen richtig getroffen haben, ja dann gibt es was zu se¬ 
hen, eben fast wie im Fernsehen. 

(Stefan Westner/jf) 


für 464-664-6128 

r~ 


10 'Screenflutsch - 1989 by Stefan Westner [1707] 
20 MODE 2:PAPER 0:BORDER 0:INK 0,0:INK 1,2 [3430] 
5 'Zeile 20-60 nur fuer Demozwecke! 

30 INPUT"Weleben Mode [0/1/2]? ";bmode [3196] 

40 INPUT"Welches Bild? ";bild$ [1456] 

50 INPUT"Verzoegerung? ";verz [3076] 

60 IF bmode=l THEN farben=3 ELSE IF bmode= [3826] 

2 THEN farben=l ELSE farben=15 

70 MODE bmode:BORDER 0:FOR i=0 TO farben:I [4131] 
NK i,0:NEXT 'Alle Farben auf 0 setzen 
80 LOAD bild$,&C000 'Bild laden(muss eine [4375] 
17KB-grosse Bildschirmdatei sein) 



90 FOR i=0 TO färben 
0 bis Farbenanzahl 
100 READ c 

en 

110 FOR a=0 TO c 

bis Farbwert durchlaufen 

120 INK i,a 

130 FOR b=0 TO verz 


Schleife von [2824] 
'Farbwert 1 es [ 1290] 
'Farbe von 0 [3119] 

[516] 

'Wartezeit zw [4734] 


isehen einem Farbwechsel 
140 NEXT b 

150 NEXT a 
160 NEXT 1 

170 Farbdaten - Bei Mode 0 sind es 16(0-1 
5), bei Mode 1 sind es 4(0-3) 

180 DATA 26,13,0,15,24,6,16,2,14,1,3,11,10 

,9,18,25 

190 CALL &BB18 


[378] 
[383] 
[375 ] 

[3836 ] 

[2524] 

[389 ] 


Listlng FLUTSCH 



TROPENWALD- VERNICHTUNG, WIESO? 
IST DOCH SO WEIT WEG. 

Irrtum. Der tropische Regenwald reguliert auch unser Klima. 


Der tropische Regenwald wird gnadenlos vernich¬ 
tet. Jedes Jahr eine Fläche, die fast so groß wie die Bun¬ 
desrepublik Deutschland ist. Mit katastrophalen Folgen 
für das Weltklima. Aber auch für die im Tropenwald le¬ 
benden Ureinwohner und Tier- und Pflanzenarten. 


Wenn Sie wissen wollen, wie dertropische Regen¬ 
wald gerettet werden kann, dann füllen Sie den Coupon 
aus. Wir beantworten Ihre Frage, sagen Ihnen, wo wir 
uns noch engagieren, warum Sie uns dabei helfen 
können. 


Ja , ich will von ROBIN WOOD wissen, wie der tropische Regenwald gerettet werden kann. 


käme, Vorname 
Straße 


Weil ich helfen will, lege ich 3 Mark in Briefmarken bei 

Coupon bitte einsenden an 

ROBIN WOOD, Postfach 10 21 22, 2800 Bremen 1 


X 


Wohnort 
dmv 


WOOV 

Gewaltfreie Aktionsgemeinschaft für Natur und Umwelt e.V. 













Programm/Anwendungen 



Timer — Die Weltzeit im CPC 

Eine praktische Anwendung 
für alle Globetrotter 

Sie kennen das Problem: Ihre Geldbörse ist leer, keine Aussicht auf positive 
Eingänge auf Ihr Girokonto und gähnende Leere in Ihrem Kühlschrank. Sie 
stürmen zum Telefon und wählen eine beliebige Nummer in den Vereinigten 
Staaten, in der Hoffnung, der fernmündliche Adressat entpuppt sich als rei¬ 
cher Onkel. 


Meist endet eine solche Aktion damit, 
daß Sie am anderen Ende eine völlig ver¬ 
schlafene und damit nicht gerade freund¬ 
lich gestimmte Person erreichen, deren 
mögliche Antwortsfloskeln an dieser 
Stelle aus ästhetischen Gründen nicht be¬ 
schrieben werden sollten. 

Es dauert meist nicht lange, bis Sie den 
Grund der Entrüstung Ihres erhofften rei¬ 
chen Onkels erkannt haben: die Zeitver¬ 
schiebung. Damit solche Zwischenfälle 
nicht zur Gewohnheit werden, können 
CPC-Besitzer nun auf eine interessante 
Anwendung zurückgreifen, die in der 
Lage ist, die Zeit in jedem nur denkba¬ 
ren Land der Erde zu berechnen und dar- 
überhinaus als Zugabe den Wochentag ei¬ 
nes beliebigen Datums bestimmt. 

Vorbereitungen 

Bevor Timer das erste Mal benutzt wer¬ 
den kann, müssen fünf kurze Program¬ 
me gestartet werden, die die notwendigen 
Daten für das Hauptprogramm erzeugen 
und in Dateien auf Diskette ablegen. Die¬ 
se kurzen Programme tragen die Namen 


NR1.BAS, NR2.BAS, NR3.BAS, 
NR4.BAS und NR5.BAS. 

Es entstehen sieben Dateien, die folgende 
Namen besitzen: 

AFRIKA.DAT 

ASIEN.DAT 

AUSTRAL.DAT 

EUROPA.DAT 

KANADA.DAT 

NORDAM.DAT 

SUDAM.DAT. 

Wenn Timer fehlerfrei laufen soll, müs¬ 
sen letztgenannte Dateien nebst Haupt¬ 
programm TIMER.BAS auf Ihrer Dis¬ 
kette vorhanden sein. 

Ruft man das Programm auf, so gelangt 
man in ein Auswahlmenü, in dem die bei¬ 
den Teilfunktionen von Timer angewählt 
werden können. 

Wochentagbestimmung 

Dieser Teil Timers klärt Sie über den Wo¬ 
chentag eines beliebigen Datums auf. Al¬ 
les, was Sie hier zu tun haben, ist die Ein¬ 
gabe des aktuellen und des gewünschten 
Datums. Dabei haben Sie das Format 


tt.mm.jjjj einzuhalten. Der CPC unter¬ 
sucht zuerst, ob das eingegebene Datum 
auch tatsächlich existiert und bestimmt 
daraufhin den Wochentag des gesuchten 
Datums. 

Das verlangte aktuelle Datum dient da¬ 
bei dem Vergleich mit dem gesuchten und 
sorgt so dafür, daß die Ausgabe auch vom 
Wortlaut her stimmt. Liegt das gesuch¬ 
te Datum in der Vergangenheit, so wird 
das vom CPC vermerkt und so fort. 

Weltzeit 

Die zweite Funktion des Programms be¬ 
steht in der exakten Bestimmung der 
Weltzeit. 

In einem Menü kann der Kontinent ange¬ 
wählt werden, auf dem sich das Land be¬ 
findet, dessen momentane Zeit wir be¬ 
stimmen wollen. Die geographischen 
Kenntnisse nimmt einem der Computer 
hier nicht ab; man sollte schon wissen, 
daß Brasilien in Südamerika zu finden ist 
und nicht etwa schräglinks an Indien an¬ 
grenzt. Nun ist noch die aktuelle Zeit ein¬ 
zugeben, fertig. 

Timer greift nun auf die auf Diskette ge¬ 
lagerten Dateien zurück und bestimmt 
die Zeiten. 

Auf dem Bildschirm erscheint nach kur¬ 
zer Zeit eine Tabelle, der wir unsere ge¬ 
wünschten Informationen entnehmen 
können. Alle wichtigen Länder des be¬ 
treffenden Erdteils werden in alphabeti¬ 
scher Folge inklusive der augenblickli¬ 
chen Uhrzeit aufgelistet. 

Da bei einigen Kontinenten die Anzahl 
der Länder doch erhebliche Dimensio¬ 
nen erreichen, sind diese zweckmäßig in 
sinnvolle Gruppen aufgeteilt. So erhält 
man bei der Wahl des amerikanischen 
Kontinentes zuerst die Länder Kanadas, 
dann die Nordamerikas und schließlich 
die Südamerikas präsentiert. 

Sind alle vorhandenen Daten an den Be¬ 
nutzer weitergegeben, so hat er die Mög¬ 
lichkeit, das Programm zu beenden oder 
einen Neustart auszulösen. 

Timer ist sehr einfach zu benutzen und 
bietet eine Menge an Informationen. 

Wer etwas firm in der Programmierung 
des CPCs ist, der kann das gut lesbare 
Programm nach eigenen Wünschen mo¬ 
difizieren oder auch erweitern. Denkbar 
ist eine Veränderung der Hilfsprogram¬ 
me, die alle Daten enthalten und die für 
Timer wichtigen Dateien auf Diskette 
schreibt. Will man beispielsweise die 
Länder Europas um Bayern ergänzen, so 
ändert man in Zeile 30 des Programms 
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Programm/Anwendungen 


NR2.BAS die Dimensionierungen auf 
26. In Zeile 50 wird die Laufanweisung 
ebenfalls auf 26 erhöht. Nun fügen wir 
eine Datazeile ein: 

125 DATA Bayern,0 

Die 0 steht für die Zeitveränderung. 


Da Bayern ja bekanntlich die gleiche 
Uhrzeit besitzt wie das restliche Europa, 
ist hier keine Zeitveränderung (also 0) zu 
vermerken. Schon ist die Ergänzung ge¬ 
tätigt und das Programm um eine Infor¬ 
mation reicher. 


Hinweis: 

Benutzen Sie einen CPC 464, so müssen 
Sie im Listing den “FILL“Befehl heraus¬ 
nehmen, oder Sie benutzen den Emula¬ 
tor (im Heft enthalten). 

(Michael Peter/jf/cd) 


für 464-664-6128 
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60 
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110 

120 

130 

140 

150 


TIMER 

ein Programm 
zur Wochentags-Bestimmung 
und 

Welt 2 eitanzeige 
von 

MICHAEL PETER 


»Copyright 1939 DMV-Verlag V 1.0 * 

**#********#****»##*******,,.,.****** 

160 DIM aa$(100),t(100) 

170 SYMBOL AFTER 250 

180 SYMBOL 250,11,11,11,11,11,11,11,11 
190 SYMBOL 251,208,208,208,208,208,208,208 
, 208 

200 SYMBOL 252,251,99,55,27,13,6,3,1 
210 SYMBOL 253,223,198,236,216,176,96,192 
128 

220 pfei1$=CHR$(250)+CHR$(251)+CHR$(10)+CH 
R$(8)+CHR$(8)+CHR$(252)+CHR$(253) 

230 nul1$=CHR$(32)+CHR$(32)+CHR$(10)+CHR$( 
8)+CHR$(8)+CHR$(32)+CHR$(32) 


Menue 


240 
250 
260 1 

270 RESTORE 290:MODE 1:FOR i=0 TO 3:INK i, 
0 : NEXT 

280 FOR i=l TO 2:READ x,y:PL0T x,y,1:FOR i 
i=l TO 4:READ x,y:DRAW x,y:NEXT ii,i 
290 DATA 1,1,1,399,639,399,639,1,1,1,4,4,4 
,395,635,395,635,4,4,4 

300 LOCATE 14,3:PRINT "HAUPT - MENUE":FOR 

1=1 TO 2:READ x,y,a,c:LOCATE x.y.PRINT STR 

ING$(a,CHR$(c)):NEXT:FOR i=l TO 6:READ x,y 

,c:LOCATE x,y:PRINT CHR$(c):NEXT 

310 DATA 14,4,13,154,14,2,13,154,13,2,150, 

27,2,156,27,4,153,13,4,147,13,3,149,27,3,1 

49 

320 LOCATE 16,8:PEN 3:PRINT "Wochentag":y1 

=296:y2=264:x=160:i=1:GOSUB 350 

330 LOCATE 16,12:PEN 1:PR INT "We1tzeit":y1 

=232:y2=200:x=144:1=1:GOSUB 350 

340 LOCATE 16,16:PEN 1 :PRI NT "Ende":y1=168 

:y2=136:x=80:i=1:GOSUB 350:GOTO 370 

350 PLOT 230,y1,i:DRAWR x,0:DRAWR 0,-32:DR 

AWR -x,0:DRAWR 0,32:PLOT 227,y1+4:DRAWR x+ 

7,0:DRAWR 0,-40:DRAWR -(x+7),0:DRAWR 0,40 

360 RETURN 

370 PLOT 217,310,1:DRAWR 187,0:DRAWR 0,-18 
5:DRAWR -187,0:DRAWR 0,185:PLOT 213,314:DR 
AWR 195,0:DRAWR 0,-193:DRAWR -195,0:DRAWR 
0,193 

380 MOVE 233,y1+10:FILL 2:y1=232:y2=200:x= 
144:i=0:GOSUB 350:y1=168:y2=136:x=80:i=0■G 
OSUB 350 

390 LOCATE 10,22:PRINT 
TER > “ 

400 FOR i=1 TO 6:READ : 

NT CHR$(c):NEXT 
410 DATA 9,21,150,32,21,156,9,23,147,32,23 
,153,9,22,149,32,22,149 

420 LOCATE 10,21:PRINT STRING$(22,CHR$(154 
)):LOCATE 10,23:PRINT STRING$(22,CHR$(154) 

430 INK 0,0:INK 1,26:INK 2,13:INK 3,10,20: 
BORDER 10:SPEED INK 2,2 
440 t=l 


Listing TIMER 


'Cursortasten + < EN 
,y,c:LOCATE x,y:PRI 


[1391 ] 
[175] 
[93] 
[175] 
[591 ] 

[1830] 
[ 189] 

[1026] 
[175] 
[269] 
[175] 

[ 1307] 
[175] 
[1719] 
[ 1391] 
[ 752 ] 

[ 1398] 
[2080] 
[2853] 

[2189 ] 
[2103] 

[3860] 

[4992] 

[117] 

[1057] 

[117] 

[2557] 

[4799] 

[3007] 

[9095] 


[4636] 

[4518] 
[4263] 
[3840] 
[5672] 


[ 555 ] 

[ 7680 ] 


[6145 ] 

[2806 ] 
[ 3979 ] 
[3145] 
[3982] 

[1988] 
[ 276 ] 


450 CALL &BB18 

460 IF INKEY(2)=0 THEN 480 ELSE IF IN K E Y(1 
8)=0 THEN 540 ELSE 450 
470 GOTO 450 

480 IF t=l THEN t=2:PEN 1:LOCATE 16,8: :PRI 
NT "Wochentag":yl=296:y2=264:x=160:i=0:GOS 
UB 3 5 0: LOCATE 16,12:PEN 3-.PRINT "Weltzeit" 
:yl=232:y2=200:x=144:i=1:GOSUB 350 ELSE 50 
0 

490 GOTO 450 

500 IF t=2 THEN t=3:PEN 1:LOCATE 16,12:PRI 
NT "Weltzeit":yl=232:y2=200:x=144:i=0:GOSU 
B 350:LOCATE 16,16:PEN 3:PRINT "Ende":yl=l 
68:y2=136:x=80:i=l:GOSUB 350 ELSE 520 
510 GOTO 450 

520 IF t = 3 THEN t=l:PEN 1 :LOCATE 16,16:PRI 
NT " Ende":y1 = 168:y2=136:x = 80:i=0:GOSUB 350 
:LOCATE 16,8:PEN 3:PRINT "Wochentagy1=29 
6:y2=264:x=160:i=1:GOSUB 350 ELSE 450 
530 GOTO 450 

540 IF t=l THEN 550 ELSE IF t=2 THEN 1210 
ELSE IF t=3 THEN CALL 0 ELSE 450 
550 ' 

560 ' Wochentag 
570 ‘ 

580 MODE 1 :PEN 1 

590 LOCATE 7,1:PRINT CHR$(150);STRING$(25, 
CHR$(154));CHR$(156):LOCATE 7,2:PRINT CHR$ 

(149):LOCATE 33,2:PRINT CHR$(149):LOCATE 7 
,3:PRINT CHR$(14 7) ;STRING$(25,CHR$(154 ) ) ; C 
HR$(153) 

600 LOCATE 9,2:PRINT "Wochentags - Berechn 
ung" 

610 ' 

620 ' AKTUELLES DATUM 
630 ' 

640 LOCATE 6,5:PRINT "Bitte aktuelles Datu 
m eingeben“ 

650 INK 3,12:PLOT 80,312,3:DRAWR 464,0:DRA 
WR -232,-30:DRAWR -232,30:MOVE 105,310:FIL 
L 3 

660 PRINT CHR$(2):LOCATE 20,9:INPUT dat$:T 
AG:MOVE 232,272:PEN 1:PRINT dat$ ; " 

;:TAGOFF 

665 kont$=dat$:fehler=0:GOSUB 691:IF fehle 
r=1 THEN 580 
670 1 

680 1 FEHLEINGABE 

689 ' 

690 GOTO 700 

691 IF ((MID$(kont$,1,2)="30") OR (MID$(ko 
nt$,1,2)="31")) AND MID$(kont$,4,2) = "02 " T 
HEN fehler=l 

692 IF MID$(kont$,1,2)="31 
,4,2)="04" THEN fehler=l 

693 IF MID$(kont$,1,2)="31 
,4,2)="06" THEN fehler=l 

694 IF MID$(kont$,1,2)="31 
,4,2)="09" THEN fehler=l 

695 IF MID$(kont$,1,2)="31 
,4,2)="11" THEN fehler=l 

696 RETURN 

700 IF LEN(dat$)< >10 THEN GOSUB 710:GOTO 6 
60 ELSE TAG:MOVE 232,272:PRINT STRING$(10, 
TAGOFF:LOCATE 6,5:PRINT STRING$(30," 

"):GOT 0 750 

710 LOCATE 1,20:PRINT " Bitte das Datum v 
ollstaendig angebenLOCATE 11,22:PRINT " 
Beispiel: 10.01.1988":FOR i=l TO 2500:NEXT 
:LOCATE 1,20:PRINT STRING$(39,” ");:LOCATE 
11,2 2:PRINT STRING$(20," ");:TAG:MOVE 232 
,272:PRINT STRING$(10," ");:TAGOFF:RETURN 
720 ' 

730 ' EINGABE 
740 ' 

750 LOCATE 6,5:PRINT "Bitte gesuchtes Datu 
m eingeben" 


Listing TIMER 


AND MID$(kont$ 
AND MID$(kon t$ 
AND MID$(kon t$ 
AND MID$(kont$ 


[ 389 ] 

[3091] 

[442] 

[11407] 


[ 442 ] 

[ 8526 ] 


[ 442 ] 

[10236] 


[ 442 ] 
[2443] 

[117] 

[ 1054 ] 
[117] 

[1036] 
[9063] 


[3670] 

[117] 

[ 1210 ] 
[117] 

[5584] 

[ 4659 ] 


[4273] 


[4060] 

[117] 

[ 1089 ] 
[117] 

[ 425 ] 

[4541] 


[2834] 

[2426] 

[2826] 

[2599 ] 

[ 555 ] 

[9123 ] 

[14529] 


[117] 
[925 ] 
[117] 

[4942] 
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760 INK 3,12:PLOT 80,312,3:DRAWR 464,0:DRA [4659] 
WR -232,-30:DRAWR -232,30:MOVE 105,310:FIL 
l 3 

770 PRINT CHR$(2):LOCATE 20,9: PRINT" [10635] 

":LOCAT E 20,9:INPUT datum$: kon t$ = d 
atum$:fehler=0:GOSUB 691:IF fehler=l THEN 
750 ELSE TAG:MOVE 232,272:PEN 1:PRINT datu 
m$;" ";:TAGOFF 

780 ' [117] 

790 ' FEHLEINGABE [1089] 

800 1 [117] 

810 IF LEN(datum$)< >10 THEN GOSUB 710:GOTO [10186] 
770 ELSE T AG:MOVE 232,272:PRI NT STRING$(1 
0," TAGOFF:LOCATE 6,5:PRINT STRING$(30 


820 

):GOTO 850 


[117] 

830 

' BERECHNUNG 


[ 895 ] 

840 

• 


[117] 

850 

c$=MID$(datum$,7,2):' 

CENTURY 

[ 1841] 

860 

d$=MID$(datumS,9,2):' 

YEAR 

[1746] 

870 

t$=MID$(datum$,1,2):' 

DAY 

[ 1679 ] 

880 

m$=MID$(datum$,4,2):' 

MONTH 

[ 362 ] 

890 

c=VAL(c$):t=VAL(tS) 


[ 1808] 

900 

m=VAL(m$):IF m=l THEN 

m=11:GOSUB 1090 

[5475] 


ELSE IF m=2 THEN m=12:GOSUB 1090 ELSE m=m- 
2 :d = VAL(d$) 

910 w=t+(2*m)+INT(((3*m)-l)/5)+d+INT(d/4)+ [3786] 
INT(c/4)-(2*c ) 

920 day=w MOD 7 [378] 

930 IF day=0 THEN day$="Sonntag" ELSE IF d [16722] 
ay = 1 THEN day$="Montag" ELSE IF day = 2 THEN 
day$="Dienstag" ELSE IF day=3 THEN day$=" 
Mittwoch" ELSE IF day=4 THEN day$="Donners 
tag" ELSE IF day=5 THEN day$="Freitag" ELS 
E IF day=6 THEN day$ ="Samstag" 

940 GOSUB 1140 [823] 

950 LOCATE INT((40-(20+LEN(day$)+LEN(a$))) [5876] 

/2) ,12:PRINT "Der ";datum$;“ " ;a$; " ein "; 
day$ j"." 

960 LOCATE 1,25:PRINT CHR$(24);" Ende [4582] 

Weltzeit Neustart ";CHR$(24); 

970 x = 6:X1=6 [974] 

980 LOCATE xl,23:PRINT null$:LOCA T E x,23:P [3720] 

RINT pfei1 $ 

990 CALL &BB18 [389] 

1000 IF INKEY(1)=0 THEN GOTO 1010 ELSE IF [5934] 

INKEY(8]=0 THEN GOTO 1020 ELSE IF INKEY(18 
) = 0 THEN GOTO 1030 ELSE 990 

1010 IF x = 6 THEN x1=x:x=18:GOTO 980 ELSE I [6084] 

F x = 18 THEN xl = x:x = 32:GOTO 980 ELSE IF x = 3 
2 THEN xl=x:x=32:GOTO 980 

1020 IF x=32 THEN x1=x:x=18:GOTO 980 ELSE [6829] 
IF x =18 THEN xl = x:x=6:GOTO 980 ELSE IF x=6 
THEN xl=x:x=6:GOTO 980 

1030 IF x= 6 THEN CALL 0 ELSE IF x=32 THEN [ 2737] 


MODE 1:GOTO 270 ELSE 1180 

1040 LOCATE 1,25:PRINT STRING$(40," ");:GO [2181] 
TO 750 

1050 END [110] 

1060 ' [117] 

1070 ' UNTERPROGRAMM GLATTE HUNDERTER [1631] 

1080 1 [117] 

1090 IF VAL(d$)=0 THEN d = 99:c = VAL(c$ )-1 EL [ 3697 ] 

SE d=VAL(d$)-l 

1100 RETURN [555] 

1110 1 [117] 

1120 ‘ UNTERPROGRAMM VERB [1538] 

1130 ' [117] 


1140 a=VAL(MID$(dat$,7,4)):b=VAL(MID$(datu [8883] 

m$,7,4)):IF a>b THEN a$="warRETURN ELSE 

IF a < b THEN a$="wird":RETURN ELSE 1150 

1150 a=VAL(MID$(dat$,4,2)):b=VAL(MID$(datu [8515] 

m$,4,2)):IF a>b THEN a$="war":RETURN ELSE 

IF a < b THEN a$="wi rd":RETURN ELSE 1160 

1160 a=VAL(MID$(dat$,1,2)):b=VAL(MID$(datu [7329] 

m$,1,2)):IF a>b THEN a$="war":RETURN ELSE 

IF a < b THEN a$ = "wi rd“:RETURN ELSE a$="ist" 


1170 RETURN [555] 

1180 ' [117] 

1190 ‘ Weltzeituhr [646] 

1200 1 [117] 

1210 MODE 1:PAPER 2:CLS:INK 3,10,20:PEN 1: [3304] 

BORDER 13 

1220 WINDOWül,13,27,7,23:PAPERÜ1,0:CLS#1 [2595] 
1230 LOCATE 12,2:PRINT CHR$(150):LOCATE 13 [ 4068] 


,2:PRINT STRING$(16,CHR$(154)):LOCATE 29,2 
:PRINT CHR$(156) 

1240 LOCATE 12,3:PRINT CHR$(149);" Weitzel [2817] 
t - Uhr ;CHR$(149) 

Listing TIMER 


1250 LOCATE 12,4:PRINT CHR$(147):LOCATE 13 [6590] 

,4:PR I NT STRING$(16,CHR$(154)):LOCATE 29,4 
:PRINT CHR$(153) 

1260 t = l [276] 

1270 PLOT 201,295,1:DRAWR 220,0:DRAWR 0,-2 [7928] 
52:DRAWR -220,0:DRAWR 0,252:PL0T 197,299:0 
RAWR 228,0:DRAWR 0,-260:DRAWR -228,0:DRAWR 
0,260 

1280 LOCAT E#1 , 3,3 : PEN#1, 3 : PR I NT#1 , "Ameri ka [ 5894] 

":yl=281:y2=249:x=128:i=l:GOSUB 1340 

1290 LOCAT E # 1,3,6:PEN#1,1:PR I NT #1, "Europa" [ 5476] 

::y1=233:y2=201:x=112:i=0:GOSUB 1340 

1300 LOCATE#!,3,9:PEN#1,1:PR I NT# 1,"Afrika" [4569] 

: y1=185:y2=153:x=112:i=0:GOSUB 1340 

1310 LOCATE#l,3,12:PEN#1,1:PRINT#1,"Asien" [2990] 

:yl=137:y2=105:x=96:i=0:GOSUB 1340 

1320 LOCATE#l,3,15:PEN#1,1:PRINT#1,"Austra [5007] 

1ien":yl=89:y2=57:x=192:i=0:GOSUB 1340 

1330 LOCATE 11,25:PRINT “BITTE WAEHLEN SIE [2372] 

!":GOT O 1350 

1340 PLOT 215 , yl,i :DRAWR x,0:DRAWR 0,-32:D [ 7039 ] 

RAWR -x,0:DRAWR 0,32:PLOT 2 11 ,y1 + 4:DRAWR x 
+8,0:DRAWR 0,-40:DRAWR -(x+8),0:DRAWR 0,40 
:RETURN 

1350 a$=INKEY$:IF a$="" THEN 1350 [1474] 

1360 IF INKEY(2)=0 THEN 1380 ELSE IF INKEY [1653] 

(18)=0 THEN 1500 ELSE 1350 

1370 GOTO 1350 [460] 

1380 IF t=l THEN t=2:PEN#1,1:LOCATE#1,3,3: [10922] 

PRINT #1,"Amerika":y1 = 281:y2 = 249:x=128:i=0: 

GOSUB 1340:PEN#1,3:LOCATE#1,3,6:PR I NT#1, "E 
uropa":yl=233:y2=201:x=112:i=l:GOSUB 1340 
ELSE 1400 

1390 GOTO 1350 [460] 

1400 IF t=2 THEN t=3:PEN#1,1:LOCATE#1,3,6: [10437] 

PRINT#1,"Europa":y1=233:y2=201:x=112:i=0:G 
OSUB 1340:PEN#1,3:LOCATE#1,3,9:PRI NT#1,"Af 
rika":y1=185:y2=153:x=l12:i=1:GOSUB 1340 E 
LSE 1420 

1410 GOTO 1350 [460] 

1420 IF t = 3 THEN t = 4:PEN#1, 1:LOCATE#1,3,9: [9431 ] 

PRINT#1,"Afrika":yl=185:y2=153:x=112:i=0:G 
OSUB 1340:PEN#1,3:LOCATE#1,3,12:PRINT#1,"A 
sien":y1=137:y2=105:x=96:i=1:GOSUB 1340 EL 
SE 1440 

1430 GOTO 1350 [460] 

1440 IF t=4 THEN t=5:PEN#1,1:LOCATE#1,3,12 [12615] 
:PRINT#1,"Asien":yl=137:y2=105:x=96: i=0:GO 
SUB 1340:PEN#1,3:LOCATE#1,3,15:PRINT#l,"Au 
stratlen":yl=89:y2=57:x=192:i=1:GOSUB 1340 
ELSE 1460 

1450 GOTO 1350 [460] 

1460 IF t = 5 THEN t= 1 :PEN#1,1:LOCATE#1,3,15 [9821 ] 


:PRI NT#1 

,"Australien":yl=89:y2=57: 

x = 1 9 2 : i = 


0:GOSUB 

1340:PEN#1,3:LOCATE#!,3,3: 

PRINT#1, 


"Amerika 

" : y1 = 281: 

:y2=249 

: x = 128:i = 1; 

GOSUB 13 


40 ELSE 

1350 





1470 GOTO 1350 




[460] 

1480 ' 





[117] 

1490 ' 





[117] 

1500 IF 

t=l THEN 

dat$=" 

Kanada.dat' 

' :1and$=" 

[3478] 

Kanada": 

d=12:GOTO 1550 

ELSE 1510 



1510 IF 

t=2 THEN 

dat$=" 

Europa.dat' 

': 1and$=" 

[4863] 

Eu ropa": 

0 = 2 5:GOT 0 1550 

ELSE 1520 



1520 IF 

t= 3 THEN 

dat$=" 

Afrika.dat' 

:1and$=" 

[4886] 

Afrika": 

0=43:GOTO 1550 

ELSE 1530 



1530 IF 

t = 4 THEN 

dat$=" 

Asien.dat": 

:1and$="A 

[5399] 

sien":o= 

: 3 5:GOTO 

1550 ELSE 1540 



1540 IF 

t= 5 THEN 

dat$=" 

Austral.dat":land$= 

[ 4558 ] 


"Australien":o=12:GOTO 1550 ELSE 1350 

1550 MODE 2:BORDER 0:PAPER 0 [1815] 

1560 LOCATE 2,1:INPUT "Bitte aktuelle Uhrz [10858] 

eit (ss.mm) eingeben oder nur <ENTER> drue 

cken " ; tt$ : IF tt$="" THEN tt$="12":11 = 12:12 

=0:GOTO 1580 

1570 IF tt$>"24.00“ OR tt$<"00.00" THEN 15 [5825] 
60 ELSE tl=VAL(LEFT$(tt$,2)):t2=VAL(MID$(t 
t$,4,2)):tt$=LEFT$(tt$,2) 

1580 LOCATE 1,1:PRINT STR ING$(80," ") ; :LOC [ 5456 ] 
ATE 14,1:PRINT "Wenn es in Europa nach MEZ 
";tl;":";t2;" ist,dann ist es in" 

1590 FOR x =1 TO 80:LOCATE x,4:PRINT CHR$(1 [ 3537 ] 
54) ; :NEXT 

1600 LOCATE 20,4:PRINT CHR$(158):LOCATE 60 [5831] 

,4:PRINT CHR$(158):FOR y=5 TO 20:LOCATE 20 
,y:PRINT CHR$(149):LOCATE 60,y:PRINT CHR$( 

149 ) :NEXT 

1610 a=l:s=l:xl=l:x2=22:x3=23:iu=4 [1245] 

1620 OPENIN dat$:LOCAT E 2,3:PRINT UPPER$(1 [2178] 
and$ ) 

Listing TIMER __ 


24 CPC 
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1630 FOR i=l TO o 

1640 INPUT#9,aa$(i ) ,t(i ) 

1650 t0=tl:t00=t2:tl=tl+INT(t(i)):IF t 

1>24 THEN tl=tl-24 ELSE IF tl<0 THEN tl=24 
+ tl 

1660 at=t(i)-INT(t(i)):at=at*60:t2=t2+ 

at:IF 12 > 5 9 THEN tl = t1 + 1:t2 = t2-60 
1670 LOCATE x1,i + iu:PR I NT aa$(i):IF tl 

>9 THEN LOCATE x2,i+iu ELSE LOCATE x3,i+iu 
1680 IF 12 < > 0 THEN PRINT tl;":";t2 ELS 

E PRINT tl;": 00" 

1690 11 = 10:t2 = t00 

1700 IF i MOD 48=0 THEN s=2:x1=41:x2=6 

2:x3=63:iu=-44:GOTO 1730 ELSE 1710 
1710 IF i MOD 32=0 THEN S= 1 : x1 = 1 : x2=22 

:x3=23:iu=-28:GOSUB 1880:GOTO 1730 ELSE 17 
20 

1720 IF i MOD 16=0 THEN s=2:x1=41:x2=6 

2:x3=63:iu=-12:GOTO 1730 ELSE 1730 
1730 NEXT 
1740 CLOSEIN 

1750 IF dat$="Kanada.dat" THEN GOSUB 1880: 
0=50:dat$="Nordam.dat":land$="Nordamerika" 

:GOTO 1620 ELSE IF dat$="Nordam.dat" THEN 
GOSUB 1880:o=33:dat$="Sudam.dat":land$="Su 
edamerika":GOTO 1610 ELSE 1760 
1760 LOCATE 26,22:PRINT "Keine weiteren Da 
ten vorhanden. 

1770 LOCATE 1,25:PRINT CHR$(24);" 

Ende Wochentag 

Neustart ”;CHR$(24); 

1780 x=12:xl=12 

1790 LOCATE xl,23:PRINT null$:LOCATE x,23' 
PRINT pfeil$ 

1800 WHILE INKEY$= ":WEND 

1810 IF INK EY(1) = 0 THEN GOTO 1820 ELSE IF 
INKEY(8)=0 THEN GOTO 1830 ELSE IF INKEY(18 
)=0 THEN GOTO 1840 ELSE 1800 
1820 IF X= 12 THEN x1=x:x=38:GOTO 1790 ELSE 
IF x=38 THEN x1=x:x=66:GOTO 1790 ELSE IF 
x=66 THEN xl=x:x=66:GOTO 1790 
1830 IF x = 6 6 THEN x1 = x:x = 38:GOTO 1790 ELSE 
IF x=38 THEN xl=x:x=12:GOTO 1790 ELSE IF 
x=12 THEN xl=x:x=12;GOTO 1790 
1840 IF x=12 THEN CALL 0 ELSE IF x=66 THEN 
MODE 1:GOTO 270 ELSE 580 
1850 SOUND 1,1000,200:IF INKEY(18)=0 THEN 
CALL 0 ELSE IF INKEY(47)=0 THEN LOCATE INT 
C(40-(20+LEN(day$)+LEN(a$)))/2),12:PRINT S 
TRING$((25+LEN(day$)+LEN(a$)) ," "):T AG:MO 

VE 232,272:PRINT STRING$(10," ");:TAGOFF 
1860 LOCATE 1,25:PRINT STRING$(40," ");•GO 
TO 750 
1870 END 

1880 LOCATE 30,23:PRINT"Bitte Taste drueck 
en !":CALL &BB18:L0CATE 30,23:PRINT STRING 
$(22," "):FOR ii=l TO 16:L0CATE l,ii+4:PRI 
NT STRING$(19," "):LOCATE 22,i i+4:PRI NT " 

":LOCATE 41,ii+4:PR I NT STRING$(19," 

"):LOCATE 62,ii+4:PRINT" ":NEXT 

1890 RETURN 


[ 455 ] 

[1436] 

[5015] 


[3525] 

[3370] 

[2158] 

[1014] 

[3230] 

[2623] 

[2832] 

[350] 

[ 752 ] 

[ 11021 ] 


[3276] 
[4932] 


[ 986] 
[3720] 

[ 1607 ] 
[4415] 


[5387] 

[ 675 1 ] 

[1871 ] 

[14534] 

[2181 ] 

[ 110 ] 

[13641] 

[ 555 ] 


10 

20 


Datei Nr.l —> AMERIKA 


30 CLS:a=12:dat$="Kanada" 

40 DIM aa$(a),t(a) 

50 OPENOUT dat$+”.dat" 

60 FOR i=1 TO a 
70 READ aa$(i),t(i) 

80 WRITE#9,aa$(i) ,t(i ) 

90 NEXT 
100 CLOSEOUT 

110 LOCATE 1,1:PRINT dat$+".DAT wurde erze 

u g t. " 

120 IF dat$="Kanada" THEN 130 ELSE IF dat$ 
= "No rdam" THEN 140 ELSE 150 
130 ERASE aa$,t:dat$="Nordam":a=50:GOTO 40 
140 ERASE aa$ , t : dat$= "SudanV 
150 END 
160 1 Datas 
170 • 

180 DATA Newfound1 and,-6 
190 DATA Nova Scotia,-5 
200 DATA New Brunswick,-5 
210 DATA Prince Edward Is. 

220 DATA Quebec,-6 
230 DATA Ontario,-6 

Listing TIMER 


:a = 3 3:GOT0 40 


, -5 


[1587] 

[117] 

[1540] 
[ 744 ] 

[ 879 ] 
[421 ] 
[1113] 
[ 1749 ] 
[ 350] 

[ 902 ] 

[3330] 

[3856] 

[2800] 
[2483] 
[ 110 ] 
[433] 
[117] 

[ 1528 ] 
[ 1069 ] 
[1281] 
[1159 ] 
[ 682 ] 

[ 623 ] 


240 DATA ManitOba,-7 

250 DATA Saskatchewan,-8 

260 DATA Alberta,-9 

270 DATA British Columbia,-9 

280 DATA Yukon Territory,-9 

290 DATA Northwest Territory,-8 

300 1 

310 1 USA 

320 1 


330 

DATA 

Alabama,-7 

340 

OATA 

A 1 as k a,-11 

350 

DATA 

A rizona,-8 

360 

DATA 

Arkansas,-7 

370 

DATA 

Colorado,-8 

380 

DATA 

Connecticut,-6 

390 

DATA 

Delaware,-6 

400 

DATA 

Florida,-6 

410 

DATA 

Georgia,-6 

420 

DATA 

Hawaii,-11 

430 

DATA 

Idaho,-9 

440 

DATA 

11 1 inois,-6 

450 

DATA 

I ndiana,-6 

460 

DATA 

Iowa,- 7 

470 

DATA 

Kaliforn1en,-9 

480 

DATA 

Kansas,-7 

490 

DATA 

Kentucky,-6 

500 

DATA 

Louisiana,-7 

510 

DATA 

Mai ne,-6 

520 

DATA 

Mary 1 and,-6 

530 

DATA 

Massachusetts,-6 

540 

DATA 

Mi chigan,-6 

550 

DATA 

Minnesota,- 7 

560 

DATA 

Mississippi,-7 

570 

DATA 

Missou ri ,- 7 

580 

DATA 

Montana,-8 

590 

DATA 

Nebraska,-8 

600 

DATA 

Nevada,-8 

610 

DATA 

New Hampshire,-6 

620 

DATA 

New Jersey,-6 

630 

DATA 

New York,-6 

640 

DATA 

New Mexico,-8 

650 

DATA 

North Carolina,-6 

660 

DATA 

North Dakota,-7 

670 

DATA 

Oh io,-6 

680 

DATA 

Oklahoma,- 7 

690 

DATA 

Oregon,-9 

700 

DATA 

Pennsy1vania,-6 

710 

DATA 

Rhode Is1 and,-6 

720 

DATA 

South Carolina,-6 

730 

DATA 

South Dakota,-7 

740 

DATA 

Tennessee,-7 

750 

DATA 

Texas,- 7 

760 

DATA 

Utah,-8 

770 

DATA 

Vermont,-6 

780 

DATA 

Vi rginia,-6 

790 

DATA 

washington,-9 

800 

DATA 

West Virginia,-6 

810 

DATA 

Wisconsin,-6 

820 

DATA 

Wyoming,-8 

830 

* 


840 

’ Sud 

-,Mittelamerika 

850 



860 

DATA 

Argentinien,-4 

870 

DATA 

Bahamas,-6 

880 

DATA 

Bolivien,-5 

890 

DATA 

Brasi1ien,-4 

900 

DATA 

Chi 1e,-5 

910 

DATA 

Costa Rica,-7 

920 

DATA 

Dom. Republik,-6 

930 

DATA 

Ecuado r,-6 

940 

OATA 

Guatema1a,- 7 

950 

DATA 

Guyana,-4 

960 

DATA 

Haiti,-6 

970 

DATA 

Honduras,- 7 

980 

DATA 

Jamaica,-6 

990 

DATA 

Ko 1umbien,-6 

1000 

DATA 

Kuba,-6 

1010 

DATA 

Leeward Islands,-5 

1020 

DATA 

Mexico,- 7 

1030 

DATA 

Nicaragua,-7 

1040 

DATA 

Panama,-6 

1050 

DATA 

Paraguay,-5 

1060 

DATA 

Peru,-6 

1070 

DATA 

El Salvador,-6 

1080 

DATA 

Su rinam,-4.5 

1090 

OATA 

Tr 1nidad,-4 

1100 

DATA 

Tobago,-4 

1110 

DATA 

Uruguay,-4 


Listing TIMER 


[952 ] 
[853 ] 

[ 267 ] 
[883 ] 

[ 2589 ] 
[ 857] 
[117] 

[ 132] 

[ 117 ] 

[ 349 ] 

[411] 
[93] 

[ 72 7 ] 

[ 683] 

[ 1650 ] 
[ 767 ] 

[ 1328 ] 
[ 902 ] 
[295 ] 

[ 661 ] 
[568] 

[ 252 ] 

[ 162 ] 

[ 243] 

[412] 

[ 663 ] 

[ 926 ] 
[447 ] 
[854 ] 

[ 674 ] 
[652] 
[488] 

[ 473] 

[ 535 ] 

[ 663] 

[ 870 ] 
[484] 

[ 1022 ] 
[516] 

[ 1306] 

[ 1088 ] 
[1057] 

[ 681 ] 

[ 492 ] 

[ 105 ] 

[ 356 ] 
[1311] 

[1366] 
[1537] 

[ 873] 
[993] 
[963] 
[684] 
[912 ] 

[1669] 
[1096] 
[841] 
[1313] 

[ 732 ] 
[117] 

[2230 ] 
[117] 

[ 1640] 

[ 680 ] 
[263] 
[471 ] 

[ 190] 

[ 648 ] 

[ 375 ] 

[ 898 ] 

[ 780] 
[254] 

[ 71] 
[884] 

[ 475 ] 

[ 700 ] 
[242 ] 

[ 733] 

[ 855 ] 

[ 380] 
[502 ] 
[810 ] 

[ 729 ] 
[832 ] 
[859] 
[803] 
[591] 

[ 665 ] 
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Programm/Anwendungen 


410 

DATA 

Soma 11a,2 

[ 1006 ] 

420 

DATA 

Sudan,1 

[ 754 ] 

430 

DATA 

Suedafrika,1 

[ 948 ] 

440 

DATA 

Tansania,2 

[ 856] 

450 

DATA 

T ogo,-1 

[915] 

460 

DATA 

Tschad,0 

[715] 

470 

DATA 

Tunesien.O 

[ 957 ] 

480 

OATA 

Uganda,2 

[1108] 

490 

DATA 

Aegypten,1 

[430] 

500 

DATA 

Komoren,2 

[ 342 ] 

510 

DATA 

Kapverden,-3 

[ 483] 

520 

DATA 

Mosambik ,1 

[540] 

530 

DATA 

Kanaren,-1 

[1012 ] 

540 

DATA 

Suedwestafrika,1 

[1459] 

10 

Datei Nr.4 —> ASIEN 

[ 952 ] 

20 



[117] 

30 DIM aa$(35),t(35) 

[1208] 

40 OPENOUT "asien.dat" 

[ 865 ] 

50 FOR i= 

1 TO 35 

[ 322 ] 

60 

READ aa$(i),t(i) 

[1113] 

70 

WRITE#9,aa$(i ) ,t(i ) 

[ 1 749 ] 

80 NEXT 


[ 350 ] 

90 CLOSEOUT 

[ 902 ] 

100 

' Datas 

[ 433 ] 

110 

' 


[117] 

120 

DATA 

Afghanistan,3.5 

[ 655 ] 

130 

DATA 

Bahrain,3 

[ 663 ] 

140 

DATA 

Bhutan,5.5 

[771] 

150 

DATA 

Birma,5.5 

[ 480 ] 

160 

DATA 

Brunei,7 

[1049] 

170 

DATA 

Ceylon,4.5 

[1122] 

180 

DATA 

Chi na , 7 

[ 103] 

190 

DATA 

Indien,4.5 

[ 335 ] 

200 

DATA 

Indonesien,6 

[ 1031 ] 

210 

DATA 

Irak,2 

[153] 

220 

DATA 

I ran,2.5 

[ 238 ] 

230 

DATA 

Israel,1 

[ 537 ] 

240 

DATA 

Japan,8 

[ 406 ] 

250 

DATA 

Jemen,2 

[149] 

260 

DATA 

Jordanien,1 

[ 524 ] 

270 

DATA 

Katar,3 

[ 461 ] 

280 

DATA 

Korea,8 

[ 426 ] 

290 

DATA 

Kuwait,2 

[ 636 ] 

300 

DATA 

Laos,7 

[ 254 ] 

310 

DATA 

Libanon , 1 

[771] 

320 

DATA 

Malaysia,7 

[1045] 

330 

DATA 

Ma1ediven , 4 

[ 959 ] 

340 

DATA 

Mongolei , 7 

[910] 

350 

DATA 

Nepal,4.5 

[ 544] 

360 

DATA 

Oman,3 

[ 446 ] 

370 

DATA 

Pakistan , 4 

[ 640] 

380 

DATA 

Philippinen,? 

[ 1391] 

390 

DATA 

Saudi-Arabien,2 

[ 986] 

400 

DATA 

S i k k i m , 7 

[ 702 ] 

410 

DATA 

Syr1en,1 

[ 903 ] 

420 

DATA 

Taiwan,7 

[ 798 ] 

430 

DATA 

Thai 1 and,6 

[512] 

440 

DATA 

Tuerkei,1 

[ 630] 

450 

DATA 

VIetnam,7 

[ 1043 ] 

460 

DATA 

Zypern,1 

[ 836] 

10 

Datei Nr.5 —> AUSTRALIEN 

[851] 

20 



[117] 

30 DIM aa$(12),t( 12) 

[ 998 ] 

40 OPENOUT "austral.dat" 

[1480] 

50 

-OR i 

1 TO 12 

[ 321 ] 

60 

READ aa$(1),t(i) 

[ 1113 ] 

70 

WRIT E# 9,aa$(i ) ,t(i ) 

[1749] 

80 NEXT 


[ 350] 

90 CLOSEOUT 

[ 902 ] 

100 

' Datas 

[433] 

110 

' 


[117] 

120 

DATA 

Norfolk Islands,10.5 

[ 1582 ] 

130 

DATA 

New South Wal es,9 

[1583] 

140 

DATA 

Queens 1 and,9 

[ 465 ] 

150 

DATA 

T asmania,9 

[ 859 ] 

160 

DATA 

V 1 cto r 1 a,9 

[ 994] 

170 

DATA 

New Gu1nea,9 

[ 9 70 ] 

180 

DATA 

Southern Australia,9.5 

[1884] 

190 

DATA 

Northern Territory,9.5 

[ 969 ] 

200 

DATA 

Papua,8 

[815] 

210 

OATA 

Western Australia,7 

[ 830] 

220 

DATA 

Christmas Islands,6 

[ 997 ] 

230 

DATA 

Cocos Is1 and s,5.5 

[ 746 ] 

Listing TIMER 




1120 

DATA 

Venezuela,-5 

[894] 

1130 

DATA 

Windward Islands,-5 

[2038] 

1140 

DATA 

Virgin Islands,-5 

[ 1919 ] 

1150 

DATA 

Cayman Islands,-6 

[ 423 ] 

1160 

DATA 

Falkland Islands,-5 

[ 864 ] 

1170 

DATA 

Puerto Rico,-5 

[1208] 

1180 

DATA 

Turks & Caicos Is.,-5 

[1762] 

10 ' 

Datei Nr.2 —> EUROPA 

[1151] 

20 ' 



[117] 

30 DIM aa$(25),t(25) 

t 5 9 9 ] 

40 OPENOUT " EUROPA.dat” 

[1254] 

50 FOR i= 

1 TO 25 

[ 312 ] 

60 

READ 

aa$(1),t(i ) 

[1113] 

70 

WRITE#9,aa$(i ) , t(i ) 

[1749] 

80 NEXT 


[350] 

90 CLOSEOUT 

[ 902 ] 

100 

' Datas 

[ 433] 

110 



[117] 

120 

DATA 

Albanien,0 

[ 324] 

130 

DATA 

Be 1gien , 0 

[ 940 ] 

140 

DATA 

Bu1 garien , 0 

[ 47 7 ] 

150 

DATA 

BRD, 0 

[178] 

160 

DATA 

Daenema r k,0 

[ 370 ] 

170 

DATA 

DDR , 0 

[ 398 ] 

180 

DATA 

Finn1 and , 0 

[ 277 ] 

190 

DATA 

F rankreich,0 

[1012 ] 

200 

DATA 

Griechenlands 

[1387] 

210 

DATA 

Grossbritannien,0 

[ 1603 ] 

220 

DATA 

Is1 and,0 

[ 444 ] 

230 

DATA 

Irl and,0 

[ 508] 

240 

DATA 

Italien ,0 

[290] 

250 

DATA 

Jugos1awien,0 

[ 695 ] 

260 

DATA 

Niederlande,0 

[714] 

270 

DATA 

No rweg en,0 

[ 469 ] 

280 

DATA 

Oeste r reich,0 

[813] 

290 

DATA 

Polen , 0 

[ 749 ] 

300 

DATA 

Portugal , 0 

[ 1016] 

310 

DATA 

Rumaen1en,0 

[ 621 ] 

320 

DATA 

Schweden,0 

[1116] 

330 

DATA 

Schweiz,0 

[719] 

340 

DATA 

Span 1en,0 

[715] 

350 

DATA 

CSSR,0 

[ 540] 

360 

DATA 

Ungarn,0 

[ 659 ] 

10 

Datei Nr.3 —> AFRIKA 

[1311] 

20 



[117] 

30 DIM aa$(43 ) ,t{43) 

[ 694 ] 

40 OPENOUT "afrika.dat” 

[ 809 ] 

50 FOR i 

1 TO 43 

[ 534 ] 

60 

READ aa$(i),t(i) 

[1113] 

70 

WRITE#9,aa$(i),t(i) 

[ 1 749 ] 

80 NEXT 


[ 350] 

90 CLOSEOUT 

[902 ] 

100 

' Datas 

[ 433] 

110 



[117] 

120 

DATA 

A1 ge rien,0 

[ 223] 

130 

DATA 

Angola,0 

[ 454 ] 

140 

DATA 

Aethiopien,2 

[316] 

150 

DATA 

Botswana,1 

[ 552 ] 

160 

DATA 

Burundi ,2 

[219] 

170 

DATA 

Dahomey,2 

[970] 

180 

DATA 

Elfenbeinkueste,-l 

[ 952 ] 

190 

DATA 

Gabun,0 

[ 342 ] 

200 

DATA 

Gambia,- 1 

[79] 

210 

DATA 

Ghana,-1 

[ 228 ] 

220 

DATA 

Guinea,-1 

[ 669 ] 

230 

DATA 

Kamerun,0 

[181] 

240 

DATA 

Ken i a , 2 

[ 3 75 ] 

250 

DATA 

Kongo,0 

[ 552 ] 

260 

DATA 

Lesotho,1 

[ 252 ] 

270 

DATA 

Liberia,-0.15 

[ 99 7 ] 

280 

DATA 

Libyen , 1 

[ 455 ] 

290 

DATA 

Madagaskar , 2 

[1951 ] 

300 

DATA 

Malawi ,2 

[ 858 ] 

310 

DATA 

Mali,-1 

[ 500 ] 

320 

DATA 

Ma ro k ko,-1 

[ 969 ] 

330 

DATA 

Mau retanien,-1 

[901] 

340 

DATA 

Niger,-1 

[ 766] 

350 

DATA 

Ni ge ria , 0 

[ 880 ] 

360 

DATA 

Obervo1ta,-1 

[1149] 

370 

DATA 

Rhodesien , 1 

[1138] 

380 

DATA 

Ruanda , 2 

[641 ] 

390 

DATA 

Sambia , 1 

[ 755 ] 

400 

DATA 

Senegal,-1 

[361 ] 

Listing TIMER 
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Programm/Anwendungen 


LIGL 

Ein Trainingsprogramm für 
lineare Gleichungen 

Mathematik ist wie Fahrradfahren. Ganz verlernt man 
es zwar nie, doch wenn es nicht ab und zu praktiziert 
wird, bedarf es schon der einen oder anderen Übung, 
um wieder “voll dabei zu sein“. 

Besondere Schwierigkeiten in der Ma¬ 
thematik bereitet vielen das Rechnen 
mit Buchstaben und Unbekannten - 
mit Zahlen zu rechnen stellt ja seit der 
Erfindung des Taschenrechners nie¬ 
manden mehr vor irgendein Problem. 

Wenn es dann aber um Umformungen, 

Platzhalter und “häßliche kleine Ixe“ 
geht, dann hilft der Rechner aus der 
Jackentasche plötzlich nicht mehr wei¬ 
ter. und man muß die eigenen Gehirn¬ 
zellen ein wenig auf Trapp bringen - 
Unbelehrbare berechnen zwar heute 
noch Gleichungen mit x per Taschen¬ 
rechner, doch wird deren Anzahl stetig 
geringer, da auch sie irgendwann mer¬ 
ken, daß da auf der Tastatur ja kein x, 
sondern ein Malzeichen ist. 

Ein immer wieder gern gesehenes The¬ 
ma der Mathematik ist das Rechnen mit 
linearen GleichungsSystemen. Sie sind 
in hervorragender Weise dazu geeig¬ 
net, erfrischend auf die mathematisch 
orientierten Gehirnzellen zu wirken. 

Das Programm LIGL nimmt nun die 
Funktion des Lehrers ein, der Ihnen 
Aufgaben stellt und Fragen beant¬ 
wortet. 


c — H<3x-ß) = €4 - 3 X - 3 

Loes«ngs«ense 


x = a 


SHf■ ® t .»eine Loes 
x ehrt, i g ha st. 


sei!» g s t- iarwit. n i ob fe.! 

« t ol» Du ein et* feil 


S ?1 f :rn arol Zusamenf a s sen ! 

«it X 2 wer st! 

" 1Mewxe keine Leerze £chen! > 

I ,iütke Seite ; <9 M 


Ein Lernprogramm für lineare Gleichungen hilft Ihnen, Gleichungen 
besser zu verstehen 


Der Computer gibt nacheinander linea¬ 
re Gleichungen aus und fragt nach der 
Lösung. Wird diese nicht richtig einge¬ 


geben, so prüft er, ob zumindest die 
linke und die rechte Seite der ursprüng¬ 
lichen Gleichung richtig vereinfacht 
wurde (Auflösung von Klammern; Zu¬ 
sammenfassen der Terme) und gibt an¬ 
derenfalls hierfür das richtige Ergebnis 
aus. 

Falls diese Hilfe noch nicht dazu aus¬ 
reicht, daß der Lernende die richtige 
Lösung findet, so gibt der Computer 
genaue Anweisungen, mit welchen Re¬ 
chenschritten (Äquivalenzumformun¬ 
gen) die umgeformte Gleichung zu lö¬ 
sen ist. 

Folgende Typen von Gleichungen wer¬ 
den ausgegeben: 

1) a(b + cx) = d-(ex-f) 

2) a-b(cx-d) = e-fx-g 

3) ax-(b-f-cx) = (dx + e)f+g 

4) -(ax+b)+c(d-ex) = x-(f+gx) 

5) a(b-cx)-(dx + e) - f(gx-7) 

Für die Variablen a,b,c,d,e,f,g werden 


dabei jeweils ganze Zahlen eingesetzt, 
und zwar so, daß sich als Lösung (für 
x) eine ganze Zahl zwischen -20 und 20 
ergibt. 

Gegenüber vergleichbaren Program¬ 
men, die nur Aufgaben generieren und 
danach die Richtigkeit der Lösung 
überprüfen, hat das Programm LIGL 
zwei Besonderheiten: 

- Durch geschickte Wahl der Zufalls¬ 
zahlen wird erreicht, daß alle Rech¬ 
nungen innerhalb der ganzen Zahlen 
ausgeführt werden können; insbe¬ 
sondere sind alle Lösungen ganz¬ 
zahlig. 

- Wenn die Lösung nicht sofort gefun¬ 
den wurde, stellt das Programm ein 
gestuftes System von Hilfen bereit. 
Der Lernende kann also auch positi¬ 
ve Rückmeldung erhalten, wenn er 
nur Teile der Aufgabe richtig löst. 

(Dr. Walter Witzel/jf/cd) 


für 464-664-6128 



10 REM TRAININGSPROGRAMM LINEARE GIEICHUN [3580] 

GEN .Nov . 88 

20 REM . [4158] 

.Autor.Walter Witzei 

22 MODE 1 [506] 

25 LOCATE 10,4:PRI NT"Trainingsprogramm" [2983] 

27 LOCATE 9,6:PRI NT"LINEARE GLEICHUNGEN" [ 2823] 
30 FOR typ=l TO 5:READ n(typ):NEXT typ [3471] 

35 DATA 450,550,650,750,850 [533] 

37 LOCATE 2,9:PRINT"Nimm Zettel und Bleist [4936] 
ift zur Hand und" 

38 PRINT"gib danach Deinen Namen ein (mit [3698] 
RETURN)" 

40 INPUT n$ [497] 

70 CLS:PRINT"Vorbemerkungen:":PRINT"====== [3734] 

=========";PRINT 

80 PRINT"De r Computer gibt Dir im folgende [3119] 
n " 

85 PRINT"nacheinander lineare Gleichungen [4478] 
aus. " 

90 PRINT"Die Variable ist dabei jeweils x [6492] 
; Grundmenge sind die rationalen Zahl 

en." 


Listing LIGL 


100 PRINT:PRINT“Du sol 
oesen" 

105 PRINT"(die Loesung 
d das Ergebnis einge 
110 PRINT:PRINT"Sollte 
1 nicht stim- men, so 
120 PRINT"Computer Hil 
180 GOSUB 990 
200 REM Wahl des Schwi 
********************** 
210 MODE 1:PRINT n$;", 
T 

212 PRINT"1 leichter 
214 PRINT"2 schwieri 

216 PRINT:PRINT"beginn 
ben ) " 

217 a$=INKEY$:IF a$<>" 

217 

218 1=VA L(a$) 

250 REM Beginn eines n 
********************** 
260 i=0:r=0:rr=0:ff=0 
300 REM Neue Aufgabe * 
********************** 
310 CLS 
320 1=i+1 

330 PRINT"Aufgäbe ";1; 
335 PRINT"============ 


Ist diese Au 

smenge besti 
ben . " 

Deine Loesu 
erhaelst Du 
f en . " 

erigkeitsgra 

************ 

willst Du m 

en Aufgaben" 
geren Aufgab 
en ? (1 oder 


fgaben 1 

mmen) un 

ng einma 
vom " ; 


ds * * ** 
* * * 

it":PRIN 


en 

2 einge 


[3210] 

[6447] 

[ 6246 ] 

[2782] 
[ 1014] 
[3944] 

[3278] 

[ 2426 ] 
[3271] 
[3687] 


1" AND a$ < >"2" THEN [1214] 


euen Aufgabe 
************ 

************ 

************ 


ntyps * 
** 

******** 

** 


• ; i 

:=":PRINT 


[ 795 ] 

[ 4084 ] 

[586] 

[3743] 

[91] 

[ 444 ] 
( 2001 ] 
[1635] 
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Pro g r amm/ Anwendung en 


340 

X=INT(RND*40)-19 

[ 163.1] 

350 

a= INT(8*RN0)+2 

[ 1298] 

352 

b= INT(8*RND)+2 

[1056] 

354 

C= INT(8*RND)+2 

[1342] 

356 

d= INTC19*RN0)-9:IF ABS(d)<2 THEN 356 

[3283] 

362 

e= INT(19*RND)-9:IF ABS(e)<2 THEN 362 

[2203] 

364 

f= INT(19*RND)-9:IF ABS(f)<2 THEN 364 

[1489] 

380 

IF 1=1 THEN z=(i MOD 3)+l:ON z GOTO 40 

[ 2895 ] 

0,500,600 


390 

IF 1=2 THEN z=(i MOD 2)+l:ON z GOTO 70 

[2683] 

0,800 


400 

REM Aufgabentyp 1 ******************** 

[3533] 

************************************* 


405 

typ=l 

[ 537] 

410 

IF a*d+f =0 THEN f=f+l 

[916] 

420 

g=x*(a*d+f)-b+d*e 

[1323] 

430 

rl = -f : r2 = g + b 

[ 394] 

435 

1 l = a*d:12 = d*e 

[ 1036] 

440 

GOSUB 450:GOTO 1000 

[1978] 

450 

LOCATE 2,5 

t 6 3 5 ] 

460 

PRINT dea;"x ) =";g;" - (";f 

[3080] 

;" * 

- " ; b; ") " 


480 

RETURN 

[ 555 ] 

500 

REM Aufgabentyp 2 ******************** 

[3371] 

************************************* 


505 

typ =2 

[544] 

510 

IF c-b*e=0 THEN c=c~1 

[ 268] 

520 

g=f+b*a+d+x*(c-b*e) 

[1680] 

530 

1 l = -b* e : 12 = f+ b*a 

[ 743] 

535 

r1= -c : r2 = g-d 

[517] 

540 

GOSUB 550:GOTO 1000 

[1058] 

550 

LOCATE 2,5 

[635] 

560 

PRINT f;;b;"(";e;"x -";a;") = ";g;" 

[2104] 

570 IF d >0 THEN PRINT"x -";d ELSE PRINT”x 

[2229] 


d 


580 

RETURN 

[ 555 ] 

600 

REM Aufgabentyp 3 ******************** 

[3949] 

************************************* 


605 

typ=3 

[543] 

610 

IF d-a-f*b=0 THEN a=a+l 

[1171] 

620 

g=e+c*b-x*(d-a-f*b) 

[ 1238] 

630 

1 l = d-a: 12=-e 

[ 748] 

635 

rl=f*b: r2=c*b-g 

[1028] 

640 

GOSUB 650:GOTO 1000 

[ 114C] 

650 

PRINT:PRINT:PRINT 

[1082] 

660 

PRINT d;"x -(";e;"+";a;"x) = (";f;"x + 

[2785 ] 

“ ; c 

") " ; b ; 


670 

IF g >0 THEN PRINT"-";g ELSE PRINT " +" ; 

[2072] 

680 

RETURN 

[ 555 ] 

700 

REM Aufgabentyp 4 ******************** 

[3492] 

************************************* 


705 

typ=4 

[ 534] 

710 

IF c-d-e*b-l=0 THEN c=c+l 

[1670] 

720 

g=a-e*f-x*(c-I-d-b*e) 

[1500] 

730 

1l=-d-e*b:12=e*f-a 

[ 2071 ] 

735 

ri=i-c :r2=-g 

[1312] 

740 

GOSUB 750:GOTO 1000 

[1206] 

750 

PRINT:PRINT:PRINT 

[1082] 

755 

u=ABS(d):GOSUB 885 

[1312] 

758 

IF d > 0 THEN PRINT "~(";z$; ELSE PRINT 

[1684] 

"-( 

:z$; 


760 

PRINT “x +";a;")"; 

[1011 ] 

762 

u=ABS(e):GOSUB 885 

[ 788 ] 

765 

IF e > 0 THEN PRINT " + ";z$; ELSE PRINT " 

[2388] 

I2$; 


768 

u=ABS(c):GOSUB 885 

[1148] 

770 

PRINT"(";fb;"x) = x -C";g;"+";z$; 

[2107] 

780 

RETURN 

[ 555 ] 

800 

REM Aufgabentyp 5 ******************** 

[4013] 

************************************* 


B05 

typ=5 

[ 533 ] 

810 

IF e*e+d + a*f = 0 THEN d = d + l 

[ 592 ] 

820 

g=x*(e*c+d+a*f)-7*a-e*b 

[1383] 

830 

1l=-e*c-d:12=g+e*b 

[1752] 

835 

rl=a*f :r2=-7*a 

[1210] 

840 

GOSUB 850:GOTO 1000 

[1684] 

850 

PRINT:PRINT:PRINT 

[1082] 

855 

u=ABS(e):GOSUB 885:IF e<0 THEN z$="~"+ 

[2246] 

z$ 



858 

z$ = z$+" ( " 

[331] 

860 

PRINT z$;b;; 

[ 558 ] 

862 

u=ABS(C):GOSUB 885:PRINT z$;"x) - (";d 

[2691] 

865 

u=ABS(g):GOSUB 885 

[ 668] 

Listing LIGL 



870 IF g < 0 THEN PRINT"x +";2$; ELSE PRINT'' 
x ;z$; 

875 PRINT") =";a;"(";f;"x" ; " -7)“ 

680 RETURN 

885 REM Zahl u in Zeichenkette z$ verwände 
ln ********************************** 

886 t=INT(u/1000):h=INT(u/100)-10*t:z=INT( 
u/10)-100*t-10*h 

888 El=INT(u)-1000*t-100*h-10*Z 
890 z $ — " 

892 IF t>0 THEN z$=Z$+CHR$(48+t) 

893 IF h > 0 0R t>0 THEN z$=z$+CHR$(48+h) 

894 IF Z >0 OR h > 0 OR t>0 THEN Z$=Z$+CHR$(4 
8 + Z ) 

895 IF E1> 0 OR z>0 OR h>0 OR t>0 THEN z$ = z 
$+CHR$(4B + E1) 

898 RETURN 

900 REM Linke und rechte Seite der vereinf 
achten Gleichung ******************** 

905 1$="":r$="":11$="":rl$="":110=11:120=1 
2:r 10 =r 1 :r20=r2 

910 IF 11<0 THEN 111=-11 

920 u = l 1: GOSUB 885:IF 11O0 THEN 1$=1$+Z$+ 

"x " 

930 IF 12 < 0 THEN 1$ = 111$="-":12 = -l2 
933 IF 12 0 > 0 THEN 1$=1$+"+":11$=" + " 

935 u= 1 2 : GOSUB 885:IF 1200 THEN l$=l$ + z$: 

1 1 $= 1 l$+z$ 

950 IF rl<0 THEN rr1=-r1 

955 u= r1:GOSUB 885:IF rl<>0 THEN r$=r$+z$+ 

" x " 

960 IF r20< 0 THEN r$=rr1$=r1$+r2 
= - r 2 

963 IF r20 >0 THEN r$=r$+" + ":r1$="+" 

965 u = r2:GOSUB 885:IF r2<>0 THEN r$=r$+z$: 
rl$=rl$+z$ 

970 IF 110 = 1 THEN U$="x" + ll$ 

972 IF 110=-1 THEN 1 l$="-x" + l1$ 

974 IF r10=1 THEN rl$="x"+rl$ 

976 IF r10=-1 THEN rl$="-x"+rl$ 

980 RETURN 

990 REM UPR PAUSE ************************ 
************************************* 

993 PRINT:PRINT:PRINT:PRINT"-Bitte bell 

eblge Taste druecken! -" 

995 a$=INKEY$:IF a$="" THEN 995 
998 RETURN 

1000 REM Loesung annehmen und ueberpruefen 
************************************ 

1005 lg=ll*x+12:rg=rl*x+r2:GOSUB 900 
1010 PRINT:PRINT"Wie lautet das Element de 
r Loesungsmenge(bzw: die Loesung) ?" 

1020 PRINT:INPUT “ x = ";xs 
1030 IF xs=x THEN 1200 

1040 PRINT:PRINT n$;", Deine Loesung stimm 

t nicht!":rr= 0 :ff=ff+l 

1045 PRINT"Wir wollen pruefen, ob Du einen 
Teil richtig hastPRINT 

1050 PRINT:PRINT"Wie lautet die linke Seit 
e, wenn Du sie vereinfachst ? 

1052 PRINT"(Ausk1ammern und Zusammen fassen 

i 

1054 PRINT"Schreibe den Term mit x zuerst! 

Verwende keine Leerzeichen!)" 

1060 PRINT:INPUT "Linke Seite : ";1s$ 

1065 IF l$=ls$ OR ll$=ls$ THEN PRINT"Richt 
1g,";n $ :G0T0 1070 

1068 PRINT "Die linke Seite":PRINT“1 autet 
ve re 1nfacht: ";1 $ 

1070 PRINT:PRINT"Wie lautet entsprechend v 
ereinfacht die rechte Seite ?":PRINT 
1075 INPUT "Rechte Seite : ";rs$ 

1080 IF rs$=r$ OR rl$=rs$ THEN PRINT"Stimm 
t,";n$:GOTO 1088 

1084 PRINT "Oie rechte Seite":PRINT"1autet 
ve reinfacht: ";r$ 

1088 GOSUB 990 

1090 CLS:PRINT "Die Gleichung ":LOCATE 1,1 

:0N typ GOSUB 450,550,650,750,850 

1095 PRINT:PRINT"1aesst sich also auf folg 

ende Form bringen":PRINT 

1100 PRINT" ";1$;" = ";r$:PRINT 

1110 PRINT"Wie lautet die Loesung ?" 

1120 PRINT:PRINT:INPUT " x = ";xs 
1130 IF xs = x THEN PRINT n$;“,jetzt stimmt 
es.":G0SUB 990:GOTO 1300 
1135 IF xs=-x THEN 1192 


Listing LIGL 


[3467) 

[813] 

[ 555 ] 

[3671] 

[1877] 

[1529] 

[ 449] 
[6421 
[1444] 
[2621 ] 

[2683] 

[ 555] 
[5578] 

[4202] 

[ 1221 ] 
[2168] 

[1692] 

[ 1943] 
[2727] 

[1796] 

[3096] 

[ 10781 

[1442] 
[2131] 

[ 861 ] 

[939] 

[1391] 

[589] 

[ 555] 
[3317] 

[5527] 

[ 1101 ] 

[ 555] 
[3743] 

[1083] 

[5948] 

[621] 

[1760] 

[3732] 

[5253] 

[5653] 

[4559] 

[6847] 

[ 1593] 
[3361] 

[32961 

[5569 ] 

[ 1684] 
[1616] 

[4921] 

[1014] 
[4687] 

[5258] 

[1656] 
[3440] 
[14361 
[4099] 

[1078] 
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1140 PRINT"Das stimmt nichtPRINT 

1142 PRINT"Forme die Gleichung wie folgt u 

m:":PRINT 

1144 IF r10<0 THEN PRINT"1) Addiere auf be 
Iden Seiten “;-r10;"x !" 

1146 IF rl0>0 THEN PRINT"1) Subtrahiere au 
f beiden Seiten ";rl0;"x !" 

1148 IF 120<0 THEN PRINT"2) Addiere auf be 
iden Seiten " ; -120 

1150 IF 120>0 THEN PRINT"2) Subtrahiere au 
f beiden Seiten ";120 

1152 PRINT"3) Teile beide Seiten durch ";1 
10-rl0 

1154 PRINT:PRINT"Wie lautet die Loesung?": 
PRINT 

1160 INPUT " x = “;xs 

1170 IF x=xs THEN PRINT "Richtig!!!GOSUB 
990:GOTO 1300 
1175 IF xs=-x THEN 1192 
1180 PRINT"Richtig ist: x =";x 

1190 GOSUB 990 : GOTO 1300 

1192 PRINT"Du hast den Betrag richtig, abe 
r das Vorzeichen stimmt nicht " 

1194 PRINT"RIchtlg Ist x =";x 
1196 GOSUB 990:GOTO 1300 

1200 REM Rueckmeldung bei richtiger Loesun 

g **********************4(**********»* 

1210 ff=0:rr=rr+l:r=r+l 

1220 2=INT(5*RN0)+1: ON z GOTO 1230,1240,1 
250,1260,1270 

1230 PRINT"Richtig gerechnetn$:GOTO 128 
0 

1240 PRINT"Das stimmt so." :GOTO 128 

0 

1250 PRINT"Bravo,";n$;", das hast Du gut g 
emacht":GOTO 1280 

1260 PRINT"Stimmt! Wieder ein Pluspunkt fu 
er Dich!":GOTO 1280 

1270 PRINT"Richtig. Weiter so, ";n$ 

1280 GOSUB 990: GOTO 1300 
1300 REM 

1400 REM Wahl des naechsten Aufgabentyps * 

HC************************************ 

1410 IF i<10 AND r r < 3 AND ff<3 THEN 300:RE 
M naechste Aufgabe von gleichen Typ 
1415 IF i> 9 THEN 1500 

1420 IF r r=3 AND 1=1 THEN l=2:PRINT"Es fol 
gen etwas schwierigere Aufgaben":GOTO 250 
1430 IF f f= 3 AND 1=2 THEN 1=1:PRI NT"Es fol 
gen etwas einfachere Aufgaben":GOTO 250 
1440 IF r r > = 5 THEN PRINT n$;", Du bist fue 
r dies Programm zu gut":GOTO 1500 
1460 GOTO 300 

1470 PRINT"Du hast jetzt mehrere Aufgaben 
nachein- ander falsch geloest." 

1480 PRINT "Willst Du trotzdem weitermache 
n? (j/n)"; 

1485 a$=INKEY$:IF a$="" THEN 1485 
1490 IF a$="j“ OR a$="J" THEN 300 
1495 IF a$="n" OR a$="N" THEN 1500 
1498 GOTO 1480 

1500 REM Ergebnis ausgeben *************** 
*****************#**##*##,<,*********** 

1510 GOSUB 990:MODE 1 
1520 PRINT"Du hast bei den 

1525 IF 1=1 THEN PRINT"1eichteren " ELSE P 
RINT"schwierigeren " 

1530 PRINT "Aufgaben":PRINT"insgesamt ";i; 

" bearbeitet. " 

1550 PRINT"Davon hast Du ";r;" auf Anhieb 
richtig geloest; das sind 

1560 PRINT INT(1000*r/i)/10;" Prozent.":PR 
INT:PRINT 

1570 PRINT Willst Du weiter mit diesem Pr 
ogramm arbeiten? (j/n)"; 

1580 a$=INKEY$:IF a$="" THEN 1580 
1590 IF a$="j" OR a$="J" THEN 200 
1592 IF a$="n" OR a$="N" THEN END 
1600 GOTO 1570 

2050 PRINT"Wie lautet die linke Seite, wen 
n Du sie vereinfacht hast (Ausklammern "; 
2052 PRINT"und":PRINT"Zusammen fassen)":PRI 
NT 

2054 PRINT"(Schreibe den Term mit x zuerst 
! Verwende keine Leerzeichen!)" 


[ 1999 ] 
[ 1632 ) 

[ 4456 ) 

[ 5299 ] 

[ 5685 ] 

[7064] 

[4431] 

[4093] 

[1192 ] 
[3168] 

[ 1078 ] 
[ 1698 ) 
[1145 ] 
[5540] 

[1936] 
[1145 ] 
[4321] 

[844] 

[239C] 

[3969] 

[2932] 

[4105] 

[ 3735 ] 

[3093] 
[1145] 
[ 272 ] 
[3755] 

[3397] 

[1191] 
[ 6086 ] 

[5703] 

[5571] 

[ 504 ] 

[6244] 

[4614] 

[ 1432 ] 

[1343] 
[1642] 
[ 307 ] 

[4040 ] 

[ 1072 ] 
[1345] 

[5070] 

[4193] 

[6676] 

[3012] 

[5063] 

[ 1429 ] 
[1347] 
[1541] 

[ 385 ] 

[9828 ] 

[ 2929 ] 

[5894] 


Listing LIGL 


BESK-ROYAL 


CPC 


Mi! DESK-ROYAL erstellen Sie im Handumdrehen professionelle CPC-Soflware. PC-Luxuswie Desktop- 
sieuerung und Dialogboxen jetzt auch in Ihren Programmen, auf Ihrem CPC! Kinderleichte Anwendung, 
Software vom Feinsten für alle kreativen BASIC-Freunde. 

- Ausführliches deutsches Handbuch mit vielen Beispielen 

- Eigenes Desktop-Editor-Programm 

- Mehr als 30 neue BASIC-Befehle, keine Maschinensprache-Kenntnisse erforderlich 

- Bis 2u 20 Normal-Menüs an jeder beliebigen Stelle auf dem Bildschirm 

- Bis zu 10 Parameter-Menüs mit Schalterfunktion 

- Bis zu 10 Werte-Menüs mit Eingabekontrolle 

- Unterstützung von farbigen Menüs, alle Bildschirm-Modi möglich 

- Superkomfortable Disketten befehle mit Fehlerentschärfung (z.B. selektive Katalogboxen) 

- Formatierbare Eingabe 

- Dialogboxen mit verschiedenen Icons 

- DESK-ROYAL, 3''-Diskette + Handbuch für nur 54,95 DM 

- Weitere top Anwendersoftware (DTP) für CPC, fordern Sie kostenlosen Katalog an 
Versand gegen Vorauskasss (Irei) oder Nachnahme (* 6,- DM) • Händlaranlrageh anganehm 


( 


KOSTENLOSE INFOS- 

Axel Weber, Postfach 2601 54, D-5600 Wuppertal 26 

Crusaöet* Software 


Floppy’s kauft man beim Spezialisten für Diskettenlaufwerke: 


Der G+L-Preishammer Sonderangebot; Floppy’s für Ihren CPC 


• STARDRIVE 5,25“ Zweltlaufw. ext. Netzt. 

(kpl, mit allen Kabeln, sofort betriebsbereit) 

• STARDRIVE 3“ Zweitlaufw. ext. Netzt. 

(kpl. mit allen Kabeln, sofort betriebsbereit) 

Zweitlaufwerke für EURO PC (360KB) 

“ STARDRIVE 5,25“ Ext. Disk Drive 
(kpl. Integr, Netzt., erfolgr. getestet in PC Int.) 

■ STARDRIVE 5,25“ SHUGART-Lw. ext. Netzt. 

(kpl. mit allen Kabeln, sofort betriebsbereit) 
Weitere interessante Angebote entnehmen 
Weitere Vorteile: 


nur DM 239,- 
nur DM 239,- 

nur DM 269,- 
nur DM 239, - 

bitte Heft 12 der PC International. 


— 12 Monate G+L-Vollgarantfe — Inkl. Betriebsanleitung/Handbuch 

— sofortige Betriebsbereitschaft - formschönes Flachgehäuse 

— alle Kabel Im Lieferumfang enthalten 


Weitere Angebote (z.B. Einbaulaufwerke) entnehmen Sie bitte uns. Prospekten/Listen (inkl. 
techn. Daten), die wir Ihnen gerne kostenlos zuschicken, Preis zzgl. Porto/Verpackung. 


G + L electronic 

Computerhardware 

6759 Hefersweiler * Seelenerstraße 4 * Tel: 06359/2582 


Jesus Christus. Gebt Ihr ihnen zu essen/(Mk. 6,37a) 



Krokodils-Tränen helfen nicht... 


i A/so. ist das nicht schrecklic h. 
was man ständig in den Medien 

so vo raesetzt bekommt? Miß¬ 
ernten. Hungersnot. Bürgerkrie¬ 
g e.. Es ist zum Heulen lieh has- 
se diese KatastroohenbenchteU 

Das Gebot christlicher 
Nächstenliebe erklärt jeden 
Menschen, der in Not ist und 
1 lilfe braucht - ganz gleich wo er 
lebt - zu unserem Nächsten. Vie¬ 
le bei uns wehren sich gegen die¬ 
se Verantwortung. .Sie verweisen 
auf Ursachen, die bei den armen 
Menschen selbst und ihren Re¬ 
gierungen liegen, auf Korrup¬ 
tion, zu hohe Verwaltungs¬ 
kosten, zu viele Kinder, hohe Rü¬ 


stungsausgaben, neue Armut bei 
uns, und, und, und... und vergie¬ 
ßen bittere Krokodilstränen. 
Wenn Sie wirklich helfen wol¬ 
len... BROT FÜR DIE WELT 
sorgt dafür, daß Ihre Spende 
dorthin kommt, wo sie dringend 
gebraucht wird. 

Postf. 10 1142, 7000 Stuttgart 10 

Brot 

für die Welt 

Postgiro Köln 500500-500 
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Programm/Anwendungen 



Wunderbare Welt 

der Mathematik 

APFELMANN oder In die Tiefe geschaut 


Man sollte es nicht für möglich halten, welchen Effekt ein paar, auf den 
ersten Blick unverständliche, mathematische Formeln auf dem Bildschirm 
erzeugen, wenn sie sich durch Grafik darstellen dürfen. Heraus kommen 
sogenannte fraktale Grafiken, besser bekannt als ’Apfelmännchen’. 


Geben Sie Listing 1 (APFELMAN.BAS) 
ein und speichern Sie es unter gleichem 
Namen. Listing 2 erzeugt die Datei 
APFELMAN.BIN, Listing 3 die Datei 
APFELMAN.DAT (dazu später mehr). 
Haben Sie nun alle drei Programme ab¬ 
gespeichert (bei Kassettenbenutzern bitte 
in der obigen Reihenfolge hintereinan¬ 
der), starten Sie das Programm APFEL¬ 
MAN.BAS. Dieses lädt selbständig die 
Programmteile APFELMAN.BIN und 
APFELMAN.DAT in den Speicher. 
APFELMAN.BIN enthält die RSX-Be- 
fehlserweiterungen (IBUSY und 
IHARDCOPY), welche folgende Funk¬ 
tionen haben: IBUSY testet, ob der 
Drucker bereit ist, Daten zu empfangen. 
Der Befehl IHARDCOPY druckt das 
Bild im aktuellen Modus aus. Die Datei 
APFELMAN.DAT muß dabei im Spei¬ 
cher stehen und zwar ab Adresse 8000 
hex. In ihr sind die Druckervariablen und 
die Steuerzeichen für die Escape-Sequen- 
zen (genaueres hierzu unter Drucker: 
Anpassung) enthalten. 

Haben Sie das Programm nun gestartet, 
schaltet der Computer zunächst auf den 
zweiten Bildschirmspeicher (CALL 


&BC06,&40) um. Der Poke-Befehl in 
Zeile 180 verhindert, daß der MODE- 
Befehl das aktuelle Bild löscht. Der Bild¬ 
schirm ist in drei Fenster unterteilt. Im 
Fenster Nr. 1 stehen immer Informatio¬ 
nen zum Programm. Fenster Nr. 2 (Sta¬ 
tusfenster) enthält die Werte von Xmin, 
Xmax, Ymin, Ymax und der Tiefe Tmax. 
Diese Werte geben die Grenzen des Aus¬ 
schnittes an, der als ’Apfelmännchen’- 
Bild dargestellt werden soll. 

ESC gibt an, ob eine Unterbrechung 
während des Zeichnens und Berechnens 
der Grafik zugelassen wird. JA heißt, daß 
unterbrochen werden kann, bei NEIN ist 
es logischerweise nicht möglich, wobei 
hier darauf zu achten ist, das auch der 
Dreifingergriff (CRTL-SHIFT-ESC) 
nicht funktioniert. 

MODUS gibt an, in welchem Bild¬ 
schirmmodus das Bild gezeichnet werden 
soll. Das Programm unterstützt alle drei 
Modi. Eine Besonderheit des Programms 
ist, daß die Farben im Modus 0 entweder 
an einen Grünmonitor oder an einen 
Farbmonitor angepaßt sind. Im Fenster 
0 stehen die Menü- bzw. Submenüpunk¬ 
te, die Sie mit den Cursortasten und Copy 


(nicht Enter) oder dem Joystick anwäh¬ 
len können. 

Falls Sie versehentlich den falschen Me¬ 
nüpunkt angewählt haben, gehen Sie im 
Submenü nur auf Hauptmenü, und schon 
gelangen Sie in eben dieses zurück. 

Doch nun gehen wir näher auf die Bedie¬ 
nung des Programms ein und erklären Ih¬ 
nen die einzelnen Menüpunkte. 

Menüpunkt Bild laden: Sie können ein 
abgespeichertes Bild von Kassette/Dis¬ 
kette laden. Geben Sie den Dateinamen 
ohne Anhang (Extension) an, und 
drücken Sie ENTER. Drücken Sie bei 
der Abfrage nach dem Namen nur ENT¬ 
ER, so bricht der Computer ab und kehrt 
ins Submenü zurück. 

Bei korrekter Eingabe lädt der CPC die 
Dateien NAME.DAT und NAME.PIC. 
NAME.DAT enthält folgende Variablen: 
xmin!, xmax!, ymin!, ymax, tmax%, dx, 
dy, cx, cy, modus, zeile %, spalte %, en¬ 
debild, xleft!, timax%, monitor$. esc$. 
xmin!, xmax!, ymin!. ’ymax!’ und 
’tmax%’ sind die Grenzen des Bildes mit 
der Tiefe ’tmax%’. ’cx’ und ’cy’ sind beim 
Zeichnen der Grafik die Koordinaten der 
Bildpunkte im zu berechnenden Aus¬ 
schnitt (bei erstmaligem Start ist 
cx=xmin! und cy=ymin!). ’dx’ berech¬ 
net sich aus folgender Formel: (xmax!- 
xmin!)/Anzahl der Bildpunkte in x-Rich- 
tung im aktuellen Modus-1. ’dy’ berech¬ 
net sich folgendermaßen: (ymax!- 
ymin!)/Anzahl der Bildpunkte in y-Rich- 
tung-1 (199). ’dx’ und ’dy’ geben an, um 
wieviel ’cx’ bzw. ’cy’ erhöht werden, 
wenn ein neuer Bildpunkt berechnet 
wird, ’modus’ gibt den Zeichenmodus 
an, in dem das Bild berechnet werden soll 
(Standard: 1). ’zeile%’ und ’spalte%’ 
sind die Koordinaten des gerade berech¬ 
neten Bildpunktes auf dem Bildschirm, 
’endebild’ gibt dabei an, ob das Bild 
schon fertig gezeichnet ist (Wert: 1) oder 
ob beim Zeichnen unterbrochen wurde. 
Solange ein Bild noch nicht fertiggezeich¬ 
net ist, bleiben diese Werte immer gleich. 
Dies hat den Vorteil, daß die Grenzen ei¬ 
nes Ausschnittes neu eingegeben werden 
können, der Computer das Bild aber im¬ 
mer nach den alten Koordinaten berech¬ 
net. ’monitor$’ gibt an, mit welchem 
Monitor (Farbe oder Grün) gearbeitet 
wird. Diese Variable hat nur Auswirkun¬ 
gen beim Darstellen bzw. Zeichnen eines 
Bildes in Modus 0. Die Farben werden 
dann entweder für einen Grün- oder für 
einen Farbmonitor angepaßt. ’esc$’ sagt 
dem Computer, ob beim Zeichnen eine 
Unterbrechung zugelassen werden soll. 
Die Datei NAME.PIC enthält das eigent¬ 
liche Bild. Sie benötigt 17 kByte Spei¬ 
cherplatz auf der Diskette, auf Kassette 
ist sie acht Blöcke lang. 
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Speichern: Wenn ein Bild vorhanden ist, 
speichert der Computer die für die Gra¬ 
fik benötigten Variablen (siehe oben) in 
der Datei NAME.DAT und das eigentli¬ 
che Bild in der Datei NAME.PIC ab. 

Löschen: Wenn Ihnen ein Ausschnitt aus 
der Apfelmännchen’-Menge nicht ge¬ 
fallt, können Sie das Bild einfach lö¬ 
schen. Sie müssen dann die Sicherheit¬ 
sabfrage nur mit “J“ für “JA“ beantwor¬ 
ten, bei Eingabe anderer Zeichen kehrt 
der Computer zum Submenü zurück. 

Ausschnitt vergrößern: Ein Ausschnitt 
kann nur vergrößert werden, wenn ein 
Bild schon im Speicher vorhanden ist. 
(Variable ’bild’ muß dabei auf “1“ stehen) 
Der Computer schaltet dann auf den er¬ 
sten Bildschirmspeicher um (in ihm se¬ 
hen wir unser Apfelmännchen). Sie kön¬ 
nen nun mittels der Cursortasten oder des 
Joysticks einen Ausschnitt bestimmen, 
den Sie vergrößern wollen. Hierzu bewe¬ 
gen Sie den auf dem Schirm angezeigten 
Cursor an die Stelle, welche die obere 
linke Ecke werden soll. Betätigen Sie nun 
die COPY-Taste (bei Joystick den Feuer¬ 
knopf), und verfahren Sie genauso für die 
untere rechte Ecke des Ausschnitts. 
Nachdem Sie so den gewünschten Aus¬ 
schnitt bestimmt haben, können Sie ihn 
durch Anwahl des Menüpunktes Apfel¬ 
männchen zeichnen berechnen und 
zeichnen lassen. 

Apfelmännchen zeichnen: Der Compu¬ 
ter berechnet ein Bild aus den Werten 
’xmin!’, ’xmax!’, ’ymin!’, ’ymax!’ und 
’tmax%’, falls ’endebild’ auf “1“ gesetzt 
ist. Ansonsten fahrt der Computer beim 
Berechnen eines Bildes an der Stelle fort, 
an der er zuletzt aufgehört hat. 

Menüpunkt: Drucker 

Anpassung: Die Hardcopyroutine des 
Programms kann an Ihren Drucker ange¬ 
paßt werden. Sie ist für dem Epson-kom- 
patiblen DMP-2000 geschrieben. Der 
Computer muß dabei die Länge folgen¬ 


der Druckersequenzen und Ihre Steuer¬ 
zeichen von Ihnen wissen: 

a) 17/216 Zoll Zeilenabstand 

b) 1/216 Zoll Zeilenabstand 

c) Grafik in doppelter Dichte (max. 960 
Punkte/Zeile) mit 800 Punkten/Zeile 

d) 1/8 Zoll Zeilenabstand 

e) Seitenvorschub 

f) Wagenrücklauf und Zeilenvorschub 

g) Druckerreset 

Die Länge der Sequenzen ist beliebig 
(maximal jedoch 255 Zeichen). Sie dür¬ 
fen jedoch das Zeichen mit der Nummer 
255 nicht enthalten, da dieses das Ende 
der Sequenz der Hardcopyroutine mit¬ 
teilt. 

Hardcopy: Dieser Submenüpunkt kann 
nur dann aufgerufen werden, wenn der 
Drucker bereit ist, Daten zu empfangen. 
Wenn das Bild noch nicht fertiggezeich¬ 
net wurde, fragt das Programm nach , ob 
das Bild auch wirklich ausgedruckt wer¬ 
den soll. Der Computer schaltet dann auf 
den ersten Bildschirmspeicher um, stellt 
den Modus ein und setzt die Farben auf 
Ihre dem Modus angepaßten Werte. Der 
CPC gibt dann das Bild als DIN-A4- 
Hardcopy auf dem Drucker aus. Die 
Hardcopy-Routine kann jederzeit unter¬ 
brochen werden. Unter den Ausdruck 
werden die Grenzen des Ausschnittes und 
die Tiefe gedruckt, ein Seite vorgescho¬ 
ben und der Drucker zurückgesetzt. 

Druckerparameter speichern: Die 

Druckervariablen aus dem Submenü¬ 
punkt Anpassung werden unter dem Na¬ 
men APFELMAN.DAT abgespeichert. 
Sie werden ebenfalls bei erneutem Start 
dieses Programms automatisch nachge¬ 
laden, so daß eine Druckeranpassung 
nicht jedesmal erfolgen muß. 

Menüpunkt: Programm 

Ende: Möchten Sie das Programm been¬ 
den, beantworten Sie die Sicherheitsab¬ 
frage mit “J“. Der erste Bildschirmspei¬ 
cher mit der Grafik wird eingeschaltet 


und das Programm beendet. Geben Sie 
bei der Abfrage andere Zeichen ein, so 
fährt das Programm beim Submenü fort. 

Neustart: Das Programm wird neu ge¬ 
startet. Die Druckervariablen werden neu 
eingelesen, und der erste Bildschirmspei¬ 
cher wird gelöscht. Vor dem Neustart 
sollten Sie eine eventuell vorhandene 
Grafik abspeichern, da diese ansonsten 
verlorengeht. Die Variablen ’xmin!’, 
’xmax!’, ’ymin!’, ’ymax!’ und ’tmax%’ 
werden auf ihre ursprünglichen Werte ge¬ 
bracht. Die Werte sind die Grenzen der 
Menge, die dargestellt werden soll. Sie 
können aber Werte verwenden, die 
außerhalb dieser Menge liegen, nur wird 
das Apfelmännchen dann nicht unbedingt 
schön aussehen. 

Menüpunkt: Sonstiges 

Umschalten Farb-/Grünmonitor: Die¬ 
ser Submenüpunkt macht sich nur in 
Mode 0 bemerkbar. Die Farben werden 
an einen Färb- bzw. Grünmonitor ange¬ 
paßt. Bei einem Grünmonitor werden die 
Farben mit zunehmender Farbnummer 
immer heller, was für einen relativ stu¬ 
fenlosen Farbübergang von dunkel nach 
hell gedacht ist. 

ESC ein/aus: Soll beim Zeichnen eines 
Apfelmännchens eine Unterbrechung zu¬ 
gelassen werden, steht im Statuswindow 
bei ESC: ’JA, das bedeutet, daß Sie das 
Zeichnen eines Bildes unterbrechen und 
zu anderer Zeit weitermachen können. 
Dieser Menüpunkt hat auf andere Menü¬ 
punkte keine Auswirkung. 

Darstellungsmodus: Sie können mit den 
Cursortasten und Copy bzw. dem Joy¬ 
stick den Modus anwählen, in dem die 
Grafik dargestellt werden soll. Der Dar¬ 
stellungsmodus wird im Statuswindow 
unter MODUS angezeigt. 

Werte verändern: Dies ist einer der 
wichtigsten Submenüpunkte des Pro¬ 
gramms. Sie können die Weite von 
’xmin!’, ’xmax!’, ’ymin!’, ’ymax!’ und 



Abb./: Wie Sie die Werte verändern, bleibt Ihnen überlassen, das Ergebnis. 



Abb.2: ...kann sich in jedem Falle sehen lassen 
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’tmax % ’ einzeln verändern, indem Sie 
die zu ändernde Variable mit den Cursor¬ 
tasten oder dem Joystick anwählen. Ha¬ 
ben Sie alle Werte nach Ihrem Belieben 
verändert, drücken Sie ENTER. Der 
CPC fragt Sie dann, ob die Werte noch 


berichtigt werden sollen, um verzerrtes 
Zeichnen eines Bildes zu verhindern. 
Bild anzeigen: Das Apfelmännchenbild 
wird im aktuellen Modus angezeigt. 
Drücken Sie eine Taste, kehrt das Pro¬ 
gramm zum Submenü zurück. 


Soweit also unsere Führung durch unser 
Apfelmännchenprogramm. Wir wün¬ 
schen Ihnen jetzt viel Spaß bei Ihrer Rei¬ 
se durch die wunderbare Welt der Frak- 
tale. 

(Thorsten Heit/jb) 


für 464-664-6128 
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90 

Initialisierung 


[1300] 

100 

SYMBOL 255,254,252,248,252; 

,238,199,3,1 [10980] 


:MEMORY &9 FF F:OPENOUT"x":MEMORY &3FFF:CLOS 
EOUT 'Platz fuer 2. Bildschirm reservieren 
und Pfeilzeichen definieren 
110 INK 0,0: BORDER 0:CALL 8.BC06,8.C0 : MODE 1 [4430] 

:CLS:CALL &BC06,&40:CLS:INK 1,14:INK 2,20: 

INK 3,26 

120 IF PEEK(&A000)=1 THEN 130 ELSE LOAD”!a [9848] 
pfe1 man.bin",&A000:CALL &AOOO 'RSX-Erweite 
rung (BUSY,HARDCOPY) laden und initialisie 
r en 

130 zei 1 e*>=0 : spal te%=0 :moni tOr$="Gruen" : es [ 9453] 
c$="Ja":xmin!=-2.2:xmax!=l:ymin!=-l:ymax!= 
l:tmax%=30:modus=l:endebi1 d = l:busy*=0 
140 DEF FNxmin = xmax!-(ymax!-ymin! )* 1.6:DEF [4014] 
FNymin=ymax!-(xmax!-xmin!)/ 1 .6 
150 DEF FNxmax=xmin!+(ymax!-ymin!)*1.6:DEF [4162] 
FNymax=ymin!+(xmax!-xmin!)/I.6 
160 DEF FNzei1e=2‘modus*160-1:DEF FNschrit [3229] 
t=5-2“modus+(modus=1) 

170 DEF FNdx=(xmax!-xmin!)/FNzeile:DEF FNd [5249] 
y=(ymax!-ymin!)/199:dx=FNdx:dy=FNdy 

180 a=PEEK(&BDEC)+256*PEEK(&BDED)+23:POKE [5164] 
&BDEC,a AND 255:POKE 8.BDE D , I NT ( a/2 5 6 ) 

190 ON BREAK GOSUB 2370:KEY DEF 66,0,0,0,0 [1212] 


200 LOAD"!apfelman.dat",&8000:GOSUB 2440 ' [3947] 

Einlesen Druckervariabl en 

210 DIM menue$(3,6),modus$(2),wert$(4) [2484] 

220 'Einlesen Menue- und Submenuepunkte [4135] 

230 RESTORE 270 [797] 

240 FOR a=0 TO 3:READ menue$(a,0):FOR b=l [3332] 

TO 6 

250 REAO menue$(a,b) [1038] 

260 NEXT b,a [372] 


270 OATA Bi 1d,Laden,Spei ehern,Loeschen,Aus [6710] 
schnitt vergroessern,Apfelmaennchen zeichn 
en,Hauptmenue 

280 DATA Drucker,Anpassung,Hardcopy,Drucke [3363] 
rparameter speichern,Hauptmenue, " " , "" 

290 DATA Programm,Ende,Neustart,Hauptmenue [2865] 


300 DATA Sonstiges,Umscha1ten Farb-/Gruenm [9320] 
onitor.Esc ein/aus,Darstellungsmodus.Werte 
veraendern.BiId anzeigen,Hauptmenue 
310 FOR a = 0 TO 2:READ modus$(a ) :NEXT [2107] 

320 DATA "0: 160*200 Punkte, 16 Farben","l [4460] 

: 320*200 Punkte, 4 Farben","2: 640*200 Pu 

nkte, 2 Farben" 

330 FOR a=0 TO 4:READ wert$(a):NEXT [2053] 

340 DATA Xmin,Xmax,Ymin,Ymax,Tiefe [1776] 

350 'Bildaufbau [936] 

360 WIN DOW #1,1,40,1,4 [1368] 

370 PAPER#1,3:PEN#1,1 [1901] 

380 PRINT#1,CHR$(150)STRING$(38,154)CHR$(1 [11239] 

56)CHR$(149)SPC(12)"Apfelmaennchen"SPC(12) 


CHR$(149)CHR$(149)SPC(7)"(c)1988 by Thorst 
en Heit"SPC(7)CHR$(149)CHR$(147)STRING$(38 
,15 4)CHR$(153) ; 

390 PAPER 2:PEN l:LOCATE 1,5:PRINT CHR$(15 [3006] 
0)STRINGS(38,154)CHR$(156) 

400 LOCATE 1,19:PRINT CHR$(147)STRING$(38, [2344] 

154)CHR$(153) 

410 FOR a=6 TO 18: LOCAT E l,a:PRINT CHR$(14 [ 5078 ] 
9);:LOCATE 40,a:PRINT CHR$(149);:NEXT 
420 PAPER 3:PEN 1 [1137] 

430 LOCATE 1,20:PRINT CHR$(150)STRING$(38, [2673] 
154)CHR$(156) 


Llstlng Apfelmann 


440 LOCATE 1,25:PRINT CHR$(147)STRING$(38, [3878] 

154)CHR$(153); 

450 FOR a=21 TO 24:LOCATE l.arPRINT CHR$(1 [6288] 
49);:LOCATE 40,a:PRINT CHR$(149);:NEXT 
460 GOSUB 2390:menue=0 [1169] 

470 zei1e$=" Esc: \ \ Modus: # Monitor: [9812] 

\ \ Xmin:##.######### Xmax:##.###### 

### Ymin:##.######### Ymax:##.######### 

Tiefe:####":pfei]$=CHR$(255) 

480 GOSUB 2250:CLS [ 1255 ] 

490 'Abfrage Menuepunkt [1321] 

500 FOR a = 0 TO 3:LOCAT E 13,4+a*2:PRI NT men [3706] 
ue$(a,0);:NEXT 

510 LOCATE 13,4+menue*2:PRINT CHR$(24)menu [5600] 
e$(menue,0)CHR$(24);:altmenue=menue 
520 a$=INKEY$:j =JOY(0) [ 546 ] 

530 IF a$=""AND j=0 THEN 510 [1242] 

540 IF a$=CHR$(240)OR(j AND 1)=1 THEN menu [2701] 
e=(menue-1)AND 3 

550 IF a$=CHR$(241)OR(j AND 2)=2 THEN menu [2260] 
e=(menue+1)AND 3 

560 IF a$=CHR$[224)OR(j AND 16)=16 THEN CL [2882] 
S:GOTO 590 

570 LOCATE 13,4+a1tmenue*2:PRINT menue$(al [2792] 
tmenue,0);:GOTO 510 

580 'Abfrage Untermenuepunkt [1420] 

590 GOSUB 2390:FOR a=l TO 6 [2114] 

600 LOCATE 7,a*2:IF menue$(menue,a)=""THEN [4930] 
620 ELSE PRINT menue$(menue,a) 

610 NEXT [350] 

620 submenue=1:maxsub=a-1:a$="" [2415] 

630 GOSUB 2 390:LOCAT E 7,submenue*2:PR I NT C [ 7686] 
HR$(24)menue$(menue,submenue)CHR$(24);:hel 
psub=submenue 

640 a$=INKEY$:j=J0Y(0):IF a$=""AND j=0 THE [1247] 
N 640 

650 IF a$=CHR$(240)OR(j AND 1)=1 THEN IF s [4680] 
ubmenue=l THEN submenue=maxsub ELSE submen 
ue=submenue-l 

660 IF a$=CHR$(241)0R(j AND 2)=2 THEN IF s [5299] 
ubmenue=maxsub THEN submenue=l ELSE submen 
ue=submenue+1 

670 IF a$=CHR$(224)OR(j AND 16)=16 THEN 70 [2404] 
0 

680 LOCATE 7,heipsub*2:PRINT menue$(menue, [4500] 
heipsub)GOTO 630 


690 1 Unterprogrammaufruf [1167] 

700 IF submenue=maxsub THEN 470 [1959] 

710 ON menue+1 GOTO 740,1380,1700,1790 [2465] 

720 'Unterprogramme [916] 

730 '1. Menuepunkt: Bild [2226] 

740 ON submenue GOTO 760,830,960,1000,1190 [1430] 
750 'Bild laden [1572] 

760 GOSUB 900 [832] 

770 OPENIN file$+*‘.dat" [ 1686] 

780 INPUT#9,xmin!,xmax!,ymin!,ymax!,tmax*, [8283] 

dx,dy,cx,cy,modus,zeile»S, spalte*, endebild, 
xleft!,timax%,monitor$:INPUT#9,esc$ 

790 LOAD f i 1 e$+" . pi c" , 8.C000 [1219] 

800 CLOSEIN [752] 

810 bi 1d=1:GOTO 940 [485] 

820 'Bild speichern [2211] 

830 IF bi 1d = 0 THEN WINDOW SWAP 2:GOTO 940 [2310] 

ELSE GOSUB 900 

840 OPENOUT f11e$+".dat" [1303] 

850 PRINT#9 , xmi n !; xmax !; ymi n !; ymax ! ; tmax56 ; [6152] 

dx;dy;cx;cy;modus;zei1e%;spalte%;endebild, 
xleft!,timax*,monitor$:PRINT#9,esc$ 

860 CLOSEOUT [902] 

870 SAVE fi 1 e$+" . pi c" , b, 8.C000,8.4000 [ 2276] 

880 GOTO 940 [312] 

890 'Abfrage Filename fuer Save/Load Bild [2143] 
900 WINDOW SWAP 2:CLS:PRINT:INPUT" Bitte g [6260] 
eben Sie den Filenamen ein: ",file$ 

910 IF LEN(fi1e$)>8 OR INSTR(fi1e$,".")>0 [6419] 

OR fi1e$=""THEN WINDOW 5WAP 2:GOSUB 2250.G 
0T0 630 

920 fi1e$="!"+fi1e$:RETURN [852] 

930 'Window#2 wieder hersteilen [1832] 

940 WINDOW SWAP 2:GOSUB 2250:G0T0 630 [2680] 
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950 'Bild loeschen 

960 IF bi 1d = 0 THEN 630 ELSE GOSUB 2280 
970 IF a$= " J"THEN CALL SBC06,&C0:CLG 0:CAL 
L &BC06,S40:bild = 0:endebi 1 d=l 
980 GOTO 940 

990 'Ausschnitt vergroessern 


1000 IF bi 1d = 0 THEN WINDOW SWAP 2:CLS:PRIN 
T:PRI NT CHR$(7)" Ausschnitt vergroessern n 
icht moeg- lieh !";:CALL SBB06:GOTO 940 
1010 CALL SBC06,SCO:MODE modustGOSUB 2310: 
PRINT CHR$(23)"1"; 

1020 x=320:y=200:xx=x:yy=y:PLOT-4,-4,15 
1030 klick=0 

1040 MOVE x , y : xx=x:yy = y:TAG:PRINT pfeil$;: 
MOVE x,y 

1050 IF klic k=1 THEN PLOT savx,savy:DRAW x 
,savy:DRAW x,y:DRAW savx,y:DRAW savx,savy 
1060 a$=INKEY$:j =JOY(0):IF a$=""AND j = 0 TH 
EN 1060 

1070 IF INKEY(O)>-l 0R(j AND 1)=1 THEN IF 
y < 39 7 THEN y = y + 2 

1080 IF INKEY(2)>-1 OR(j AND 2)=2 THEN IF 
y >0 THEN y = y-2 

1090 IF INKEY(8)>-1 OR(j AND 4)=4 THEN IF 
x>0 THEN x = x-FNsch ritt 


1100 IF IN KEY(1)>-1 OR(j AND 8> = 6 THEN IF 
x < 639 THEN x=x+FNschritt 

1110 IF INKEY(9)>-l OR ( j AND 16)=16 THEN I 
F klick=l THEN 1150 ELSE savx = x:savy = y:k 1 i 
ck = l 


1120 IF a$=CHR$(13)AND klick=l THEN korr=l 
:GOTO 1150 

1130 IF kl1ck=l THEN PLOT savx,savy:DRAW x 
x,savy:DRAW xx,yy:DRAW savx,yy:DRAW savx.s 
avy 

1140 MOVE xx,yy:PRINT pfeil$;:GOTO 1040 
1150 IF x = savx OR y = savy THEN CALL 3.BCÖ6,S 
40:MODE 1:INK 1,14;INK 2,20:INK 3,26:GOTO 
630 

1160 ymin!=ymin!+savy*dy/ 2 :xmax!=xmin!+x*d 
x/FNschritt:xmin!=xmin!+savx*dx/FNschritt: 
IF korr=l THEN ymax!=FNymax:ymin!= FN ymin:x 
max!=FNxmax:xmin!=FNxmin ELSE ymax!=ymin!+ 
y*dy/2 

1170 CLG:endebi1d = 1:esc$= " Ja" 'Berechneten 
Ausschnitt gleich zeichnen 
1180 'Apfelmaennchen zeichnen 
1190 CALL SBC06,SCO:MODE modusiGOSUB 2310 
1200 IF esc$="Nein"THEN POKE SB939.SC9 
1210 maxfarb=ABS((modus-2)~2*4-l) 

1220 IF endebi1d=l THEN dx=FNdx:dy=FNdy:cx 
=xmin!:cy=ymin!:bild=l:zeile*=0:spalte*= 0 : 
endebild=0:xleft!=xmin!:timax*=tmax* ELSE 
cx=cx-dx 


1230 FOR y*=zei1 e% TO 399 STEP 2 
1240 FOR x%=spalte* TO 639 STEP FNschritt 
1250 tiefe%=0:xwert=0:ywert=0:xquad=0:yqua 
d = 0 

1260 WHILE(tiefe*<timax*)AND(xquad+yquad<6 

) 

1270 ywert=2*xwert*ywert+cy 
1280 xwert=xquad-yquad+cx 
1290 xquad=xwert"2 
1300 yquad=ywert'2 
1310 tiefe*=tiefe%+l:WEND 

1320 IF tiefe*=timax* THEN PLOT x*,y*,0:cx 
=cx+dx:GOTO 1340 


1330 cx=cx+dx:farbe*=tiefe*M0D maxfarb+1:P 
LOT x*,y*,färbe* 

1340 IF INKEY$<>""THEN 1360 

1350 NEXT:spalte* = 0:cx=xleft!:cy=cy+dy:NEX 

T:x*=0:y*=0:endebild=l 

1360 spalte*=x*:zei1e*=y*:POKE SB939,SF3:C 
ALL SBC06,S40:MODE 1:INK 1,14:INK 2,20:INK 
3,26:GOTO 630 

1370 '2. Menuepunkt: Drucker 

1380 ON submenue GOTO 1400,1540,1680 

1390 'Anpassung anderer Drucker 

1400 WINDOW SWAP 2:a$="17/216 Zoll Zeilena 

bstand":GOSUB 1480:abstand$=b$ 

1410 a$=' 1/216 Zoll Zei1enabstand":GOSUB 1 
480:abstandl$=b$ 

1420 a$= Grafik in dopp.Dichte(800 Pkt/Zei 
1e)":GOSUB 1480:abstand2$=b$ 

1430 a$= "1/8 Zoll Zei1enabstandGOSUB 148 
0:abstand3$=b$ 

1440 a$="Seitenvorschub":GOSUB 1480:abstan 
d 4$ = b$ 


[1746] 
[ 626 ] 

[3008] 

[312] 

[881] 

[7619] 


[ 3476 ] 

[1649] 
[884] 

[ 4531 ] 

[4158] 

[ 1291 ] 

[3280] 

[ 2984 ] 

[3854] 

[3139] 

[3962] 

[2732] 
[ 5241 ] 


[1374] 
[5073] 


[ 10491 ] 


[4492] 

[1468] 
[1833] 
[1699] 
[ 1544 ] 
[9289] 


[1510] 
[2529] 
[4016] 

[ 3388 ] 

[1543] 
[ 1939 ] 
[1481 ] 
[1792] 
[1418] 
[4107] 

[2812] 

[934] 

[5121 ] 

[6357] 


[ 92 7 ] 

[ 859 ] 

[ 2346] 
[4111] 

[4688] 

[ 4955 ] 

[ 4389 ] 

[2524] 
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1450 a$="Wagenrueck1 auf und Zei1envorschub 
":GOSUB 1480:abstand5$=b$ 

1460 a$="Druckerreset":GOSUB 1480:abstand6 

$ = b$ 

1470 GOSUB 2560;GOTO 940 

1480 CLS:PRINT" Bitte geben Sie die Anzahl 
der Steu- erzeichen der Escape-Sequenz 
PRINT" "CHR$(24)a$CHR$(24)" ein: ";:INPUT" 

" , anzah1 

1490 IF anzah1=0 THEN 940 ELSE b$="" 

1500 FOR x=l TO anzahl:PRINT" Wert "x". Ze 

ichen: ";:INPUT"",wert 

1510 b$=b$+CHR$(wert):NEXT 

1520 RETURN 

1530 'Hardcopy 

1540 iBUSY,@busy*:IF (bild AND busy*)=0 TH 
EN 630 'Test ob Drucker bereit 
1550 IF endebi1d=0 THEN WINDOW SWAP 2:CLS: 
PRINT:PRINT" Moechten Sie das unfertige Bi 
Id schon ausdrucken ? (J/N) ";:GOSUB 

2290: IF a$0"J"THEN WINDOW SWAP 2:G0SUB 2 
2 50:GOTO 630 

1560 CALL SBC06,SCO:MODE modus:GOSUB 2310 
1570 adr=S8000:1ength=0 'Beginn Speicher d 
er Druckervariab!en; Ablegen Adressen der 
Druckervariablen im Speicher fuer Hardcopy 
1580 POKE SA269,0:POKE SA26A.S80 '17/216 Z 
oll Zei1enabstand 

1590 GOSUB 2530:POKE SA26B,adr AND 255:POK 

E SA26C,INT(adr/256)+(256 AND INT(adr/256) 

<0) '1/216 Zoll Zeilenabstand 

1600 GOSUB 2530:POKE SA26D,adr AND 255:POK 

E SA26E,INT(adr/256)+(256 AND INT(adr/256) 

<0) 'Grafik in doppelter Dichte (960 Punkt 

e/Zeile) mit 800 Punkte/Zeile 

1610 GOSUB 2530:POKE SA26F,adr AND 255:P0K 

E SA270,INT(adr/256)+(256 AND INT(adr/256) 

<0) '1/8 Zoll Zeilenabstand 

1620 GOSUB 25 30:POKE SA271,adr AND 255.P0K 
E SA272,INT(adr/256)+(256 AND INT(adr/256) 
< 0) 'Wagenrueck1 auf und Zei1en vorschub 
1630 GOSUB 2530:POKE SA273,adr AND 255:POK 
E SA274,INT(adr/256)+(256 AND INT(adr/256) 
<0) 'Druckerreset 
1640 !HARDCOPY:GOSUB 2560 

1650 PRI NT# 8,"Xmin: ";xmin!:PRINT# 8,"Xmax 
: xmax!:PRINT48,"Ymin: ";ymin!:PRINT#8 

,"Ymax: ";ymax!:PRINT#8,"Tiefe: ";tmax*;a 

bstand4$abstand6$; 'Ausdruck von Xmin,Xmax 
,Ymin,Ymax,Tiefe, Seitenvorschub und Druck 
e r reset 

1660 CALL SBC06,S40:MODE 1:INK 1,14:INK 2, 

20:INK 3,26:GOTO 630 

1670 'Druckerparameter speichern 

1680 SAVE" lapfelman.dat ",b,S8000,length:GO 

TO 630 

1690 '3. Menuepunkt: Programm 
1700 ON submenue GOTO 1720,1760 
1710 'Ende 
1720 GOSUB 2280 

1730 IF a$="J"THEN MODE modus:CALL SBC06,S 

CO:GOSUB 2310:END 

1740 GOTO 940 

1750 ' Neustart 

1760 GOSUB 2280 

1770 IF a$="J"THEN a=PEEK(SBDEC)+256*PEEK( 
SBDED)-23:POKE SBDEC,a AND 255:P0KE SBDED, 
INT(a/256):MEMORY S8FFF:CLOSEOUT:CLOSEIN:M 
EMORY SA6 7B:RUN ELSE 940 
1780 '4. Menuepunkt: Sonstiges 
1790 ON submenue GOTO 1810,1840,1870,2000, 
2220 

1800 'Umschalten Farb-/Gruenmonitor 

1810 IF monitor$="Gruen"THEN monitor$="Far 

be"ELSE monitor$="Gruen" 

1820 GOSUB 2250:GOTO 630 
1830 'Esc ein/aus 

1840 IF esc$="ua"THEN esc$="Nein"ELSE esc$ 
= " J a" 

1850 GOSUB 2250:GOTO 630 
1860 'Darstellungsmodus 

1870 CLS:FOR a=0 TO 2:L0CATE 4,4+a*2:PRINT 
modus$(a):NEXT:newmodus=0 
1880 LOCATE 4,4 + newmodus* 2:PRINT CHR$(24)m 
Odus$(newmodus)CHR$(24);: he 1pmodus=newmodu 
s 

1890 a$=INKEY$:j=J0Y(0):IF a$=""AND j=0 TH 
EN 1890 


[ 5522 ] 

[3423] 

[ 2220 ] 

[10164] 


[1244] 

[3860] 

[474] 

[ 555 ] 

[ 320] 
[4452 ] 

[10861] 


[1833] 
[5922 ] 

[3869] 

[6280] 

[ 10122 ] 


[7168] 

[4514] 

[5659] 

[2023] 
[9833] 


[3565] 

[3046] 

[3493] 

[1073] 

[ 744 ] 
[715] 
[851] 

[3031] 

[ 312 ] 

[ 759 ] 
[851 ] 

[10769] 


[1610] 
[1037] 

[ 1778 ] 
[3424] 

[1289] 
[ 825 ] 

[2009] 

[ 1289 ] 
[ 906 ] 
[4276] 

[5263] 


[1428] 
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Auf die Plätze... 
fertig ... los 

Mitmachen und Geld 
gewinnen bei unserem 
Wettbewerb 

Sie halten gerade das neue CPC-Sonderheft in den Händen. 
Das heißt, Sie besitzen einen CPC und wollen Ihren Com¬ 
puter mit Software füttern. Und genau mit diesem Heft kön¬ 
nen Sie dem ewig hungrigen CPC eine Menge Futter zu¬ 
führen. 

Eine Spezialität in diesem Heft sind unsere Mini-Programme, 
die besonders klein und unglaublich pfiffig sind. 

Wenn Sie wissen wollen, was die findigen Leser und Lese¬ 
rinnen programmiert haben, dann schauen Sie doch gleich 
in die Rubrik “Tips und Tricks“. Dort finden Sie eine Men¬ 
ge von Programmen, die Ihnen bei der Bedienung und dem 
Programmieren des CPC weiterhelfen, und einen Einstieg 
in die Computersprache BASIC. 

Die Programme erstrecken sich von der einfachen Menüsteu¬ 
erung bis hin zum komplizierten Apfelmännchen. 

Doch auch der Spielefreund bekommt was geboten, vom wit¬ 
zigen Galgenspiel bis hin zu einem komplexen Labyrinth- 
Spiel . 

Wir finden, diese Leistung muß besonders honoriert werden. 
Deshalb machen wir Ihnen ein Angebot: Senden auch Sie uns 
ein Programm ein, das die unten angegebenen Bedingungen 
erfüllt. Die Belohnung für eine Veröffentlichung beträgt ein¬ 
hundert Deutsche Mark. 

Bedingungen: 

Auch Sie können einhundert Deutsche Mark gewinnen, wenn 
folgende Punkte beachtet werden: 

1. Senden Sie uns das Programm (maximal zwei!) auf einer 
Kassette oder Diskette zu — wird bei Nichtgefallen zurück¬ 
geschickt. 

2. Speichern Sie Ihre Bedienungsanleitung für das Programm 
im ASCU-Format ab. Entweder mit einer Textverarbeitung, 
zum Beispiel CoriText, oder, wenn keine Textverarbeitung 
vorliegt, in einem BASIC-Programm mit REM-Zeilen. Hier¬ 
bei ist es wichtig, daß das Programm mit “,A“ abgespeichert 
wurde. 

Beispiel: SAVE“Prg-Text.TXT“,A 
Wenn die Möglichkeit besteht, sollte der Text auch ausge¬ 
druckt beiliegen. 

3. Der Rechnertyp (464/664/6128) sollte mit angegeben sein. 

4. Wohin schicke ich die Programme ein? Ganz einfach! 
Schreiben Sie an den: 

DMV-Verlag 
Stichwort: 100,- DM 
Redaktion PC Amstrad 
Postfach 250 
3440 Eschwege 

Die Programme werden bei Gefallen in der monatlich er¬ 
scheinenden PC Amstrad International veröffentlicht. 

Viel Glück wünscht Ihre Redaktion PC Amstrad. 


Programm/Anwendungen 


1900 IF a$=CHR$(240)0R(j AND 1)=1 THEN IF [4670] 
newmodus = 0 THEN newmodus=2 ELSE new<nodiJS = n 
ewmodus-1 

1910 IF a$=CHR$(241)OR(j AND 2)=2 THEN IF [4930] 
newmodus=2 THEN newmodus=0 ELSE newmodus=n 
ewmodus+1 

1920 IF a$=CHR$(224)OR(j AND 16)=16 THEN 1 [2461] 
940 

1930 LOCATE 4.4+he1pmodus*2:PRINT modus$(h [2876] 
elpmodus);:GOTO 1880 

1940 IF modus<>newmodus THEN 1950 ELSE mod [4903] 
us=newmodus:CLS:GOSUB 2250:GOTO 590 
1950 IF modus=2 THEN IF newmodus=l THEN dx [3769] 
= dx/2 ELSE dx = dx/4 

1960 IF modus=l THEN IF newmodus=0 THEN dx [2513] 
= dx* 2 ELSE dx=dx/2 

1970 IF modus=0 THEN IF newmodus=l THEN dx [2641] 
=dx*2 ELSE d x = d x* 4 

1980 modus=newmodus:CLS:GOSUB 2250:G0T0 59 [2864] 
0 

1990 'Werte veraendern [1165] 

2000 CLS:FOR a=0 TO 4:L0CATE 4,2 + a*2:PRINT [3612] 

wert$(a);:NEXT 

2010 wer t =0 [533] 

2020 LOCATE 4,2+wert*2:PRINT CHR$(24)wert$ [2353] 

(wert)CHR$(24);:altwert=wert 

2030 a$=INKEY$:j=JOY(C):IF a$=""AND j=0 TH [1080] 
EN 2030 

2040 IF a$=CHR$(240)0R(j AND 1)=1 THEN IF [2662] 
we r t = 0 THEN wert = 4 ELSE wert = wert-l 

2050 IF a$=CHR$(241)OR(j AND 2)=2 THEN IF [3813] 
wert=4 THEN wert=0 ELSE wert=wert+l 

2060 IF a$=CHR$(224)OR(j AND 16)=16 THEN G [3051] 
OSUB 2090 


2070 IF a$=CHR$(13)THEN 2160 [692] 

2080 LOCATE 4,2 + a1twert* 2:PRI NT wert$(altw [3120] 
e rt) ; :GOTO 2020 

2090 LOCATE 10,2+ wert* 2:INPUT": ,wert2 [3134] 
2100 IF wert=0 THEN xmin!=wert2 [1790] 

2110 IF wert=l THEN xmax!=wert2 [2151] 

2120 IF wer t = 2 THEN ymin!=wert2 [ 2305 ] 

2130 IF wert=3 THEN ymax!=wert2 [1301] 

2140 IF wert=4 THEN tmax%=wert2 [1189] 

2150 GOSUB 2250:LOCATE 10,2+wert*2:PRINT S [3042] 
PC(20) ; :GOTO 2020 

2160 WINDOW SWAP 2:CLS:PRI NT:PRINT" Korrek [7611] 
tur der eingegebenen Werte ? (J/N) "CHR 


$( 14 3)CHR$(8); 

2170 GOSUB 2290:PRINT CHR$(8);:IF a$<>"J"A [5651] 
ND a$ < >"N"THEN PRINT" "CHR$(7)CHR$(8); :GOT 
0 2170 


2180 IF a$="N"T HEN 2200 [ 973] 

2190 ymax!=FNymax:ymin!=FNymin:xmax!=FNxma [3480] 
x 

2200 WINDOW SWAP 2:GOSUB 2250:CLS:GOTO 590 [4065] 
2210 'Bild anzeigen [851] 

2220 CALL &BC06,&C0:MODE modus:GOSUB 2310 [1833] 

2230 CALL 8>BB03:CALL &BB06:CALL &BC06,&40: [4862 ] 

MODE 1:INK 1,14:INK 2,20:INK 3,26:GOTO 630 
2240 'Werteanzeige in Window#2 [2589] 

2250 C LS# 2:PRINT#2,USING zei1e$;esc$;modus [6231] 
;monitor$;xmin!;xmax!;ymin!;ymax!;tmax%; 

2260 RETURN [555] 

2270 'Sicherheitsabfrage [1051] 


2280 WINDOW SWAP 2:CLS:PR I NT:PR I NT" Sind S [4652 ] 
ie sicher ? (J/N) "CHR$(143)CHR$(8 ) ; 

2290 a$="":WHILE a$= '"' :a$=UPPER$(INKEY$) :W [3096] 
ENDtPRINT a$;:RETURN 

2300 'Farben setzen [1432] 

2310 IF modus=2 THEN INK 1,26:RETURN ELSE [5060] 
IF modus=1 THEN INK 1,14:INK 2,20:INK 3,26 
:RETURN 

2320 IF monitOr$="Gruen"THEN RESTORE 2340 [3487] 

ELSE RESTORE 2350 

2330 FOR a=1 TO 15:READ b:INK a,b:NEXT:RET [1974] 
URN 

2340 DATA 2,4,8,10,12,14,16,18,20,21,22,23 [1536] 
,24,25,26 

2350 DATA 6,15,7,2,5,11,14,20,23,22,21,19, [2186] 
24,25,26 


2360 'ESC gedrueckt [487] 

2370 RETURN [555] 

2380 Windows definieren [933] 

2390 WINDOW#l,1,40,1,4:PAPER#1,3:PENÜl,1 [3106] 

2400 WINDOW42,2,39,21,24:PAPER 0:PEN 2:PAP [3394] 
E R# 2,0: PEN#2,1 

2410 WINDOW 2,39,6,18:PAPER 0:PEN 3 [1264] 

2420 RETURN [555] 

2430 Einlesen Druckervariab1en [2505] 
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2440 adr=&8000:1ength=0 
2450 GOSUB 2530:abstand$=b$ 

2460 GOSUB 2530:abstand1 $ = b$ 

2470 GOSUB 2530;abstand2$=b$ 

2480 GOSUB 2530:abstand3$=b$ 

2490 GOSUB 2530:abstand5$=b$ 

2500 G05UB 2530:abstand6$=b$ 

2510 GOSUB 2530:abstand4$=b$ 

2520 RETURN 
2530 b$="" 

2540 x=PEEK(adr):adr=adr+l:1ength=1ength+1 
:XF *0255 THEN b$=b$+CHR$ ( x ) : GOTO 2540 EL 
SE RETURN 

2550 Ablegen Oruckervarlablen 
2560 adr=&8000:1ength=0 
2570 b$=abstand$:GOSUB 2650 
2580 b$=abstand1$:GOSUB 2650 
2590 b$=abstand2$:GOSUB 2650 
2600 b$=abstand3$:GOSUB 2650 
2610 b$=abstand5$:GOSUB 2650 
2620 b$=abstand6$:GOSUB 2650 
2630 b$=abstand4$:GOSUB 2650 
2640 RETURN 

2650 FOR x=l TO LEN(b$):POKE adr,ASC(MID$( 
b$ , x,1)):adr = adr + l: 1erg th=1ength+1:NEXT:PO 
KE adr,255:adr=adr+l:1ength=length+1:RETUR 
N 


[ 783 ] 
[2054] 
[1980] 
[1964] 
[2396] 
[2044] 
[2284] 
[2380] 
[ 555 ] 
[53] 

[ 7007] 


[2404] 
l 783 ] 

[ 2220 ] 
[1433] 
[1608] 
[1426] 
[1421 ] 
[1483] 
[1779] 
[ 555 ] 

[ 7600 ] 


'* APFELMAN.BIN - DATA-Lader von 1 CPC ’ 


A0,21,1E,A0,C3,D1,BC,11 
B 7 4 0 

55,53,D9,48,41,52,44,43 
10A0 

FE,01,CO,CD,2E,BD,38,04 
1 D32 

C0,AF,32,67,A2,C0,11,BC 
1 7E6 

Al , 21,01,00,22,63,A2,2B 
CC8B 

,37,28,35,2A,63,A2,2B,2 
, 1E17 

,CD,90,A0,2A,69,A2,CD,9 
, 6596 

,17.2A,63,A2,23,22,63,A 
, 29CD 

,63,A2,11,06,00,19,18,B 
, 6 E 70 

,A2,CD,90,Al,21,01,00,2 
, 992 D 

,ED,52,38,21,28,1F,AF,3 
, 90F3 

,23,10,FC,CD,CD,AO,21,5 
, 5 7BA 

, 02,00,19,18,D2,2A,71,A 
, 21EC 

,28,58,FE,01,28,28,06,0 
, D74A 

,D5,E5,CD,FO,BB,21,5D,A 
, 4FCF 

.01,10,EC,21,5E,A2,06,0 
, 96ED 

,63,A2,2A,65,A2,D5,E5,C 
, 0802 

,ED,B0,E1,D1,13,13,D5,E 
, 9FAF 

, 13, 13.CD.B0,Al,CD,Al,A 
, DA 1 2 

,A2,3A,67,A2,B7,20,2C,D 
, 6993 

,04,00,ED,BO,El,Dl,13,1 
, 71 5 E 

,06,04,1A,07,07,07,07,B 
, EDEC 

,Fl,FB.C9,D5,E5,CD.C0,A 
, 45FE 

,07,07,E6,3F, 12, 13,23, 1 
, 2 8 3 A 

,11,5E,A2,06,04,1A,B6,1 
, C7C5 


20 

* 

30 
* 

40 ' 

50 DATA AOOO,01,09, 
, AO,C3,22,AO,C3,31 , 
60 DATA A010,A0,42, 

, 4F , 50,D9,00,00,00 , 
70 DATA A020,00,00, 
,3E,01,12,C9,AF, 12 , 
80 DATA A030,C9,B7, 

,32,68,A2,2A , 73,A2 , 
90 DATA A040,CD,90, 

,11,80,02,EB,B7,ED, 
100 DATA A050,52,38 
2,63,A2,2A,6B,A2,CD 
110 DATA A060,90,A1 
0,Al,CD,90,AO,CD,09 
120 DATA AO 70,BB,38 
2,3A,67,A2,2F,32,67 
130 DATA A080,A2,2A 

C, 2A,6F,A2,C3,90,Al 
140 DATA A090,2A,6D 
2,65,A2,2B,11,90,01 
150 DATA AOAO,EB,B7 
2,5D,A2,21,5E,A2,06 
160 DATA AOBO,04,77 
E,A2,CD,90,Al,2A,65 
170 DATA AOCO,A2, 11 
2,C3,90,Al,F3,3A,68 
180 DATA AODO,A2,B7 
6,ED,58,63,A2,2A,65 
190 DATA A0E0.A2.C5 
2,46,CB,00,BO,77,El 
200 DATA AO FO,01,13 
4,7 7,23,10,FC,FB, C9 
210 DATA A100,ED,5B 

D, BO,Al,11,5E,A2,01 
220 DATA A110.04.00 
5 , CD,BO,Al,CD,Al,Al 
230 DATA A120,E1,D1 
1 ,FB,C9,ED,5B,63,A2 
240 DATA A130.2A,65 
5,E5,CD,C8,Al,11,5E 
250 DATA A140,A2,01 
3,13,13,CD,C8,Al,11 
260 DATA A150,5E,A2 
6,OF,OF,E6,3F,12,13 
270 DATA A160,23,10 

1 , 11,5E,A2,06,04,7E 
280 DATA A170.07.07 
0, F4, El,Dl,13,13,CD 
290 DATA A180,C8,A1 

2 , 13,23,10,F9,FB,C9 


[1668] 

[1729] 

[ 1668 ] 

[117] 

[3355] 

[3362] 

[2378] 

[4172] 

[2435] 

[3716] 

[2768] 

[3210] 

[2784] 

[2443] 

[2924] 

[3188] 

[ 2465 ] 

[3135 ] 

[2830] 

[2963] 

[2689] 

[2721] 

[2039 ] 

[ 3825 ] 

[2401] 

[3440] 

[3238] 

[3482] 

[3244] 


Listing Apfelmann 


300 DATA A190,7E,FE,FF,C8,CD,9B,Al,23,18,F 
6,2B,CD,2B,BD,30,FB,BE11 

310 DATA A1A0.C9,11,5E.A2,06,04,1A,07,07,8 
6,12,13,23,10,F7,C9,1E6E 

320 DATA A1B0,CD,F0,BB,B7,21,0D,A2,C8,21,1 

1, A2,FE,01,C8,21,15,2C59 

330 DATA A1C0,A2,FE,02,C8,21,19,A2,C9,CD,F 
0,BB,21,1D,A2,11,04,ECD4 

340 DATA A1D0,00,B7,C8,19,FE,01,C8,19,FE,0 

2, C8,19,FE,03,C8,19,4C56 

350 DATA A1E0,FE,04,CB,19,FE,05,C8,19,FE,0 
6,C8,19,FE,07,C8,19,9015 

360 DATA A1F0,FE,08,C8,19,FE,09,C8,19,FE , 0 
A,C8,19,FE,OB,C8,19 , A E 2 6 

370 DATA A200,FE,OC,C8,19,FE,OD,C8,19,FE,0 

E, C8,19,C9,00,00,00,BF3A 

380 DATA A210,00,01,01,02,02,01,02,01,02,0 
3,03,03,03,00,00,00,5088 

390 DATA A220,00,00,04,00,00,08,00,02,00,0 
8,04,02,01,OC,02,01,A09D 

400 DATA A230,01,OA,02,OA,02,OA,OA,OA,OA,0 
3,09,OC,06,03,03.0C,C214 

410 DATA A240,OC,OF,00,OF,00,OA,05,OA,05,0 
5,05,05,OF,OF,09,09,1B6A 

420 DATA A250,OF,OF,OA,OF,OA,OF,OB,OB,OF,0 

F, OF,OF,OF,00,00,00,842D 

430 DATA A260,00,00,FF,00,00,91,01,00,01,0 
0,80,04,80,08,80,OD,83FO 

440 DATA A270,80,12,80,15,80,00,00,00,00,C 
0,00,00,00,00,00,00,DO51 
450 DATA »ENDE* 

460 adr=&AOOO:zei1e=50:MEMORY adr-1 
470 READ d$:IF d$="*ENDE*"THEN 580 
480 pr=0 

490 FOR i = 1 TO 16 

500 READ a$:a = VA L("&"+a$) 

510 POKE adr,a:adr=adr+1 

520 pr=pr*2:IF pr>65535 THEN pr=pr-65535 
530 pr=UNT(pr)XOR a.IF pr<0 THEN pr=pr+655 
3 6 

540 NEXT 

550 READ pr$:pr2=VAL("&"+pr$):IF pr2<0 THE 
N pr2=pr2+65536 

560 IF pr<>pr2 THEN PRI NT"Pruefsummenfeh1e 

r in Zei1e";zei1e:STOP 

570 zei1e=zei1e+10:GOTO 470 

580 SAVE"!apfelman.bin",b,&AOOO,&277 

590 PRINT d$:END 

b$,x,l)):adr=adr+l:length=length+l:NEXT;PO 
KE adr,255:adr=adr+l:1e n g t h = 1ength+1:RETUR 

N 


[4646 ] 

[3270] 

[ 3581 ] 

[ 23 71 ] 

[4884 ] 

[3851] 

[3182] 

[ 2442 ] 

[2215] 

[ 2882 ] 

[3463] 

[2740] 

[2407] 

[2149] 

[2072] 

[ 502 ] 

[1876] 

[1076] 

[117] 

[317] 

[ 883] 

[ 717] 

[ 2485 ] 

[1890] 

[ 350 ] 
[2610] 

[3615 ] 

[2018] 
[2182] 

[ 346 ] 


10 abstand$=CHR$(27)+"3"+CHR${17) [3640] 

17/216 Zoll Zeilenabstand 
20 abstandl$=CHR$(27)+"3"+CHR$(l) [2728] 

'1/216 Zoll Zei1enabstand 
30 abstand2$=CHR$(27)+"L”+CHR$(32)+CHR$(3) [ 6555 ] 
'Grafik in doppelter Dichte (960 Punkte/Z 
eile) mit 800 Punkten/Zei1e 

40 abStand3$=CHR$(27)+"0" [2406] 

1/8 Zoll Zeilenabstand 

50 abstand4$=CHR$(12) [2311] 

'Seitenvorschub 

60 abstand5$=CHR$(13)+CHR${10) [4025] 

'Wagenrueck1 auf und Zei1envorschub 
70 abstand6$=CHR$(27)+"@" [2118] 

'Drucke r reset 

80 adr=&8000:1ength =0 [ 783 ] 

90 b$=abstand$:GOSUB 210 [2061] 

100 b$=abstandl$:GOSUB 210 [1431] 

110 b$=abstand2$:GOSUB 210 [1615] 

120 b$=abstand3$:GOSUB 210 [1304] 

130 b$=abstand5$:GOSUB 210 [1468] 

140 b$=abstand6$:GOSUB 210 [1564] 

150 b$=abstand4$:GOSUB 210 [1736] 

160 PRINT"Datentraeger bereitmachen und Ta [5005] 

ste d ruec ken: "; 

170 CALL &B881:CALL &BB03:CALL &BB06:CALL [1956] 

&BBB4 

180 SAVE"!apfelman.dat",b,& 8000 , 1 ength [2878] 

190 END [110] 

200 'Ablegen der Druckervariablen im Speie [4366] 

he r 

210 FOR x=l TO LEN(b$):POKE adr,ASC(MID$(b [6583] 
$,x,l)):adr=adr+l:length=length+l:NEXT:POK 
E adr,255:length=length+l:adr=adr+l:RETURN 

Listing Apfelmann 
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Programm/Anwendungen 


Bestellen mit Freu(n)den 

Sammelbestellungen einmal 
ganz anders! 

Das Programm “Sammelbestellung“ ermöglicht dem Sammelbesteller die 
Bearbeitung von Sammelbestellungen und Zurücklieferungen, sowie die 
Kontoführungen. Sammelbestellungen werden im allgemeinen unter Ver¬ 
wandten, Freunden und Bekannten durchgeführt. Daher kann eine spei¬ 
cherplatzfressende Adressenverwaltung entfallen. 


Wenn Bestellungen bei mehreren Ver¬ 
sandhäusern getätigt werden, sollten die 
Namen der Versandhäuser im Programm 
geändert werden. Das Programm wird 
dann unter dem Namen des Versandhau¬ 
ses auf Diskette abgespeichert. Durch 
Änderung des Anfangsbuchstaben der 
einzelnen Dateien (’Q’sammel.dat, 
’Q’a.dat für “QUELLE“ bzw. “0“sam- 
mel.dat, Oa.dat für “OTTO“) ist eine Si¬ 
cherung der Dateien mehrerer Versand¬ 
häuser auf einer Diskette möglich. Kas¬ 
settenbearbeitung ist nur unter großem 
Aufwand durchzuführen. Wenn erforder¬ 
lich, sollte das Programm in den dafür 
nötigen Zeilen geändert werden. Die 
Sammel- und Mitbestellerdateien müssen 
aber getrennt auf verschiedenen Kasset¬ 
ten gesichert werden. Alle erforderlichen 
Daten werden auf dem Monitor ange¬ 
zeigt, können aber mit einem Drucker, 
DMP 2000 zum Beispiel, ausgedruckt 
werden. 

Wie wird’s nun gemacht? 

1. Abfrage des Tagesdatums 

Nach dem Starten des Programmes wird 
nach dem Datum des jeweiligen Tages ge¬ 
fragt. Beispiel = 1.1.1989. 

2. Sammelbestellerdaten laden 

Bei Neustart des Programmes werden die 
Daten des Sammelbestellers geladen. 
Nach Rücksprüngen an den Anhang des 


Programmes kann ein nochmaliges La¬ 
den entfallen. Ist die Sammelbestellerda¬ 
tei geladen, werden die Daten angezeigt. 

3. Liste der Mitbesteller 

Die Liste der Mitbesteller kann jetzt an¬ 
gezeigt werden. Wird bei diesem Pro- 
grammpunkt die Frage verneint, springt 
das Programm zur Anzeige des Disket¬ 
teninhaltes. So kann am Anfang der Be¬ 
arbeitung der Disketteninhalt eingesehen 
werden. Bei der Anzeige der Mitbestel¬ 
ler wird nach dem zu bearbeitenden ge¬ 
fragt. Es brauchen nur die beiden Buch¬ 
staben (Strings), die zwischen den Trenn¬ 
strichen stehen, eingegeben zu werden. 
Dieser String dient dann als Name der 
abzuspeichemden Datei. 

4. Mitbestellerdaten laden 

Bei der Erstbestellung eines Mitbestellers 
muß dieser Programmpunkt übersprun¬ 
gen werden. Anderenfalls werden die 
Daten geladen und angezeigt. 

5. Bestellungen eingeben 

Neue Bestellungen werden in diesem 
Programmpunkt eingegeben. Der Com¬ 
puter überprüft vor einer neuen Eingabe, 
ob aus vorherigen Bestellungen noch Au¬ 
ßenstände vorhanden sind. Ist dieses der 
Fall, gibt er weitere Anweisungen. Bei ei¬ 
ner Neueingabe wird zuerst nach dem 
Vor- und Nachnamen des Mitbestellers 
gefragt. Anschließend können die erfor¬ 
derlichen Bestelldaten eingegeben wer¬ 
den. Bei Ratenzahlungen errechnet der 


Computer die sich ergebenden Ratenbe¬ 
träge, Anfallende Umsatzbeteiligungen 
werden dem Konto des Sammelbestellers 
gutgeschrieben. 

6. Retouren eingeben 

Etwaige Zurücklieferungen werden hier 
eingegeben und mit der eingegebenen Be¬ 
stellung verrechnet. 

7. Gutschrift von Retourzinsen 

Bei Zurücklieferungen in Verbindung mit 
Ratenzahlungen werden vom Versand¬ 
haus Retourzinsen gutgeschrieben. Diese 
werden nach der Eingabe auf den Konten 
verbucht. 

8. Einzelbeträge einzahlen 

Es müssen hier alle bezahlten Beträge, 
außer Ratenbeträge, eingegeben werden. 

9. Ratenbeträge einzahlen 

Bei Einzahlung eines Ratenbetrages wird 
die Summe den Konten gutgeschrieben, 
und die Anzahl der bezahlten Raten um 
1 erhöht. Werden überhöhte Ratenzah¬ 
lungen geleistet, wird bei vorzeitiger Til¬ 
gung der Ratensumme auch die Anzahl 
der Raten angeglichen. 

10. Mitbestellerdaten anzeigen 

Nach Eingabe aller Daten werden diese 
angezeigt und können überprüft werden. 

11. Sammelbestellerdaten anzeigen. 

Siehe unter Nummer 10. 

12. Daten abspeichern 

Alle wichtigen Daten können abgespei¬ 
chert werden. Auf dem Datenträger wer¬ 
den zuerst die Mitbestellerdaten, danach 
automatisch die Sammelbestellerdaten 
gesichert. Sicherheitskopien beider Da¬ 
ten können ebenfalls erstellt werden. 

13. Daten ausdrucken 

Der Sammelbesteller kann alle Daten, 
die Sammelbestellerdaten und die Mitbe¬ 
stellerdaten, ausdrucken lassen. 

14. Disketteninhalt anzeigen 

Nach dem Löschen des Bildschirmin¬ 
halts wird der Inhalt der Diskette ange¬ 
zeigt. Durch Drücken einer Taste wird an 
den Anfang des Programmes zurückge¬ 
kehrt, aber alle Daten bleiben erhalten. 

15. Programm beenden 

Nach einer Sicherheitsüberprüfung (alle 
Daten gesichert?) kann das Programm 
beendet werden. 

16. Sammelbestellerdatei erstellen 

Bei Erstbeginn des Programmes muß die 
Sammelbestellerdatei erstellt werden. 
Dazu muß in Zeile 570 das REM-Zei- 
chen entfernt und das Programm gestartet 
werden. Nach den Anweisungen diese 
Programmteiles wird die Datei auf dem 
Datenträger erstellt. 

(Klaus-Dieter Klusmeyer/cd) 
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Programm/Anwendungen 


Variablenliste 

datum$: Datum des Tages der Bearbeitung 
datum! $. Datum der letzten Bearbeitung 
aükonto: Kontostand des Sammelbestellers 
allstueck: Anzahl aller bestellten Artikel 
allpreis: Summe aller bestellten Artikel 
allretur: Anzahl aller Retouren 
allretursumme: Summe alter Retouren 
allreturzins: Summe der Retourzinsen 
altgewinn: Summe der Umsatzbeteiligung 
mitbestS: String der Mitbesteller 
namelS: Vorname der Mitbesteller 


name2$: Nachname der Milbesteller 

stueck: Anzahl der bestellten Artikel eines Mitbestellers 

gesstueck: Anzahl aller bestellten Artikel eines Milbestellers 

retur: Anzahl der Retouren eines Mitbestellers 

gesretur: Anzahl aller Retouren eines Mitbestellers 

retursumme: Summe der Retouren eines Mitbestellers 

gesretursumme: Summe aller Retouren eines Mitbestellers 

preis: Summe der bestellten Artikel eines Mitbestellers 

gespreis: Summe aller bestellten Artikel eines Milbestellers 

raten: Anzahl der Raten 

heiraten: Anzahl der bezahlten Raten 


ratzins: Sutnme der Ratenzinsen 
monat: Monat der ersten Ratenzahlung 
retgewinn: Gewinnsumme bei Retouren 
behpreis: Summe der behaltenen Artikel 
returzins: Gutschrift von Retourzinsen 
betrag: Bezahlter Betrag eines Mitbestellers 
ratenbetrag: Bezahlter Ratenbetrag eines Mitbesrellers 
versspes: Versandspesen je Bestellung 
versspesen: Versandspesen aller Bestellungen 
pruefung.jump, sprung: Sprungvariablen 
./$■ Ja/Nein Abfrage 


für 464-664-6128 



10 ' ************************************ 
************************************ 


20 

' * 

* 

30 

' # 

SAMMELBESTE 

L 1 

L U N G 

EN * 

40 

' * 

* 

50 

* 

Ein Programm zur Bearbeitun 

g von Sammelbestellungen * 

60 

‘ * 

* 

70 

* Klaus-Dieter Klusmeyer 

80 

* 

* 



* 

90 

************************************ 

************************************ 

100 

' 


110 

deutscher zeichensatz 

120 

1 


130 

SYMBOL 

AFTER 91 

140 

SYMBOL 

91,&66,8.18 ,&3C,&66,8,7 E ,8,66 ,&66, 

&0 

' AE 

150 

SYMBOL 

92,8,66,8.3C,8,66,8,66,8,66,8,66,8,3C, 

8,0 

•OE 


160 

SYMBOL 

93,8.66, 8,44 ,8.66, &66,&66,&66,&3C, 

8.0 

’ UE 

170 

SYMBOL 

123,8.CC,0,8.78,&C,&7C,SCO,8.76,8,0 


' ae 


180 

SYMBOL 

124, 8,66,0,8.3C, 8.66, & 66,&66,&3C,& 

0 

‘ oe 

190 

SYMBOL 

125,&66,0,&66,&66,&66,8.66,&3E,& 

0 

' ue 

200 

SYMBOL 

126,8.3C,8,66,8,66,8,6C ,8,66,8.6 6,8.6C 


,8,60 'scharfes s 

210 KEY OEF 17,1,125,93 
220 KEY DEF 19,1,123,91 
230 KEY DEF 26,1,124,92,64 
240 KEY DEF 24,1,126,94,0 
250 ' 

260 bi 1 dschirmaufbau 

270 ' 

280 sprung=0:jump=0:raten=0:bezraten=0 


[2556] 

[175] 

[997] 

[175] 

[3070] 

[175] 

[1546] 

[175] 

[2556] 

[117] 

[ 1352 ] 
[117] 
[1213] 
[2047] 

[2386] 

[2324] 

[2508] 

[2847] 

[1864] 

[2854 ] 

[ 746] 

[1140] 
[ 765 ] 

[ 1480] 
[117] 
[1166] 
[117] 

[ 2860] 


290 CLS : MODE 2 [460] 

300 PLOT 1,1:DRAW 1,399: DRAW 639,399:DRAW [2779] 
639,1:DRAW 1,1 

310 PLOT 5,5:DRAW 5,394: DRAW 635,394:DRAW [2430] 


635,5:DRAW 5,5 

320 PLOT 6,350:DRAW 635,350 [1350] 

330 PLOT 6,36:DRAW 635,36 [757] 

340 PLOT 6,70:DRAW 635,70 [1069] 

350 PLOT 475,36:DRAW 475,350 [1618] 

360 PLOT 6,300:DRAW 635,300 [1267] 

370 WINDOW #0,2,79,2,3 [826] 

380 WINDOW #1,2,59,5,6 [1330] 

390 WINDOW #2,61,79,5,6 [1128] 

400 WINDOW #3,2,59,8,20 [1031] 

410 WINDOW #4,61,79,8,20 [1291] 

420 WINDOW #5,2,59,22,22 [1445] 

430 WINDOW #6,61,79,22,22 [1157] 

440 WINDOW #7,2,79,24,24 [1102] 


Listing SAMMEL 


450 LOCATE #0,10,1:PRINT #0,"G R 0 S S V E 
RSANDHAUS QUELLE F]RT 

H" 

460 LOCATE #0,11,2:PRINT #0,"- 

[4463] 

[4039] 

470 CLS#7:LOCATE #7,7,1:PRINT #7,"K1 aus-Di 
eter Klusmeyer " 

[3408 ] 

480 CLS#3 

[ 371 ] 

490 LOCATE #3,11,4:PRINT #3,"============= 

[3297] 

500 LOCATE #3,11,5:PRINT #3,"= 

[2507] 

510 LOCATE *3,11,6:PRINT #3,”= S A M M E 

LBESTELLUNG =" 

[3422 ] 

520 LOCATE #3,11,7:PRINT #3,"= 

[2344] 

530 LOCATE #3,11,8:PRINT #3,"==-=-====—== 

[3375] 

540 ‘ 

[117] 

550 ' laufwerk b ist das datellaufwerk 

[2012] 

560 ' 

[117] 

570 ! B 

[219] 

580 ' 

[117] 

590 1 sammelbestel1erdatei erstellen 

[2028] 

600 ' 

[117] 

610 'FOR i=1 TO 2000:NEXT i:GOSUB 4270:CLS 

#3 

[2129] 

620 ' 

[117] 

630 CLS#1::CLS#2:CLS#4:CLS#5:CLS#6 

[2576] 

640 IF sprung=l THEN GOTO 660 

[1521] 

650 CLS #5:LOCATE #5,7,1:INPUT #5,"Eingabe 
des Datum's ",datum$ 

[4535] 

660 LOCATE #6,6,1:PRINT #6,datum$ 

[462] 

670 ' 

[117] 

680 sammelbestel1erdaten laden 

[ 954] 

690 ' 

[117] 

700 CLS #5:LOCATE #5,7,1:INPUT #5,"Sammelb 
estel1erdaten laden ? J/N ",j$ 

[6823] 

710 IF j$ ="j" OR j$="J" THEN 720 ELSE IF 
sprung=l THEN GOTO 900 

[2807] 

720 CLS#1:LOCATE #1,17,1:PRINT #1,"Sammelb 
estel1 er - Daten " 

[3001 ] 

730 CLS #3:LOCATE #3,13,6:PRINT #3,"Bitte 
die Datendiskette einlegen," 

[ 5462 ] 

7 40 LOCATE #3,16,8:PRINT #3,"dann eine Tas 
te drjcken.” 

[3404] 

750 CALL 8.BB06 

[ 393 ] 

760 CLS #3:LOCATE #3,12,6:PRINT #3,"Daten 
werden von Diskette geladen." 

[2942] 

770 OPENIN "QSAMMEL.DAT" 

[2050] 

780 INPUT #9,datuml$ 

[1934] 

790 INPUT #9 , allkonto 

[1489] 

800 INPUT #9,al1stueck 

[1306] 

810 INPUT #9,allpre1s 

[1555] 

820 INPUT #9,allretur 

[883] 

830 INPUT #9,allretursumme 

[1263] 

840 INPUT #9,allreturzins 

[1525] 

850 INPUT #9,allgewinn 

[ 985] 

860 CLOSEIN 

[ 752] 

870 ' 

[117] 

880 anzelgen der sammelbestel1erdaten 

[2667] 

890 ' 

[117] 

900 CLS#3:CLS#1:LOCATE #1,7,1:PRINT #l,"Sa 
mme1 beste 11er - Daten vom ";datuml$ 

[5572] 

910 LOCATE #3,7,1:PRINT #3,"Anzahl aller b 
estellten Artikel =“ 
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920 LOCATE #3,7,3:PRINT #3,"Summe aller b [5605] 
estellten Artikel =" 

930 LOCATE #3,7,5:PRINT #3,"Anzahl aller R [3667] 
etouren =" 

940 LOCATE #3,7,7:PRINT #3,"Summe aller R [4010] 
etouren =" 

950 LOCATE #3,7,9:PRINT #3,"Summe aller R [3395] 
etourzinsen =" 

960 LOCATE #3,7,11:PRINT #3,"Gewinnbetei1i [3423] 
g u n g = " 

970 LOCATE #4,5,1:PRINT #4,USING"######";a [2653] 
11stueck 

980 LOCATE #4,5,3:PRINT #4,USING"######.## [4080] 
OM";al1preis 

990 LOCATE #4,5,5:PRINT #4,USING"######";a [3257] 
11retur 

1000 LOCATE #4,5,7:PRINT #4,USING"######.# [1748] 

# DM";al1retursumme 

1010 LOCATE #4,5,9:PRINT 44,USING"######.# [3311] 

# DM";al1returzins 

1020 LOCATE #4,5,11:PRINT #4,USING"######. [1821] 
## DM";al1gewinn 

1030 LOCATE #2,6,1:PRINT #2,USING "######. [1784] 

## DM";al1konto 

1040 ' [117] 

1050 ' liste der mitbesteller [1794] 

1060 ' [117] 

1070 CL5 #5:LOCATE #5,7,1:INPUT #5,"Liste [5876] 

der Mitbesteller J/N ",j$ 


1080 IF j$ ="j" OR j$="J" 
200 

THEN 1090 ELSE 4 

[1697] 

1090 CLS #1:CLS #2:CLS #3 

: CLS 

#4 

[1769] 

1100 LOCATE #3,3,2:PRINT 
Kippenberg " 

#3 , " 

-QA- Christel 

[1552] 

1110 LOCATE #3,3,3:PRINT 
Kippenberg " 

#3 , " 

-QB- Katrin 

[2541] 

1120 LOCATE #3,3,4:PRINT 
Kippenberg " 

#3 , " 

~QC- J]rg 

[ 3.3 1 5 ] 

1130 LOCATE #3,3,5:PRINT 
Kippenberg " 

#3 , " 

-QD- Ingo 

[3982 ] 

1140 LOCATE #3,3,6:PRINT 
n Lorat “ 

#3 , " 

-QE~ Marieche 

[3126] 

1150 LOCATE #3,3,7:PRINT 
Lorat " 

#3 , " 

-QF~ Ralf 

[4590] 

1160 LOCATE #3,3,8:PRINT 
Lorat " 

#3, " 

-QG- Elke 

[1846] 

1170 LOCATE #3,3,9:PRINT 
Jones “ 

#3 , " 

-QH- Marlta 

[3051] 

1180 LOCATE #3,3, lO’.PRINT 
Klusmeyer " 

#3 , 

"-QI- Erna 

[ 2228 ] 

1190 LOCATE #3,3,11:PRINT 
Klusmeyer " 

#3, 

"-QJ- Ulrike 

[3473] 

1200 LOCATE #3,33,2:PRINT 
Stel11ng " 

#3, 

"-QK- Margret 

[2732] 

1210 LOCATE #3,33,3:PRINT 
d Duensing " 

#3, 

"-QL- Wal trau 

[3734] 

1220 LOCATE #3,33,4:PRINT 
a Heidrich " 

#3, 

"-QM- Corneli 

[3443] 

1230 LOCATE #3,33,5:PRINT 
Hartmann " 

#3, 

"-QN- Magitta 

[3561] 


1240 ' 

1250 ‘ 

1260 1 
1270 1 

1280 CLS #5:LOCATE #5,7,1:INPUT #5."Welche 


r Mitbestel1er ? 
t$ 

1290 mitbest$=UPPER$(mitbest$) 


",mitbes 


1300 


LOCATE #1,3,1:PRINT #1,"-";mltbest$; 


mltbestel1erdaten laden 


1310 
1320 
1330 

1340 CLS #5:LOCATE #5,7,1:INPUT #5,"Mitbes 
tellerdaten laden ? J/N ",j$ 

1350 IF j$ ="j" OR j$="J" THEN 1360 ELSE 1 
960 

1360 CLS #3:LOCATE #3,13,6:PRINT #3,"B1tte 
die Datendiskette einlegen," 

1370 LOCATE #3,16,8:PRINT #3,"dann eine Ta 
ste drJcken." 

1380 CALL &BB06 

1390 CLS #3:LOCATE #3,12,6:PRINT #3,"Daten 
werden von Diskette geladen.” 

1400 OPENIN mltbest$+",dat" 

1410 INPUT #9,namel$ 

1420 INPUT #9,name2$ 

1430 INPUT #9,stueck 

Listing SAM MEL 


[117] 

[117] 

[117] 

[117] 

[5700] 


[2639] 

[3288] 

[117] 

[2604] 

[117] 

[4687] 

[1175] 

[5462] 

[3404] 

[ 393] 

[ 2942] 

[ 1886] 
[1454] 
[1468] 
[949 ] 


1440 INPUT #9,gesstueck [1014] 

1450 INPUT #9,retur [1181] 

1460 INPUT #9,ges retu r [1213] 

1470 INPUT #9,retursumme [1769] 

1480 INPUT #9,gesretursumme [1612] 

1490 INPUT #9,preis [1543] 

1500 INPUT #9,gesprels [935] 

1510 INPUT #9,raten [954] 

1520 INPUT #9,bez raten [ 1772] 

1530 INPUT #9,monat$ [1059] 

1540 INPUT #9,ratpreis [996] 

1550 INPUT #9,datuml$ [1934] 

1560 INPUT #9,konto [941] 

1570 CLOSEIN [752] 

1580 CLS #3:jump=l:GOSUB 1630 [997] 

1590 GOTO 1960 [339] 

1600 ' [117] 

1610 ' mitbeste11erdaten anzeigen [2067] 

1620 ' [117] 

1630 CLS #3 [371] 

1640 CLS #1:LOCATE #1,3,1:PRINT #l,"-";mit [1887] 

best$;"-" 

1650 LOCATE #1,10,1:PRINT #1,namel$;" "nam [2449] 

e2$ 

1660 LOCATE #1,39,1:PRINT #1," vom ";datum [1800] 

1 $ 


1670 LOCATE #3,7,1:PRINT 
stellten Art 1kel 

#3 , 

"Anzahl der 

be 

[4387] 

1680 LOCATE #3,7,2:PRINT 
stel1ten Artikel 

#3 , 

"Summe der 

be 

[3571] 

1690 LOCATE 
touren 

#3,7,3:PRINT 

#3 , 

"Anzahl der 

Re 

[4532] 

1700 LOCATE 
touren 

#3,7,4:PRINT 

#3 , 

"Summe der 

Re 

[4839] 

1710 LOCATE 
ten 

#3,7,5:PRINT 

#3, 

"Anzahl der 

Ra 

[4422] 

1720 LOCATE 
ten 

#3,7,6:PRINT 

#3 , 

"Preis der 

Ra 

[3276] 

1730 LOCATE 
r 1. Rate 

#3,7,7:PRINT 

#3, 

"F{11igkeit 

de 

[3354] 

1740 LOCATE 

#3,7,8:PRINT 

#3, 

"Bezahlte Rate 

[2765 ] 

n 

1750 LOCATE 

#3,7,10:PRINT #3 

,"Anzahl aller 

[3169] 


bestellten Artikel =" 

1760 LOCATE #3,7,11:PRINT #3,"Summe aller [4296] 
bestellten Artikel =" 

1770 LOCATE #3,7,12:PRINT #3,"Anzahl aller [4353] 
Retouren =" 

1780 LOCATE #3,7,13:PRINT #3,“Summe aller [3203] 
Retouren =" 

1790 CLS#2:LOCATE #2,6,1:PRINT #2,USING "# [3274] 
####.## DM“;konto 

1800 CLS #4:LOCATE #4,5,1:PRINT #4,USING"# [4619] 
#####";stueck 

1810 LOCATE #4,5,2:PRINT #4,USING"######.# [3164] 

# DM " ; p r e 1 s 

1820 LOCATE #4,5,3:PRINT #4,USING"######"; [2487] 
retu r 

1830 LOCATE #4,5,4:PRINT #4,USING”######.# [3614] 

# DM";retursumme 

1840 LOCATE #4,5,5:PRINT #4,USING“######"; [3241] 
raten 

1850 LOCATE #4,5,6:PRINT #4,USING"######.# [3006] 

# DM";ratpreis 

1860 LOCATE #4,8,7:PRINT #4,monat$ [1770] 

1870 LOCATE #4,5,8:PRINT #4,USING"######"; [2446] 

bez raten 

1880 LOCATE #4,5,10:PRINT #4,USING"###### " [ 2293] 

;gesstueck 

1890 LOCATE #4,5,11:PRINT #4,USING"######. [1928] 

## DM";gespreis 

1900 LOCATE #4,5,12:PRINT #4,USING"######" [2658] 
;ges retu r 

1910 LOCATE #4,5,13:PRINT #4,USING"######. [5095] 
## DM";gesretursumme 


1920 RETURN 
1930 ' 

1940 ' neue bestellung eingeben 
1950 ' 

1960 CLS #5:LOCATE #5,7,1:INPUT #5,"Neue B 
estellung eingeben ? J/N ",j$ 

1970 IF j$ =“j" OR j$="J" THEN 1980 ELSE 2 
290 

1980 IF bezraten«raten THEN GOTO 1990 ELSE 
2060 

1990 CLS #3:LOCATE #3,22,6:PRINT#3,"A C H 
T U N G ! ! ! " 


Listing SAMMEL 


[555 ] 
[117] 

[ 1216] 
[117] 

[6371] 

[1638] 

[3068] 

[2954] 
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J/N ",j$ 
THEN 2050 ELSE 


2000 LOCATE #3,11,8:PRI NT#3 , " Es sind noch 
nicht alle Raten bezahlt J" 

2010 LOCATE #3,8,10:PRINT#3,"Neue Bestellu 
ngen sind nur nach Eingabe einer” 

2020 LOCATE #3,9,1X:PRINT#3, "neuen Datei, 
zum Beispiel - ";mltbest$"1 - mlglich." 
2030 CLS #5:LOCAT E #5,7,1:INPUT #5,”Neue D 
atei erstel1en ? 

2040 IF j$ = "j" OR j$="J 
540 

2050 CLS#3:RUN 610 

2060 CLS #5:LOCATE #5,7,1:INPUT #5,"Vornam 
e des Mitbestellers ",namel$ 

2070 CLS #5:LOCATE #5,7,1:INPUT #5,”Nachna 
me des Mitbestellers ",name2$ 

2080 LOCATE #1,10,X:PRINT #l,namel$;" "nam 
e2$ 

2090 LOCATE #1,39,1:PRINT #l,datuml$ 

2100 stueck= 0 :retur=0:preis=0:raten=0:ratp 
reis=0:monat=0:bezraten=0 
2110 CLS #5:LOCATE #5,7,1:INPUT #5 
der bestellten Artikel ? 

2120 gesstueck=gesstueck+stueck 
2130 al1stueck=al1stueck+stueck 
2140 CLS #5:LOCATE #5,7,1:INPUT #5 
der bestellten Artikel ? 

2150 gespreis=gespreis+preis 
2160 kontO=konto-preis 
2170 al 1kontO = al1konto-preis 

2180 allpre1s=allpreis+preis 
2190 gewpreis=gewpreis+preis 
2200 gewlnn=gewpreis/100*5 
2210 al1gewlnn=al1gewlnn+gewinn 

2220 CLS #5:LOCATE #5,7,1:INPUT #5 
ahlung j/ N , „ 

2230 IF j$ ="j" OR j$="J" THEN 2240 ELSE 2 
290 

2240 CLS #5:LOCATE #5,7 
der Raten ? 

2250 CLS #5:LOCATE #5,7 
keit der 1. Rate 


'Anzahl 
,stueck 


' Summe 
preis 


' Ratenz 

J$ 


INPUT #5,"Anzahl 
",raten 

INPUT #5,"F{111g 
",monat$ 


2260 ' 

2270 'retouren eingeben 
2280 ' 


t 5246] 

[6445] 

[7566] 

[4997] 

[ 1085 ] 

[ 589 ] 
[6528] 

[ 4532 ] 

[2449] 

[1539] 
[4793] 

[5897] 

[1844] 
[1739] 
[5055] 

[1751] 

[898] 

[1487] 
[1208] 
[ 1982 ] 
[ 1264 ] 
[2466] 
[4913] 

[1460] 

[4564] 

[4292] 


[117] 

[1292] 
[117] 


2290 CLS #5:LOCATE #5,7,1:INPUT #5,"Retour [5195] 


J/N ",j$ 

OR j$="J" THEN 2310 ELSE 2 [1588] 


en eingeben 
2300 IF j$ ="j 
400 

2310 CLS #5:LOCATE #5,7,1:INPUT #5,"Anzahl [4538] 
der Retouren ",retur 

2320 gesretur=gesretur+retur [2751] 

2330 al 1 retur=al 1 retur+retur [2143] 

2340 CLS #5:LOCATE #5,7,1:INPUT #5,"Summe [6063] 
der Retouren ".retursu 

mme 

2350 al1konto=al1konto+retursumme [1577] 

2360 konto=konto+retursumme [1721] 

2370 gesretursumme=gesretursumme+retursumm [3777] 

e 

2380 al1retursumme=a11retursumme+retursumm [2443] 

e 

2390 ' 

2400 IF jump=l THEN GOTO 2450 
2410 ratpreis=(preis-retursumme)/raten 
2420 ' 

2430 'gutschrift von retourzinsen 
2440 ' 

2450 CLS #5:LOCATE #5,7,1:INPUT #5,"Gutsch 
rlft von Retourzinsen ? J/N ",j$ 

2460 IF j$ = "j" OR j$="J" THEN 2470 ELSE 2 
540 

2470 CLS #5:LOCATE #5,7,1:INPUT #5,"Summe 
der Retourzinsen ".returzi 

ns 

2480 al1konto=al1konto+returzins 
2490 konto=konto+returzins 
2500 al1returzins=al1returzins+returzins 


[117] 

[1028] 

[1578] 

[117] 

[2590] 

[117] 

[5323] 

[ 1827] 

[ 7332 ] 


[894] 
[1830] 
[3768] 

2510 ' [117] 

2520 einzelbetr(ge elnzahlen [1821] 

2530 ' [117] 

2540 IF raten>0 OR raten>bezraten THEN GOT [1733] 
0 2630 

2550 CLS #5:LOCATE #5,7,1:INPUT #5,"Einzel [4581] 

betr{ge elnzahlen ? j/n ",j$ 


Lisiing SAM MEL 


J/N 


, j$ 


THEN GOSUB 1630 


mltbeste11erdaten abspeichern 


2560 IF j$ = "j" OR j$="J" THEN 2570 ELSE 2 
630 

2570 CLS #5:LOCATE #5,7,1:INPUT #5,"Welche 
n Betrag elnzahlen ? ".betrag 
2580 konto=konto+betrag 
2590 al1konto=al1konto+betrag:GOTO 2700 
2600 ’ 

2610 1 ratenbetr{ge einzahlen 
2620 1 

2630 IF raten=0 OR raten=bezraten THEN GOT 
O 2740 

2640 CLS # 5:LOCATE #5,7,1:INPUT #5,"Ratenb 
etr(ge einzahlen ? j/n ",j$ 

2650 IF j$ ="y OR j$="j" THEN 2660 ELSE 2 
740 

2660 CLS #5:LOCATE #5,7,1:INPUT #5,"Welche 

n Ratenbetrag einzahlen ? ", raten betrag 

2670 konto=konto+raten bet rag 

2680 al1konto=al 1 konto+ratenbetrag 

2690 bezraten=bezraten+1 

2700 IF konto >=0 THEN bezraten»raten 

2710 1 

2720 1 mitbeste!1erdaten anzeigen 
2730 ‘ 

2740 CLS #5:LOCATE #5,7,1:INPUT #5,"Mitbes 
tellerdaten anzeigen ? 

2750 datuml$=datum$ 

2760 IF j$ ="j" OR j$="J 
ELSE 2830 
2770 ‘ 

2780 ***** alle daten abspeichern ***** 

2790 ’ 

2800 
2810 
2820 

2830 CLS #5:LOCATE #5,7,1:INPUT #5,"Mitbe! 
tellerdaten abspeichern ? j/N ”,j$ 

2840 IF j$ ="j" OR j$="J" THEN 2860 ELSE : 

240 

2850 ’ 

2860 CLS #3:LOCATE #3,13,6:PRINT #3,"Bitt« 
die Datendiskette einlegen,” 

2870 LOCATE #3,16,8:PRINT #3,"dann eine T« 
ste drjcken." 

2880 datuml$=datum$:CALL &BB06 
2890 CLS #3:LOCATE #3,12,6:PRINT #3,"Dater 
werden auf Diskette gespeichert" 

2900 OPENOUT mltbest$+".dat" 

2910 PRINT #9,name1$ 

2920 PRINT #9,name2$ 

2930 PRINT #9,stueck 
2940 PRINT #9,gesstueck 
2950 PRINT #9,retur 
2960 PRINT #9,g es retu r 
2970 PRINT #9,retursumme 
2980 PRINT #9,gesretursumme 
2990 PRINT #9,preis 
3000 PRINT #9,gespreis 
3010 PRINT #9,raten 
3020 PRINT #9,bezraten 
3030 PRINT #9,monat$ 

3040 PRINT #9,ratpreis 
3050 PRINT #9,datuml$ 

3060 PRINT #9,konto 
3070 CLOSEOUT 
3080 ‘ 

3090 1 sammelbeste 11erdaten abspeichern 
3100 ' 

3110 OPENOUT "QSAMMEL.DAT" 

3120 PRINT #9,datuml$ 

3130 PRINT #9,a11konto 
3140 PRINT #9,al1stueck 
3150 PRINT #9,allpreis 
3160 PRINT #9,al1retur 
3170 PRINT #9,al1retursumme 
3180 PRINT #9,al1returzins 
3190 PRINT #9,allgewinn 
3200 CLOSEOUT;CLS#3 
3210 1 

3220 ‘ daten ausdrucken 
3230 1 

3240 CLS #5:LOCATE #5,7,1:INPUT #5, 
ausdrucken 

3250 IF j$ = "J" OR j$="J 
200 
3260 1 

3270 1 alle daten ausdrucken 


Lisiing SAMMEL 


1 Daten 
J/N ",j$ 

THEN 3290 ELSE • 


[ 1285] 

[4786] 

[ 1253] 
[1441] 
[117] 
[2106] 
[117] 
[2758] 

[ 6623 ] 

[1476] 

[6628] 

[1387] 

[901] 

[928] 

[3084] 

[117] 

[2067] 

[117] 

[5372] 

[1045] 
[2458] 

[117] 

[2534] 

[117] 

[117] 

[2337] 

[117] 

[6294] 

[ 1912 ] 

[117] 

[5462] 

[3404] 

[1724] 

[3550 ] 

[1201 ] 

[1600] 

[1614] 
[1508] 

[1388] 

[ 1460 ] 

[ 1289 ] 

[ 2022 ] 

[1863] 
[1294] 
[1124] 
[1448] 
[1824] 
[1350] 
[1817] 

[1306] 

[1430 ] 
[902 ] 
[117] 

[1345] 
[117] 

[ 1567 ] 

[1306] 

[986] 

[925] 

[ 1595 ] 
[907] 
[1175] 
[1147] 

[1532] 

[ 1578 ] 

[117] 

[1847] 

[117] 

[3469] 

[1417] 

[117] 

[1904] 
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3280 



[117] 

3290 

CLS #5:LOCATE #5,7,1:INPUT #5,"Alle D 

[ 4060 ] 

aten 

ausdrucken ? J/N ",j$ 


3300 

IE j$ ="J 

" OR j$="J" THEN 3310 ELSE 3 

[1641] 

700 




3310 

CLS#3:LOCATE #3,7,6:PRINT#3,"Bitte Dr 

[5917] 

ucker 

einschalten, und Papier einlegen" 


3320 

LOCATE #3 

,17,8;PRINT#3,"dann eine Tas 

[3437] 

te drjcken" 



3330 

CALL &BB06 

[ 393] 

3340 

PRINT # 8 


[343] 

3350 

CLS#3:LOCATE #3,12,6:PRINT#3,"Alle Da 

[3053] 

ten werden ausgedruckt" 


3360 

PRINT#8,CHR$(14);CHR$(27);;CHR$(1) 

[6058] 

; " S 

A M M E 

BESTELLUNG";CHR$(2 


7);"- 

";CHR$(0);CHR$(10);CHR$(20);CHR$(10); 


CHR$(10) 



3370 

PRINT#8,CHR$(9);CHR$(14);CHR$(27);"-" 

[8684] 

;CHR$(1);" QUELLE VERSAN D";CHR 


$(27) 

;"-";CHR$(0);CHR$(10);CHR$(20);CHR$(1 


0) ;CHR$(10) 



3380 

PRINT#8,CHR$(9);namel$;" ";name2$;CHR 

[6146] 

$(9) 

CHR$(9);datum$ 


3390 

PRINT #8 


[343] 

3400 

PRINT#8 


[ 343] 

3410 

PRINT# 8, 

Kontostand des Samme1 beste 11 

[6651] 

ers 


=",USING"######.## DM";al1k 


onto 




3420 

PRINT#8 


[ 343] 

3430 

PRINT#8, 

Anzahl aller bestellten Arti 

[5720] 

kel 


=",USING"######";al1stueck 


3440 

PRINT #8, 

Summe aller bestellten Arti 

[6036] 

kel 


=",USING"######.## DM";allp 


rei s 




3450 

PRINT#8, 

Anzahl aller Retouren 

[6272] 



= ", USING"######";al1retur 


3460 

PRINT#8, 

Summe aller Retouren 

[4348] 



=",USING"######.##";allretu 


rsumme 



3470 

PRINT #8, 

‘Summe aller Retourzinsen 

[4577] 



= USING"######.## DM";al1r 


etu rz1 ns 



3480 

PRINT # 8, 

'Gewinnbetei 1igung 

[4815] 



=",USING"######.## DM";al1g 


ewi nn 



3490 

PRINT #8 


[ 343] 

3500 

PRINT#B, 

'Kontostand des Mitbestellers 

[5254] 



= ",USING"######.## DM";kon t 

' 

3510 

PRINT#8 


[343] 

3520 

PRINT # 8, 

Anzahl der bestellten Artike 

[7215] 

1 


=",USING"######";stueck 


3530 

PRINT # 8, 

Summe der bestellten Artike 

[ 6487 ] 

1 


= “.USING"######.## DM";p r e1 


3540 

PRINT#8 , 

Anzahl der Retouren 

[ 6065 ] 



=",USING"######";retur 


3550 

PRINT #8, 

Summe der Retouren 

[4494] 



=",USING"######.##";retursu 


mme 




3560 

PRI NT# 8, 

'Anzahl der Raten 

[5370] 



=",USING"######";raten 


3570 

PRINT # 8, 

'Preis der Raten 

[4136] 



=",USING"######.## DM";ratp 


reis 




3580 

PRINT #8, 

'F{lligkeit der 1. Rate 

[4088] 



= ";monat$ 


3590 

PRI NT# 8, 

'Bezahlte Raten 

[4306] 



=".USING"######";bezraten 


3600 

PRINT #8 


[343] 

3610 

PRINT # 8, 

'Anzahl aller bestellten Arti 

[6042] 

kel 


=",USING"######"jgesstueck 


3620 

PRINT# 8, 

"Summe aller bestellten Arti 

[6439 ] 

kel 


=",USING"######.## DM";gesp 


reis 




3630 

PRINT#8 , 

"Anzahl aller Retouren 

[6271] 



=".USING"######"-.gesretur 


3640 

PRINT #8, 

"Summe aller Retouren 

[4276] 



=",USING"######.##";gesretu 


rsumme 



3650 

PRINT#8 


[343] 



__ „ 


Listing SAMMEL 




3670 ' 

3680 ' sammelbeste!1erdaten ausdrucken 
3690 ' 

3700 CLS #5:LOCATE #5,7,1:INPUT #5,"Sammel 
beste 11erdaten ausdrucken ? J/N ",j$ 

3710 IF j$ ="j" OR j$="J“ THEN 3720 ELSE 3 
940 

3720 CLS#3:LOCATE #3,7,6:PRINT#3,"Bitte Dr 
ucker einschalten, und Papier einlegen" 

3730 LOCATE #3,17,8:PRINT#3,"dann eine Tas 
te drjcken" 

3740 CALL Ä.BB06 
3750 PRINT#8 

3760 CLS#3:LOCATE #3,10,6:PRINT#3,"Samme1b 
estel1erdaten werden ausgedruckt" 

3770 PRINT#8,CHR$(14);CHR$(27);"-";CHR$(1) 
;"5AMMELBESTELLUN G";CHR$(2 
7);;CHR$(0);CHR$(10);CHR$(20);CHR$(10); 
CHR${10) 

3780 PRINT#8,CHR$(9);CHR$(14);CHR$(27); 

;CHR$(1);"Q UELLE VERSAN D";CHR$ 
(27);;CHR${0);CHR$(10);CHR$(20);CHR$(10 
);CHR$(10) 

3790 PRINT#8 
3800 PRINT#8 

3810 PRINT#8,"Kontostand des Sammelbeste!1 
ers =".USING"######.## DM";al1k 

onto 

3820 PRINT #8 

3830 PRINT#8,"Anzahl aller bestellten Arti 
kel =",USING"######";al1stueck 

3840 PRINT#8,"Summe aller bestellten Arti 
kel =“,USING"######.## DM";al1p 

reis 

3850 PRINT#8,"Anzahl aller Retouren 

=",USING"######";a11retur 

3860 PRINT#8,"Summe aller Retouren 

= ",USING"######.##";all retu 

rsumme 

3870 PRINT#8,"Summe aller Retourzinsen 

=",USING"######. ## “; a 11retu 

rz 1 ns 

3880 PRINT#8,"Gewinnbeteil i gung 

= ",USING"######.## DM";a11g 

ewi nn 

3890 PRINT#8 

3900 PRINT#8,"==========================** 


3910 1 

3920 ' mltbestel1erdaten ausdrucken 
3930 ' 

3940 CLS #5:LOCATE #5,7,1:INPUT #5,"Mitbes 
tellerdaten ausdrucken ? J/N ",j$ 

3950 IF j$ ="j" OR j$="J" THEN 3960 ELSE 4 
200 

3960 CLS#3:LOCATE #3,7,6:PRINT#3,"Bitte Dr 
ucker einschalten, und Papier einlegen" 
3970 LOCATE #3,17,8:PRINT#3,"dann eine Tas 
te drjcken" 

3980 CALL &BB06 
3990 PRINT#8 

4000 CLS#3:LOCATE #3,12,6:PRINT#3,"Mitbest 
ellerdaten werden ausgedruckt" 

4010 PRINT#8,CHR$(14);CHR$(27);;CHR$(1) 
;" SAMM E LBEST E L LUN G";CHR$(2 
7);"-";CHR$(0);CHR$(10);CHR$(20);CHR$(10); 
CHR$(10) 

4020 PRINT#B,CHR$(9);CHR$(14);CHR$(27) 

;CHR$(1);"Q UELLE VERSAN D";CHR$ 
(27);;CHR$(0);CHR$(10);CHR$(20);CHR$(10 
);CHR$(10) 

4030 PRINT#B,CHR$(9); name1$;" ”;name2$;CHR 
$(9);CHR$(9);datum$ 

4040 PRINT#8 
4050 PRINT#8 

4060 PRINT#8,"Kontostand des Mitbestellers 
=".USING"######.## DM";kont 
o 

4070 PRINT#8 

4080 PRINT#8,“Anzahl der bestellten Artike 
1 =" ,USING"######";stueck 

4090 PRINT#8,"Summe der bestellten Artike 
1 =".USING"######.## DM";prei 

s 

4100 PRINT#8,"Anzahl der Retouren 

=",USING"######";retur 

Listing SAMMEL _'_ 


[117] 

[1417] 
[117] 

[ 6829 ] 

[1358] 

[5917] 


[3437] 

[393] 

[343] 

[6390] 

[6058] 


[7905] 


[ 343] 
[343] 
[6651] 


[343] 

[5720] 


[6036] 


[6272] 


[4348] 


[4644] 


[4815] 


[ 343] 
[4549] 

[117] 

[2307] 

[117] 

[5068] 

[1517] 

[5917] 

[3437] 

[ 393] 

[ 343] 
[4214] 

[6058] 


[7905] 


[6146] 

[343] 

[343] 

[5254] 


[343] 

[7215] 

[6487] 


[6065] 
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4110 PRINT#8,"Anzahl der Raten 

= ",USING"444444";raten 
4120 PRINT#8,"Preis der Raten 

=",USING"444444.44 DM";ratp 

reis 

4130 PRINT48,"F{111gkelt der 1. Rate 
= ";monat$ 

4140 PRINT4B,"Bezahlte Raten 

=",USING"444444";bezraten 

4150 PRINT48 

4160 PRINT48,"============================ 

4170 1 

4180 ' dlsketteninhalt anzeigen 
4190 ' 

4200 CLS #5:LOCATE 45,7,1:INPUT 45,"Disket 
teninhalt anzeigen j/n ",j$ 

4210 IF j$ ="j" OR j$="J" THEN 4220 ELSE 4 
260 

4220 MODE 2:|DIR:PRINT "Bitte eine Taste d 
r}cken.":CALL &BB06:sprung=l:GOTO 290 
4230 ' 

4240 ' Programm beenden 
4250 ' 

4260 CLS #3:LOCATE #3,10,6:PRINT43, ”P R 0 
GRAMM BEENDEN ????" 

4270 -.LOCATE 43,4,10:PRINT#3, "ACHTUNG !!! 

Sind alle neuen Daten auch gespeichert ?" 

4280 CLS #5:LOCATE #5,7,1:INPUT 45,"Sind S [4550] 
ie sicher ? j/N ",j$ 

4290 IF j$ = "j" OR J$="J" THEN 4300 ELSE C [2622] 
LS43:sprung=l:GOTO 290 
4300 CLG:END:GOTO 10 
4310 ' 

4320 ' sammelbestellerdatei erstellen 
4330 * 

4340 CLS #3:LOCATE 43,6,4:PRINT43,"So 11 dl 
e Sammelbestel1erdatei erstellt werden ? " 


[5370] 

[4136] 

[4332 ] 
[4306] 


[343] 

[4549] 

[117] 

[1583] 

[117] 

[4705] 

[1719] 

[6210] 

[117] 

[ 1545 ] 

[117] 

[3397] 

[5795] 


[ 1459 ] 
[117] 
[2028] 
[117] 

[ 6238 ] 


4350 CLS #5:LOCATE 45,7,1:INPUT 45,"Sind S 
1e sicher ? j/n ",j$ 

4360 IF J$ = ”j" OR j$="J" THEN 4370 ELSE R 
ETURN 

4370 allkonto=0:allstueck=0:allpreis=0:al1 
retu r = 0 :al1 retursumme = 0:al1 returzins = 0:gew 
1 nn =0 

4380 CLS45:CLS41:LOCATE 41,17,1:PRINT 41," 
Sammelbestel1 er - Datei " 

4390 CLS 43:LOCATE 43,13,6:PRINT 43,"Bitte 
die Datendiskette elnlegen," 

4400 LOCATE 43,16,8:PRINT 43,"dann eine Ta 
ste drjcken." 

4410 CALL &BB06 

4420 CLS 43:LOCATE 43,12,6rPRINT 43,"Samme 
1bestel1erdatei wird er|ffnet, " 

4430 OPENOUT "QSAMMEL.DAT" 

4440 PRINT 49,datuml$ 

4450 PRINT 49,allkonto 
4460 PRINT 49,allstueck 
4470 PRINT 49,allpreis 
4480 PRINT 49,al1retur 
4490 PRINT 49,al1retursumme 
4500 PRINT 49,allreturzins 
4510 PRINT 49,allgewinn 
4520 CLOSEOUT 

4530 CLS 45:CLS 43:L0CATE 43,20,3:PRINT 43 
."ACHTUNG! ! !" 

4540 LOCATE 43,20,4:PRINT 43," =========== 


4550 LOCATE 43,5,6:PRINT 43,"Die Sammelbes 
tel 1 erdatei Ist erstellt.Sie sollten " 


[4550] 
[ 2298 ] 
[6515] 

[4118] 

[5462] 

[3404] 

[ 393] 
[4388] 

[1567] 
[1306] 
[ 986 ] 
[925] 

[ 1595 ] 

[907] 

[1175] 

[1147] 

[1532] 

[902] 

[3269] 

[2843] 

[7112] 


4560 LOCATE 43,3,8:PRINT 43,"in der Sprung [6160] 
adresse 610 das REM-Zeichen einsetzen.” 


4570 LOCATE 43,15,11:PRINT 43,"Bitte eine 
Taste drjcken." 

4580 CALL &BB06 
4590 RETURN 


[3775] 

[393] 

[ 555] 


Listing SAMMEL 


MICA 


CF*C SOFTWARE 

MICA, RH-BUERO, RH-MATHEXT, Small-C, SuperCalc 2, 
TURBO-ADRESS, usw. je nur 99,-- DM 

Arnor C, MAXAM II, PROWORT, VEREIMSVERWALTUNG, usw. 
. jeweils nur 199,— DM 

GRAT IS I NS CD * S ! 


CPC-Leckerbissen 



mi lOMAUH 

Unternehmensberatung & Handel 

Korbiniansplatz 2 • D-8045 Ismaning 
Tel. 0 89 - 96 50 29 • Fax. 0 89 - 96 50 01 
Btx-Nr. 0 89 96 50 29 

Geschäftszeiten: Montag bis Freitag 
nach telefonischer Terminvereinbarung 


Ordnung und Übersicht 
schaffen die beliebten 
DMV Sammelmappen 



Bitte benutzen Sie den Bestellcoupon auf Seite 7. 
DMV Verlag • Postfach 250 • 3440 Eschwege 
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Windows? 

Null Problemo! 

Windows einfach gehandhabt 

Welcher Computer-Neuling auf dem CPC kennt nicht 
das Problem mit den Windows? Window Manager ist ein 
Programm, das all denen, die dieses Problem haben, 
helfen kann. 



Bilder lassen sich auch ohne Probleme behandeln 


Dieses Programm wurde konzipiert, um 
den Zusatzspeicher des CPC 6128, im 
folgenden nur noch als “Stack“ bezeich¬ 
net, nutzbar zu machen. In erster Linie 
handelt es sich um Befehle zur Window- 
Verwaltung, die in der Art von Pull- 
down-Menüs benutzt werden können. 
Dazu wurde ein neues Koordinatensy¬ 
stem festgelegt: der Ursprung befindet 
sich in der oberen linken Ecke des Bild¬ 
schirms, dieser Punkt heißt demnach 
(0,0). Davon ausgehend befindet sich der 
entfernteste Punkt in der unteren rechten 
Ecke und heißt (79,199). Alle Befehle, die 
den Bildschirm verändern (mit Ausnah¬ 
me des CLOSE- und SHOW-Befehls), 
setzen voraus, daß in Bildschirmmodus 
2 gearbeitet wird. Das heißt aber nicht, 
daß die Befehle in einem Grafik-Pro¬ 
gramm, das in einem anderen Modus ar¬ 
beitet, nicht zu gebrauchen wären, ganz 
im Gegenteil! Das Programm benötigt 
nur sechs Kilobyte des Hauptspeichers, 
sämtliche Bilddaten werden in Stack ge¬ 
speichert. Die oberste Speicherstelle des 
Programms liegt unter &AOOO, daher ha¬ 
ben Sie noch Platz für andere M-Codes. 
Damit auch Benutzer des 464 und des 
664 in den Genuß dieser Befehlserweite¬ 
rung kommen können, wurde die Mög¬ 
lichkeit geschaffen, die Bilddaten auch 
im normalen Speicher abzulegen. Die 
dk’tronics-Erweiterung kann jedoch ge¬ 
nutzt werden. (Das Programm wurde auf 
einem CPC 664 mit dieser Erweiterung 
geschrieben). 

Für die folgende Befehlsbeschreibung 
werden einige Definitionen benötigt. Es 
gilt: 

w,x,y,z: Eine Zahl oder eine einfache 
Zahlen-Variable. 

vx,vy,vz: Eine Variable vom Typ Integer, 
die als solche zu Beginn des Basic-Pro- 
gramms durch “DEFINT“ definiert wer¬ 
den muß oder in Verbindung mit dem 
%-Zeichen benutzt wird. 


Wichtig: Dieser Zahl muß zuvor irgend¬ 
ein Wert zugeordnet werden und im RSX- 
Befehl ein “ Klammeraffe“ (@) vorange¬ 
stellt werden. 

s: Ein String oder eine String-Variable. 
Läuft die Befehlserweiterung auf einem 
CPC 464, so muß eine String-Variable 
definiert werden und dieser ebenfalls der 
“Klammeraffe“ vorangestellt werden. Im 
folgenden werden die Befehle ohne RSX- 
Strich angeführt. Wird eine andere An¬ 
zahl von Parametern verwendet als er¬ 
laubt, so wird der Befehl ignoriert, eine 
Fehlermeldung erscheint nicht. 

Befehle zur Window-Verwaltung 

OPEN,w,xl^l,x2 x y2 
Dieser Befehl definiert ein Fenster mit 
der Nummer w. Man beachte, daß bis zu 
255 verschiedene Fenster definiert wer¬ 
den können, sofern der Speicherplatz 
ausreicht. Man sollte jedoch nur Num¬ 
mern von 1 bis 199 benutzen, da der 
MENÜ-Befehl die Werte 200-255 belegt, 
xl und yl geben die Koordinaten für die 
obere linke Ecke des Fensters an, x2 legt 
die Ausdehnung des Fensters in Byte in 
der Horizontalen und y2 die Ausdehnung 
in Byte in der Vertikalen fest. 

Mögliche Werte: 

xl:0-79; 

yl:0-199; 

x2:l-80; 

y2:l-200. 

Der Befehl hat unter Normalbedingungen 
(siehe Befehl ART) keine sichtbaren Aus¬ 
wirkungen auf dem Bildschirm, jedoch 
wird der Ausschnitt in den Stack kopiert, 
die Verwaltung dieser Ausschnitte über¬ 
nimmt ein internes System, Sie brauchen 
sich also nicht um Speicherplatzver¬ 
brauch oder dergleichen zu kümmern. 
Sollte schon ein Fenster mit der Nummer 


w. existieren, so wird dies erst geschlos¬ 
sen und dann der Befehl ausgeführt. 
Beispiel: OPEN,1,3,24,20,80 

CLOSE,w 

Der Sinn der OPEN-CLOSE-Kombina- 
tion ist es, Pulldown-Strukturen erzeugen 
zu können, w. gibt die Nummer eines be¬ 
reits geöffneten Fensters an. Infolge die¬ 
ses Befehls wird der ursprüngliche Bild¬ 
schirminhalt in dem definierten Bereich 
wieder hergestellt, das heißt, mögliche 
Veränderungen in dem Fenster werden 
rückgängig gemacht. Als weitere Folge 
wird der Speicherplatz für diesen Aus¬ 
schnitt im Stack wieder freigegeben, das 
heißt, nach diesem Befehl existiert das 
Window w. als Definition nicht mehr. 
Beispiel: CLOSE,1 

CLOSE (ohne Parameter) 

Sämtliche Fenster und Menüfenster wer¬ 
den geschlossen, das heißt, ihr ursprüng¬ 
licher Bildschirminhalt erscheint wieder. 
Dabei ist auf die Reihenfolge zu achten: 
zuerst werden alle Menü-Fenster in der 
umgekehrten Reihenfolge ihres Erschei¬ 
nens und dann alle Fenster von 199 bis 1 
rückwärts geschlossen. Daher ist es am 
günstigsten, mit einer niedrigen Nummer 
beim Offnen zu beginnen und daraufhin 
immer nur höhere Fensternummem zu 
benutzen. 

CLEAR,w. 

Das Fenster w. wird aus dem Stack ge¬ 
löscht, ohne jedoch vorher den entspre¬ 
chenden Biidschirmbereich zu über¬ 
decken (im Gegensatz zum CLOSE- 
Kommando). 

CLEAR (ohne Parameter) 

Der gesamte Stack wird gelöscht, das 
heißt, sämtliche OPEN- und MENÜ-De- 
finitionen gelten nicht mehr. 

l,SHOW,w 

Hat den gleichen Effekt wie das CLOSE- 
Kommando, jedoch bleiben die Bild- 
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schirmdaten im Stack erhalten, das Win¬ 
dow wird also nicht “geschlossen“. 

SHOW,w,x,y 

Bietet die Möglichkeit, den durch das 
OPEN-Kommando abgespeicherten 
Bildschirmbereich an einer beliebigen 
Stelle auf dem Bildschirm darzustellen. 
Mit Hilfe einer OPEN/SHOW/ 
CLEAR-Befehlsfolge lassen sich so sehr 
schnelle und einfach zu programmieren¬ 
de Verschieberoutinen, z.B. für ein Gra¬ 
fikprogramm, realisieren. 

Beispiel: SHOW, 1,10,90 

NEWPOS,w,x v v 

Der Kopie des ursprünglichen Bild¬ 
schirmausschnittes eines Fensters w. wird 
eine neue Ursprungskoordinate zugewie¬ 
sen. Dies hat natürlich nur Sinn, wenn 
dies zum Zweck einer Verschieberouti¬ 
ne, wie beim SHOW-Kommando be¬ 
schrieben, erfolgt. Dementsprechend 
kann die Befehlsfolge 
OPEN,w,xl,yl,x2 ,y2 : 
SHOW,w,x3,y3:CLEAR,w 
ersetzt werden durch 
OPEN,w,xl,yl,x2,y2: 

NE WPOS,w,x3 v v3: CLOSE,w. 

Die Auswirkungen sind die gleichen. 

GETLOC,w,vxl,vyl ,vx2 ,vy 2 
Den letzten vier angegebenen Variablen 
(mit vorangestelltem ’Klammeraffen’) 
werden die Ausmaße des Fensters w 
übertragen, gemäß der Definition mit 
OPEN oder der Änderung durch 
NEWPOS. 

Beispiel: a%=l:b%=l:c%=l:d%=l: 
GETLOC,l, a%, b%,c%, d%: PRINT 
a%;b%;c%;d% 

CLS,w 

Der definierte Bereich des Fensters w. auf 
dem Bildschirm wird gelöscht, das heißt 
mit O-Bytes bzw. mit der Paper-Farbe ge- 

ART,x 

Für x sind hier nur 2 Werte zulässig: 0 
und 1. Dies ist ein grundlegender Befehl 
für die Window-Verwaltung. ART,0 schal¬ 
tet in den Normalzustand, das heißt, alle 
Befehle funktionieren so, wie bisher be¬ 
schrieben. ART,1 dagegen bewirkt, daß 
um ein Fenster immer ein Rahmen gezo¬ 
gen wird, der die Grenzen des Fensters 
sichtbar macht. Dies ist besonders gün¬ 
stig, wenn mehrere Fenster sich gegensei¬ 
tig überlappen. Die beim Open-Befehl 
angegebene Ausdehnung des Fensters be¬ 
zeichnet aber nun nicht die tatsächliche 
Größe des Fensters, sondern nur die von 
dem Rahmen umgebene Fläche. Dabei ist 
noch zu beachten, daß diese Fläche 
gleichzeitig gelöscht wird und nicht, wie 
im Normalzustand, auf dem Bildschirm 
erhalten bleibt. Ebenso löscht der CLS- 


Befehl nicht das ganze Window, sondern 
nur die Innenfläche. Dagegen bleiben das 
CLOSE-, SHOW-, und CLEAR-Kom- 
mando unbeeinflußt. CLOSE und 
CLEAR beachten unabhängig davon, daß 
das ART-Kommando zwischenzeitlich 
benutzt sein könnte, immer nur den von 
dem Window überdeckten Bereich. Wei¬ 
tere Auswirkungen des Art-Kommandos 
werden aufgrund ihrer Komplexität in 
den einzelnen Kommando-Erklärungen 
beschrieben. 

HEADLINE,w,s 

Dieser Befehl ist zum Betiteln der bereits 
geöffneten Windows gedacht. Der String 
s wird zentriert und von Strichen flan¬ 
kiert in die oberste Zeile des Fensters ge¬ 
schrieben. Dabei ist zu beachten, daß die 
Schriftart durch das INVERS- und 
KURSIV-Kommando variiert werden 
kann. Weiterhin ist anzumerken, daß 
beim Darstellungsmodus 1 (ART,1) un¬ 
ter der obersten Zeile nun noch ein Strich 
gezogen wird, der diese “Überschrift“ 
von der Restfläche des Fensters abtrennt. 
Außerdem wird diese neue Fläche als 
Schreibfläche wie beim RANGE-Kom- 
mando definiert. 

Beispiel: ART,1 :OPEN,1,10,30,9,50: 
HEADLINE,1,“ MENUE “ 

Befehle zum Print-Komplex 

PRINT,s 

Da die Befehlserweiterung eine neue 
Koordinatenmatrix definiert, ist es nur 
schwer bzw. sehr umständlich, durch 
Kombination von TAG- und MOVE- 
Kommandos ein Fenster zu beschriften, 
da diese ja in der Vertikalen beliebig de¬ 
finiert sein können. Daher wurde dieser 
Befehl geschaffen, der die neuen Gren¬ 
zen eines Windows beachtet. Zu Beginn 
ist die aktuelle Print-Position (0,0). Jeder 
neue PRINT-Befehl beginnt an der ak¬ 
tuellen Print-Position. Die bekannten 
Vereinbarungen, wie Strichpunkt, Kom¬ 
ma etc., hinter einem normalen Print- 
Kommando, gelten nicht mehr. Dagegen 
bewirkt ein CHR$(1) innerhalb des 
Strings, über die Tastatur mit CTRL-A ei¬ 
nen Zeilenvorschub zu erreichen, das 
heißt, die aktuelle Position befindet sich 
danach in der nächsten Zeile in der ersten 
Spalte, je nach Definition mit RANGE. 
Sollen Zahlen dargestellt werden, so 
müssen diese erst mit STR$ oder DEC$ 
in Strings umgewandelt werden. Mehrere 
Strings werden nicht mit sondern mit 
“+“ verkettet, was beim originalen Print- 
Kommando auch möglich ist. 

RANGE,w 

Die aktuelle Print-Position kann nur Wer¬ 
te annehmen, die sich innerhalb eines de¬ 
finierten Feldes befinden. Dieses Feld 


wird von diesem Kommando definiert, 
das heißt, in diesem speziellen Fall kann 
nicht außerhalb des durch den OPEN- 
Befehl definierten Bereich geschrieben 
werden. Die Feldgröße wird also gemäß 
eines bereits definierten Fensters einge¬ 
richtet. Außerhalb exisiert nach dem 
RANGE-Befehl auch ein normales Bild¬ 
schirmfenster, in das durch den norma¬ 
len Print-Befehl geschrieben werden 
kann. 

PRINT,w,s 

Dieses Kommando ist gleichwertig mit 
der Befehlsfolge RANGE,w:PRINT,s. 

Beispiel: PRINT,1,“CPC664“ 

RANGE, xl ,yl ,x2,y2 
Gegenüber dem RANGE-Befehl mit nur 
einem Parameter besteht nur der Unter¬ 
schied, daß die Fenstergrenzen nicht von 
einem bereits bestehenden Window be¬ 
stimmt werden, sondern durch die ange¬ 
gebenen Parameter. 

RANGE (ohne Parameter) 

Die Schreibgrenzen werden auf den ge¬ 
samten Bildschirm ausgedehnt, daher ist 
dieser Befehl gleichwertig mit 

RANGE,0,0,80,200. 

Beachte: RANGE wirkt sich auch auf 
den normalen Print-Befehl aus! 

LOCATE,x,y 

Positionierung der aktuellen Schreibpo¬ 
sition auf die angegebene Stelle bezüglich 
des neuen, durch den RANGE-Befehl 
definierten Ursprung (obere linke Ecke 
des Fensters). 

LOCATE,0,0 
weist auf diesen Punkt. 

XTAB,x 

Die aktuelle Printposition wird um x 
Stellen nach rechts verschoben. 

YTAB v v 

Die Printposition wird um y Pixel nach 
unten verschoben. 

KURSIV (ohne Parameter) 

Die Schriftart des neuen Print-Komman¬ 
dos wird auf kursiv umgestellt. Dieser, 
wie auch die folgenden zwei Befehle, ha¬ 
ben auch Auswirkungen auf das Schrift¬ 
bild des MENÜ- und HEADLINE-Kom- 
mandos. 

NORMAL (ohne Parameter) 

Die Schrift wird auf den normalen Zei¬ 
chensatz umgestellt. Keine Auswirkun¬ 
gen auf das INVERS-Kommando! 

INVERS (ohne Parameter) 

Die Schrift wird invertiert. Zweimaliges 
Aufrufen dieser Funktion hat wieder nor¬ 
males Schriftbild zur Folge. 


8’89/90 Sonderheft 


CPC 43 






Programm/Anwendungen 



Die Hardcopy zeigt 
nur eine Anwen¬ 
dungsmöglichkeit 


Besondere Befehle: 

MODE64,z 

Wenn Sie einen Zusatzspeicher besitzen 
(und das ist beim CPC 6128 der Fall), 
können Sie die Lage des Stacks auch auf 
den normalen Speicherbereich umbie¬ 
gen. Dies ist z.B. sinnvoll, wenn Sie die 
zweite Speicherbank anders nutzen 
möchten (RAM-Disc oder ähnliches). In 
dem Argument z geben Sie die unterste 
Speicherstelle des Stacks an. Für einen 
Besitzer des CPC 464 oder CPC 664 ist 
dieser Befehl natürlich enorm wichtig, da 
dieser Befehl ihm das Betreiben dieser 
Zusatzbefehle ohne Speichererweiterung 
möglich macht. Hinweis: Beim Einbin¬ 
den der Erweiterung wird dieser Befehl 
automatisch durchgeführt, wenn das Pro¬ 
gramm feststellt, daß keine zweite RAM- 
Bank zur Verfügung steht. Für z wird der 
Wert &4000 voreingestellt, diesen kön¬ 
nen Sie aber nach Belieben mit diesem 
Befehl umändern. Beachten Sie, daß auf 
jeden Fall HIMEM heruntergesetzt wer¬ 
den muß. Also: 

MEMORY z-l:MODE64,z. 

In der “Einbindemeldung“ nach dem 
CALL &8A00 bekommen Sie auch In¬ 
formationen, wie der Speicherbereich 
voreingestellt worden ist, bzw. ob Sie ei¬ 
nen Zusatzspeicher besitzen oder nicht. 
Diese Meldung können Sie übrigens un¬ 
terbinden, wenn Sie vor dem CALL in 
die Adresse &A67A den Wert 144 einPO- 
KEn. 

MODE128 (ohne Parameter) 

Dies ist, wie man unschwer erraten kann, 
der gegenteilige Befehl zum vorherigen. 
Mit MODE128 weist man den Interpre¬ 
ter an, die zweite RAM-Bank als Stack zu 
benutzen. Da diese ganz genutzt wird, 
braucht keine Speichergrenze angegeben 
zu werden. 

GRID (ohne Parameter) 

Dieser Befehl veranlaßt, daß der gesamte 
Bildschirm mit einem schachbrettartigen 
Pixelmuster gefüllt wird. Da die Struk¬ 
tur dieses Musters sehr fein ist, erscheint 


der Bildschirm nun in einer Mischfarbe 
aus Pen- und Paperfarbe. Vor einem sol¬ 
chen Hintergrund sehen die Windows in 
Darstellungsmodus 1 (ART,1) besonders 
gut aus. 

Sehr mächtige Befehle 

CURSOR ,vx,vy 

An der Koordinate (x,y) erscheint ein 
kleiner Pfeil, der sich durch Cursortasten 
und den Joystick bewegen läßt. Durch 
Drücken von Enter oder dem Feuerknopf 
wird die Funktion abgebrochen, der Pfeil 
verschwindet wieder und die neuen 
Koordinaten werden in x und y überge¬ 
ben. Dieser Befehl läßt sich z.B. zum An¬ 
wählen von Icons benutzen. Nicht die 
“Klammeraffen“ vor den Variablen und 
das vorherige Definieren derselben ver¬ 
gessen! 

Beispiel: d%=40:e%=100:CURSOR, 
d%, e%:PRINT d%;e% 

GETTEXT,s,x,y 

Achtung: s darf hier nur eine String-Va¬ 
riable sein, diese muß auch einen Inhalt 
haben. An der Stelle (x,y) wird aus dem 
Bildschirm ein Text gelesen und in die 
Variable s übergeben. Der Text/das Wort 
wird nur in der Länge eingelesen, wie die 
String-Variable vorher definiert worden 
ist. Außerdem muß sich der zu lesende 
Text auf einer ganz normalen Print-Posi¬ 
tion befinden. Wenn sich in dem zu lesen¬ 
den Text auf dem Bildschirm eine Leer¬ 
stelle befindet, bricht die Funktion ab und 
übergibt den bis dahin gelesenen Text. 
Wenn sich zu Beginn an der zu lesenden 
Stelle nichts befindet, bzw. eine Leerstel¬ 
le ist, wird links von dieser Stelle nach ei¬ 
nem Zeichen gesucht. Wird eins gefun¬ 
den, so wird angenommen, es sei ein 
Wort und dessen Anfang wird gesucht. 
Ab dieser Stelle wird dann wieder ange¬ 
fangen zu lesen. Beispiel: Wenn ge¬ 
wünscht wird, daß das eingelesene Wort 
die Länge von zehn Buchstaben hat, so 
definiert man: 

a$=space$(10):GETTEXT, s,x v v 


MENUE,vw,x,y,z,s,sl,s2 ,s3,.... ,s23 
Dieser Befehl hat nicht nur eine einfache 
Funktion, sondern ist fast schon ein Un¬ 
terprogramm. An der Koordinate (x,y) 
wird ein Fenster von der Breite z aufge¬ 
baut. Für diesen einen Befehl wird in 
ART,1 umgeschaltet, nach Ausführung 
des Befehls ist wieder die vorherige Ein¬ 
stellung gültig. Eine Headline am oberen 
Rand des Fensters trägt die Bezeichnung 
s. Darunter werden die Strings sl, s2 usw. 
aufgeführt. Theoretisch lassen sich so bis 
zu 23 Menüpunkte auflisten, jedoch er¬ 
hält man, je nach Stringgröße, die Feh¬ 
lermeldung 'String expression too com- 
plex ’. Beachten Sie, daß Sie mindestens 
einen Menüpunkt angeben müssen, das 
heißt, der Befehl MENÜ benötigt minde¬ 
stens sechs Argumente. Die Höhe des 
Fensters wird automatisch so eingestellt, 
daß alle Menüpunkte genau in das Fen¬ 
ster passen. Nun erscheint der oberste 
Menüpunkt invertiert. Dieser Balken 
über den Menüpunkten läßt sich mit 
Space, dem Joystick oder den Cursorta¬ 
sten bewegen. Haben sie einen Punkt an¬ 
gewählt, können Sie die Funktion wieder 
durch Druck auf Enter oder die Feuerta¬ 
ste verlassen. Die Nummer des Menü¬ 
punktes erscheint in w. Diese Variable 
muß natürlich wieder vom Typ Integer 
sein, vorher definiert werden, und einen 
“Klammeraffen“ vorangestellt bekom¬ 
men. Nach Ausführung des Befehls ver¬ 
schwindet das Fenster nicht (siehe näch¬ 
ster Befehl, Beispiel dort). 

CLOSEMENÜ (ohne Parameter) 

Dieser Befehl schließt das zuletzt eröff- 
nete Menüfenster wieder, das heißt, der 
vorherige Bildschirminhalt wird wieder 
sichtbar. Da angenommen wird, daß Me- 
niipunkte sowieso hierarchisch aufgebaut 
werden, wurde auf eine Numerierung 
derselben verzichtet. Daher lassen sich 
die Fenster auch nur in der umgekehrten 
Folge ihres Erscheinens schließen. Intern 
erhalten die Menüfenster die Nummern 
200-255. Mit dem Befehl CLOSE (ohne 
Parameter) werden auch die Menüfenster 
geschlossen, diese noch vor den anderen, 
normal definierten Fenstern. 

Beispiel: r%=0:MENUE, r%,30,20, 
10,“ TEST “,“1. Wahl“,“2. Wahl“: 
CLOSEMENUE:PRINT r% 

SAVE,x,s 

Beim Öffnen eines Fensters wird der dar¬ 
unterliegende, bzw. verdeckte Bereich im 
Stack abgelegt. Wenn nun die Befehle 
OPEN-SHOW-CLOSE-CLEAR für grafi¬ 
sche Anwendungen benutzt werden, z.B. 
um Icons zu handhaben, entsteht der 
Wunsch, diese Grafiken auch auf Disket¬ 
te abspeichern zu können. Dieser 
Wunsch kann mit diesem Befehl erfüllt 
werden, x gibt die Nummer des Fensters 
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an. das natürlich schon existieren muß. 
s ist der Name, den das File erhält. Hal¬ 
ten Sie sich beim Namen an die üblichen 
Bestimmungen, acht Buchstaben Name, 
Punkt, drei Buchstaben Extension, die 
aber auch weggelasssen werden kann. 
Wundern Sie sich aber nicht, wenn Sie 
für einen Ausschnitt von Bildschirmgrö¬ 
ße nur 3 bis 4 Kilobyte auf der Diskette 
benötigen: es wurde ein Kompressor ein¬ 
gebaut, der die Grafikdaten komprimiert! 
Beispiel siehe LOAD. 

LOAD,x,s 

Mit LOAD können Sie die durch SAVE 
abgespeicherten Grafikdaten wieder in 
den Stack (aber noch nicht auf den Bild¬ 
schirm) bringen. Dazu ist es nicht nötig, 
ein Fenster mit der Nummer s definiert 
zu haben. Existiert ein solches, wird es 
erst einmal wieder geschlossen. Darauf¬ 
hin wird ein Fenster mit der Nummer x 
und den Größen festgelegt, wie es einst 
(vor dem Abspeichem) definiert worden 
ist. Wenn Sie diese Daten haben wollen, 
können Sie diese mit dem Befehl 
GETLOC erfahren. Soll nun die Grafik 
auf dem Bildschirm erscheinen, errei¬ 
chen Sie dies wie gewohnt mit dem Be¬ 
fehl 

CLOSE,x bzw SHOW,x. 
Anwendungsbeispiel: Sie haben eine 
Grafik auf dem Bildschirm, die Sie wei¬ 
terverarbeiten wollen. Nun definieren Sie 
ein Fenster so, daß die entsprechende 
Grafik überdeckt wird. Möglichst dabei 
in ART,0 arbeiten. In diesem Fall haben 
Sie zwar keine Veränderung auf dem 
Bildschirm, aber eine Kopie des Motives 
im Stack. Dieses können Sie nun mit 
SAVE auf Diskette legen und das auch 
noch komprimiert. LOAD befördert die¬ 
se Grafik wieder zurück in den Speicher. 
Mit Hilfe von SHOW kann das Motiv 
z.B. als Icon an verschiedene Stellen auf 
den Bildschirm gebracht werden. 
Beispiel: ART,0 OPEN,1,10,40,10,50 (an 
dieser Stelle des Bildschirms sollte 
irgendetwas stehen) 

SAVE,l,“testbiId“ 

CLEAR 

LOAD,7,“testbild“ 

SHOW,7,40,100 
SHOW,7,30,150 

Installation 

der Befehlserweiterung 

Tippen Sie zunächst den Data-Lader 
“WINDGENE.BAS “ ab und starten ihn. 
Sollten Sie keine Fehler gemacht haben, 
so wird nach einiger Zeit das File “WIN¬ 
DOWS. BIN“ auf Ihrer Diskette erzeugt. 
Dieses File muß nach &8A00 geladen 
werden und daraufhin werden mit CALL 
&8A00 die neuen Befehle installiert. Die 


gleiche Aufgabe übernimmt das Pro¬ 
gramm “WINDOWS.BAS“. Die oberste 
Speicherstelle von Window-Manager 
liegt noch unter &A000, das heißt, andere 
Befehlserweiterungen, die meist über 
dieser Speicherstelle liegen, können ein¬ 
gebunden werden. Es lohnt sich, das Bei¬ 
spielprogramm “Beispiel.Bas“ abzutip¬ 
pen, Sie werden staunen, was dieses klei¬ 
ne Programm auf den Bildschirm zau¬ 
bert! Es handelt sich um eine menü- und 
mauszeigergesteuerte Benutzeroberflä¬ 
che! 

Anleitung zum Beispielprogramm 


Das Programm besteht aus zwei Teilen. 
Nach Starten des Programmes befinden 
Sie sich im ersten Teil, der das Manage¬ 
ment von Diskettenfiles übernimmt. Be¬ 
wegen Sie den Mauszeiger auf irgendei¬ 
nen Filenamen und drücken Sie Enter, 
Copy oder Fire. Ein Pulldown-Menü 
wird heruntergeklappt, die einzelnen 
Menüpunkte verstehen sich von selbst. 
Sollten sie mit der Option LADEN ein 
Maschinensprachefile eingeladen haben, 
und bricht der Rechner nicht ab, so ge¬ 
langen Sie in den Grafik-Manager (es 
wurde nämlich angenommen, das Binär¬ 
file sei eine Bildschirmgrafik gewesen). 
Eine andere Möglichkeit, in den Grafik- 
Manager zu gelangen, haben Sie, wenn 
Sie den Mauszeiger anklicken, wenn er 
nicht auf einen Filenamen zeigt. In die¬ 
sem Fall gelangen Sie in den Grafik-Ma¬ 
nager, wenn Sie die entsprechende Op¬ 
tion anwählen. Der Grafik-Manager 
selbst bietet die Möglichkeit, Screens 
einzuladen und abzuspeichern, Aus¬ 
schnitte auszuschneiden und an anderer 
Stelle zu kopieren oder diese auf Diskette 
(später vielleicht als Icons zu gebrau¬ 
chen) abzuspeichem. (Das entsprechen¬ 
de Menü erhalten Sie, wenn Sie den 
Mauszeiger irgendwo anklicken.) Wenn 
Sie einen Ausschnitt definieren wollen, 
bewegen Sie den Mauszeiger auf eine 
Ecke des gewünschten Feldes und 
drücken Enter (oder Copy oder Fire). 
Daraufhin wählen Sie “definieren“ an 
und bewegen den Mauszeiger auf die ge¬ 
genüberliegende Ecke, wieder gefolgt 
von Enter. Kopieren funktioniert ähnlich: 
Ausschnitt definieren, Mauszeiger auf 
gewünschte Stelle, Enter, “kopieren“ an¬ 
wählen. “löschen“ löscht nur den Be¬ 
reich auf dem Bildschirm, nicht den ge¬ 
speicherten Bereich. Bedenken Sie, daß 
dieses Programm nicht unbedingt von 
großen Nutzen für Ihre künstlerischen 
Fähigkeiten sein soll, sondern nur die 
Möglichkeiten der Befehlserweiterung 
demonstrieren soll. 

(Michael Christen/cd) 


Achtung: 
Heißer Draht 

jetzt 

mit neuer Durchwahl! 



Haben Sie Fragen, die nicht 
warten können? Dann rufen 
Sie uns an! Unser Leser- 
Telefonservice steht Ihnen 

jeden Mittwoch 

von 17.00 bis 20.00 Uhr 

zur Verfügung. 

Sie erreichen Ihren Redak¬ 
teur direkt unter seiner neuen 
Durchwahlnummer. Auf Ih¬ 
ren Anruf freuen sich: 

Claus Daschner 
(CPC) 

(05651) 809-750 


Joachim Freiburg 
(CPC, PC) 

(05651) 809-751 


Ralf Schößler 
(PCW) 

(05651) 809-752 

Die in früheren Heften veröf¬ 
fentlichten Telefonnummern 
sind ab Januar 1990 ungültig 
- diese Nummern bitte nicht 
mehr anwählen! 
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für 464-664-6128 



10 REM "WINDOWS.BAS” Baslc-Lader / Instal 1 [2131] 
at 1 on 

20 IF HIMEM> 3532 7 THEN MEMORY &89FF:LOAD " [5084] 

windows.bin":CALL &8AOO 

30 'Ihr Programm... [863] 


1 REM "WINDGENE.BAS", Data-Lader fuer Wind [5823] 

ow-Manager 1987 

by Micha 

el Christen 

2 MEMORY &B9FF:RESTORE 10:z=10:FOR n=&8A00 [4097] 
TO &9 79 6 STEP 21:x = 0 

3 FOR m=0 TO 20:READ a$:a=VAL("&"+a$):POKE [4312] 
n+m,a:x=x+a:NEXT m 

4 READ a$:IF x<>VAL("&" + a$ ) THEN PRINT"DAT [2947 ] 
A ERROR ln ";z;END 

5 Z=Z+1:NEXT n:SAVE "windows.b1n",b,&8A00, [3352] 
8.D97 , &8A00 

6 PRINT"OK. Binaerflle abgespeichert.":END [5146] 

10 DATA 21,cf,Ba,01,d3,8a,cd,dl,bc,00,00,0 [3056] 
0 I cd,af,8b,21,aa,96,22,a8,96,09fa 

11 DATA 21,ff,3f,cd,55,95,f5,e5,3e,3a,cd,5 [4839] 
2,95,21,ff,7f I cd,55,95,fe 1 3a,0baa 

12 DATA 20,00,11,01,40,cd,dO,Bb,21,dO,96,2 [4193] 
2,aS,96,el,fl,cd,52,95,21,40,0974 

13 DATA 96,11,96,96,06,10,7e,ee,44,12,23,1 [1950] 
3,10,f8,3a,7a,a6,fe,90,28,53,084c 

14 DATA 3e,90,32,7a,a6,cd,11,bc,f5,cd,a7,8 [3289] 

а, 3e,01,01,50,c8,ll,00,00,cd,08e3 

15 DATA Oa,8c,3e,02,cd,Oe,bc,cd,fc,94,21,0 [4239] 
2,0a,22,79,97,22,77, 97.21.be, 0838 

16 DATA 4d,22,7b,97,3e,2f,32,65,92,11,50,9 [3264] 

б, cd,2d,92,ed,5b,a8,96,cd,2d,091a 

17 DATA 92,11,f3,96,cd,2d,92,cd,d7,92,cd,1 [4596] 
8,bb,fl,cd,0e,bc,cd,4b,8d,21,0bdc 

18 DATA 00,00,11,5d,97,01,03,00,cd,ce,95,2 [2989] 
l,9f,97,22,83,97,af,32,82,97,07c6 

19 DATA 21,00,00,22,77,97,22,79,97,21,50,c [4160] 
8,22,7b,97,c3,c3,95,00,00,00,070b 

20 DATA 00,23,8b,c3,af,8b,c3,cd,8b,c3,ab,8 [3823] 
d,c3,ef,8b,c3,f7,8b,c3,58,8d,0ceb 

21 DATA c3,e0,8d,c3,32,8d,c3,84,90,c3,eb,9 [3139] 

1, C3,00,92,C3,13,92,c3,le,92,0bf8 

22 DATA c3,29,92,c3,9c,92,c3,aB,92,c3,d7,9 [3210] 

2, c3,f7,92,c3,4a,93,c3,fc,94,0dd7 

23 DATA c3,f3,93,c3,13,8e,c3,cd,8e,c3,ld,9 [4203] 
5,c3,a0,8f,c3,61,94,4d,4f,44,0bca 

24 DATA 45,31,32,b8,4d,4f,44,45,36,b4,43,4 [3719] 
C,45,41,d2,41,52,d4,4f,50,45,07al 

25 DATA ce,43,4c,4f,53,c5,53,48,4f,d7,4e,4 [4061] 
5,57,50,4f,d3,4d,45,4e,55,c5,08db 

26 DATA 43,4c,4f,53,45,4d,45,4e,55,c5,4c,4 [4266] 
f,43,41,54,05,58,54,41,c2,59,07b0 

27 DATA 54,41,c2,50,52,49,4e,d4,4b,55,52,5 [2710] 
3,49,d6,4e,4f,52,4d,41,cc,49,085a 

28 DATA 4e,56,45,52,d3,43,4c,d3,48,45,41,4 [3449] 
4,4c,49,4e,c5,47,52,49,c4,52,0822 

29 DATA 41,4e,47,c5,53,41,56,c5,4c,4f,41,c [2919] 
4,47,45,54,4c,4f,c3,43,55,52,0812 

30 DATA 53,4f,d2,47,45,54,54,45,58,d4,00,2 [2666] 
1,84,95,22,53,95,21,96,95,22,07cb 

31 DATA 56,95,21,00,00,22,61,97,21,ff,ff,2 [3744] 
2,63,97,22,5d,97,c3,a7,Sa,fe,0969 

32 DATA 01,cO,21,6e,95,22,53,95,21,79,95,2 [4269] 
2,56,95,ed,53,61,97,21,ff,89,090c 

33 DATA af,ed,52,22,63,97,22,5d,97,c3,a7,8 [4377] 
a,fe,01,c0,7b,32,81,97,c9,fe,0b5f 

34 DATA 05,c0,dd,7e,08,fe,00,c8,43,dd,4e,0 [3648] 
2,dd,56,04,dd,5e,06,32,6b,97,090a 

35 DATA 3a,Bl,97,fe,00,28,07,04,04,04,04,0 [3907] 
4,0c,0c,ed,43,6c,97,ed,53,6e,068c 

36 DATA 97,3a,6b,97,c5,cd,60,8d,cd,ee,8c,c [4305] 
l,cd,ec,95,54,5d,cd,e5,8c,3 a,Oed 1 

37 DATA 6b,97,f5,d5,cd,ac,8c,cd,63,95,ed,5 [2780] 
3,73,97,dl,cd,58,95,ed,53,75,Od20 

38 DATA 97,23,23,f1,cd,52,95,23,ed,4b,6e,9 [3957] 
7,50,59,cd,58,95,e5,cd,fa,95,0b86 

39 DATA eb,el,d5,23,23,ed,5b,6c,97,42,4b,c [2461] 
d,58,95,23,23,dl,c5,06,00,d5,0a30 

40 DATA cd,ce,95,dl,e5,62,6b,cd,26,bc,54,5 [3441] 
d,el,cl,10,ec,e5,2a,73,97,ed,0cb7 

41 DATA 5b,75,97,af,ed,52,ab,el,cd,58,95,2 [4298] 
3 I 23,af,cd,52,95,cd,c3,95,3a,0be3 

Listing WINDOWS 


42 DATA 81 ,97,fe,00,c8,3a,6b,97,cd,fb,92,c 
9,21,00,00,cd,e5,8c,d5,cd,63,0bal 

43 DATA 95,42,4b,dl,23,23,cd,55,95,2b,2b,f 

e, 00 , 20 , 08 ,7a,b8,d8,20,03,7b,0814 

44 DATA b9,d8,09,3a,64,97,bc,20,df,3a,63,9 
7,bd,20,d9,fl,fl,fl,cd,c3,95,0c6c 

45 DATA 11,33,97,c3,27,96,e5,21,07,00,19,5 
4,5d,el,c9,21,00,00,cd,63,95,07c2 

46 DATA 23,23,cd,55,95,2b,2b,e5,d5,f5 , 19,3 

a, 64,97,bc,20,0c,3a,63,97,bd,0929 

47 DATA 20,06,fl,dl,el,c3,c3,95,fl,fe,00,2 
O,10,23,23,cd,55,95,2b,2b,fe,Oa5c 

48 DATA 00,20,Od,cd,63,95,00,el,19,eb,el,c 
d,58,95,lB,c3,dl,dl,18,bf,fe,0ac4 

49 DATA 03,c0,dd,7e,04,cd,be,8d,fe,00,c8,2 

3.23.23, dd,56,00,dd,5e,02,cd,09a6 

50 DATA 58,95,c9,3e,ff,f5,cd,60,8d,f1,3d,2 
0,f8,c3,a7,8a,fe,00,28,ef,fe,0cef 

51 DATA 01,cO,7b,cd,be,8d,fe,00,ca,c3,95,2 

3.23, cd,55,95,af,cd,52,95,23,0af7 

52 DATA 3a,65,97,fe,00,28,05,ll,00,c0,18,0 

b, cd,63,95,42,4b,e5,cd,fa,95,08e8 

53 DATA eb,el,d5,23,23,cd,63,95,23,23,42,4 

b, dl,c5,06,00,d5,cd,dd,95,dl,0b00 

54 DATA Cl,e5,62,6b,cd,26,bc,54,5d,el,10,e 

c, c3,c3,95,fe,00,ca,a7,8a,7b,0c3f 

55 DATA cd,be,8d,fe,00,c8,23,23,af,cd,52,9 
5,c9,21,00,00,32,ce 1 8d,cd,63,0a2e 

56 DATA 95,e5,23,23,cd,55,95,fe,01,el,c8,1 
9,3a,64,97,bc,20,ec,3a,63,97,0a69 

57 DATA bd,20,e6,af,c9,fe,01,20,10,7b,f5 , a 

f, 32,6d,8d,fl,cd,60,8d,3e,af,0b4d 

58 DATA 32,6d,8d,c9,fe,03,cO,dd,7e,04 , f5 , d 

d, 4e,02,43,cd,fa,95,3e,01,32,0a47 

59 DATA 65,97,22,7a,8d,fl,cd,e5,8d,af,32,6 

5.97, c9,fe,02,c0,af,32,70,97,0ba3 

60 DATA d5,dd,7e,02,cd,be,8d,fe,00,dl,c8,e 
5,la,47,13,la,6f,13,la,67,11,0968 

61 DATA d7,97,cd,8c,bc,el,dO,f3,cd,e7,92,7 
9,cd,67,8e,78,cd,67,8e,7b,cd,0e2a 

62 DATA 67,8e,7a,cd,67,8e,42,c5,d5,43,c5,c 
d,55,95,e5,cd,67,8e,el,23,cl,0c38 

63 DATA 10,f3,dl,cl,10,ec,cd,b9,8e,cd,8f,b 
c,fb,c9,32,72,97,3a,70,97,fe,0cfb 

64 DATA 00,20,12,3a,72,97,cd,cl,8e,c2,95,b 

c, 32,71,97,3e,01,32,70,97,c9,091f 

65 DATA 3a,71,97,47,3a,72,97,b8,28, 11 , 78 , c 

d, 95,bc,3a,70,97,cd,95,bc,af,0a61 

66 DATA 32,70,97,c3,71,8e,3a,70,97,3c,32,7 
0,97,fe,ff,c0,3a,71,97,cd,95,0bl2 

67 DATA bc,3a,70,97,cd,95,bc,af,32,70,97,c 
9,3a,70,97,fe,00,c8,18,e7,fe.ObdO 

68 DATA 00,c8,fe,55,c8,fe,aa,c8,fe,ff,c9 , f 

e, 02,c0,af,32,70,97,dd,7e,02,0dle 

69 DATA f5,la,47,13,la,6f,13,la,67,11,d7,9 
7,cd,77,bc,d2,7a,8f ) ca,7a,8f,09b3 

70 DATA fe,16,c2,7a,8f,f1,f5;Cd,60,8d,Cd,7 

d, 8f,5f,cd,7d,8f,57,cd,7d,8f,0cc0 

71 DATA 4f,cd,7d,8f,47,ed,43,6c,97,ed,53,6 

e, 97,c5,cd,ee,8c,cl,cd,ec,95,0d02 

72 DATA 54,5d,cd,e5,8c,d5,cd,ac,8c,f3,cd,6 
3,95,ed,53,73,97,dl,Cd,58,95,Od56 

73 DATA ed,53,75,97,23,23,fl,cd,52,95,23,e 
d,5b,6e,97,cd,58,95,23,23,ed 1 0a94 

74 DATA 5b,6c,97,cd,58,95,23,23,42,c5,d5,4 
3,c5,e5,cd,7d,8f,el,cd,52,95,0b95 

75 DATA 23,cl,10,f3,dl,cl,10,ec,e5,cd,7a,b 

c, 2a,73,97,ed,5b,75,97,af,ed,0c81 

76 DATA 52,eb,el,cd,58,95,23,23,af,cd,52,9 
5,fb,c3,c3,95,fl,fb,c9,3a,70,0cf6 

77 DATA 97,fe,00,ca,8d,8f,21,70,97,35,3a,7 

1.97, c9,cd,80,bc,cd,cl,8e,c0,0bc8 

78 DATA 32,71,97 1 cd,80,bc,32,70,97,c3,85,8 

f, fe,02,c0,la,47,dd,6e,02,dd,0a9e 

79 DATA 66,03,4e,ed,43,85,97,cd,3a,90,cd,a 
C,91,f5,cd,6f,90,fl,ed,4b,85,Ocl3 

80 DATA 97,fe,fO,20,15,78,fe,04,38,09,3d,3 

d, 3d,3d,32,86,97,10,df,3e,cO,O8ad 

81 DATA 32,86,97,18,d8,fe,f1,20,14,78,fe,b 
d,30,09,3c,3c,3c,3c,32,86,97,09Od 

82 DATA 18,c6,af,32,86,97,18,cO,fe,f2,20,1 
2,79,fe,00,28,06,3d,32,85,97,0906 

83 DATA 18,bl,3e,4f,32,85,97,18,aa,fe,f3,2 
0,11, 79,fe,4f,28,06,3c,32,85,086f 

84 DATA 97,18,9b,af,32,85,97,18,95,fe,eO,2 
0,91,3a,86,97,dd,6e,00,dd,66,Oa68 

85 DATA 01,77,23,af,77,3a,85,97,dd,6e,02,d 

d, 66,03,7 7,23,af,77,c9,ed,4b,096b 

86 DATA 85,97,cd,fa,95,e5,11,97,97,06,08,7 

e, 12,cd,26,bc,13,10,f8,el,e5,Oaca 
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Programm/Anwendungen 


87 DATA ll|87,97,06,08,la,a6,77,cd,26,bo,l [2401] 
3,10 I f7,el,ll,8f I 97,06,08,la,077d 

88 DATA b6,77,cd,26,bc,13,10,f7,c9,ed,4b,8 [2777] 

5.97, cd,fa,95,11,97,97,06,08,Oabc 

89 DATA la,77,cd,26,bc,13,10,f8,c9,fe,06,d [4465] 
8,d6,05,32,68,97,47,dd,23,dd,0a30 

90 DATA 23,10,fa,dd,e5,cb,27,cb,27,cb,27,c [2651] 
6,0e,47,dd,4e,02,dd,56,04,dd,0a21 

91 DATA 5e,06,c5,d5,3e,c9,f5,cd,be,8d,fe,0 [3439] 

0,28,0c,f1,3c,fe,ff,20,f2,dl,0c51 

92 DATA cl,f1,dd,Bl,c9,21,82,97,34,f1,2a,8 [3693] 

3.97.77.23.22.83.97, dl,cl,cd,Oc11 

93 DATA Oa,8c,dd,el,dd,5e,00,dd,56,01,3a,6 [2566] 
b,97,cd,50,93,af,32,67,97,3e,09cc 

94 DATA 01,32,86,97,dd,2b,dd,2b,2a,79,97,2 [3529] 

2.77.97, dd.22,69,97,06,00,04,07b3 

95 DATA dd,5e,00,dd,56,01,c5,3a,78,97,f5,c [2983] 
d,2d,92,3a,79,97,32,77,97,fl,Oa79 

96 DATA 06,08,80,32,78,97,dd,2b,dd,2b,cl,3 [4169] 

a,68,97,b8,20,d9,3a,67,97,fe,09c0 

97 DATA 00,28,03,cd,82,91,3a,66,97,32,67,9 [3783] 

7 , cd,82,91,cd,ac,91,fe,fO, 28 ,0a72 

98 DATA 19,fe,eO,28,26,fe,f1,20,f1,3a,68,9 [3779] 

7.21.66.97, be,2B,03,34,18,2b,08fc 

99 DATA 36,01,c3,78,91,21,66,97,3e,01,be,2 [3021] 
8,03,35,18,1b,3a,68,97,77,18,0679 

100 DATA 15,3a,68,97,dd,2a,69,97,dd,6e,Oa, [3449] 
dd,66,0b,3a,66,97,77,23,af,77,08ef 

101 DATA C9,3a,68,97,dd,2a,69,97,c3,lf,91, [4578] 

3d,cb,27,cb,27,cb,27,ed,4b,79,0a40 

102 DATA 97,80,47,c5,Cd,fa,95,cl,3a,7b,97, [2785] 
91,4f,06,08,c5,e5,41,7e,2f,77,0a89 

103 DATA 23,10,fa,el,cd,26,bc,cl,10,fO,c9, [4222 ] 

Cd,18,bb,fe,f0,c8,fe,0b,28,26,0bf4 

104 DATA fe,f1,c8,fe,Oa,28,22,fe,20,28,le, [4506] 

fe,f2,c8,fe,08,28,la,fe,f3,c8,0c26 

105 DATA fe,09,28,16,fe,eO,c8,fe,Od,28,12, [2769] 
fe,5B,28,0e,af,c9,3e,f0,c9,3e,0a69 

106 DATA f1,c9,3e,f2,c9,3e,f3,c9,3e,eO,c9, [4146] 
3a,82,97,fe,00,c8,3d,32,82,97,0c35 

107 DATA 2a,83,97,2b,7e,22,83,97,c3,60,8d, t3408] 
fe,02,c0,2a,79,97,dd,7e,02,85,09b5 

108 DATA 32,77,97,7b,84,32,78,97,c9,fe,01, [4111] 

c0 1 3a,77,97,83,32,77,97,c9,fe,0ada 

109 DATA 01,cO,3a,78,97,83,32,78,97,c9,fe, [3795] 
01,20,06,ed,4b,77,97,18,Ob,fe,0923 

110 DATA 02,cO,d5,dd,7e,02,cd,f8,93,dl,la, [3648] 

fe,00,c8,13,eb,5e,23,56,f5,d5,0b9c 

111 DATA C5,la,fe,01,20,06,cl,cd,88,92,18, [3860] 

28,f5,cd,06,b9,fl,cd,a5,bb,eb,0b76 

112 DATA cd,fa,95,e5,06,08,la.OO,77,cd,26, [4875] 
bc, 13,10,f 7,el,00,00,00,Cd,09,0860 

113 DATA b9,cl,Oc,3a,7b,97,b9,cc,88,92,dl, [3841] 
13,fl,3d,20,c4,ed,43,77,97,c9,0b6e 

114 DATA 3a,79,97,4f,3e,08,80,47,3a,7c,97, [3757] 
d6,08,b8,d0,3a,7a,97,47,c9,3e,08f2 

115 DATA cd,32,6e,92,21,b3,92,22,6f,92,c9, [3048] 
21,6e,92,06,03,af,77,23,10,fc,08d0 

116 DATA c9,e5,06,02,cb,2e,cd,26,bc,10,f9, [3511] 
06,03,cd,26,bc,10,fb,06,03,2b,085e 

117 DATA cb,3e,23,cb,16,2b,cb,16,23,cd,26, [4296] 
bc,10,fl,el,c9,3a,65,92,fe,00,09c5 

118 DATA 28,03,af,18,02,3e,2f,32,65,92,c9, [3840] 
23,23,23,cd,63,95,d5,23,23,cd,0769 

119 DATA 63,95,cl,23,23,c9,fe,01,cO,7b,Cd, [3027] 
be,8d,fe,00,c8,cd,e7,92,ed,53,0c66 

120 DATA 6c,97,ed,43,77,97,cd,fa,95,42,c5, [3444] 

43,e5,af,77,23,10,fc,el,cd,26,0bf5 

121 DATA bc,cl,10,f1,cd,c3,95,3a,81,97,fe, [2433] 
00,c8,ed,4b,77,97,cd,fa,95,ed,0d4a 

122 DATA 5b,6c,97,3e,ff,cd,ce,93,cd,ce,93, [4293] 
01,Of, f0.cd.de, 93,3e,ff,cd,ce.OdOd 

123 DATA 93,cd,ce,93,c9,fe,02,cO,dd , 7e , 02, [3147] 

32,6b,97,d5,cd,be,8d,cd,e7,92,0d0e 

124 DATA 3a,81,97,fe,00,28,07,Oc,ld,ld,04, [4115] 
04,04,04,c5,05,cd,fa,95,06,04,0605 

125 DATA cd,26,bc,3e,ff,cd,ce,93,10,f6,3a, [3579] 
81,97,fe,00,28,13,cd,26,bc,cd,0b27 

126 DATA 26,bc,2b,lc,lc,3e,ff,cd,ce,93 , cd, [5143] 
ce,93,ld,ld,01,4f,c7,ed,43,7b,09da 

127 DATA 97,cl,7b,el,c5,e5,56,92,cb,3f,81, [3487] 
4f,ed,43,77,97,dl,cd,2d,92,cl,0c7c 

128 DATA 3a,81,97,fe,00,20,04,3e,08,18,02, [3732] 
3e,0c,80,47,c5,3a,6b,97,cd,f8,07ab 

129 DATA 93,cl,ed,43,77,97,78,32,7a,97,c9, [2191] 

f5,c5,65,43,77,23,10,fe.el,cd,Oc4c 

130 DATA 26,bc,cl,f1,15,c9,00,3e,02,ba,c8, [4022] 
15,d5,e5,70,16,00,19,2b,71,el,091f 
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Bücherkiste 


AUS DEM SYBEX-ANGEBOT 

Schneider CPC - 
Arbeiten mit dBASE ii 

Benutzern eines CPC vermittelt ein echter Ex¬ 
perte in diesem Buch alle Kenntnisse, die tür 
den erfolgreichen Einsatz von dBASE II wichtig 
sind, z.B.: Installation und Programmieren mit 
dBASE II, Editieren von Dateien mit Wordstar, 
Tips und Tricks. Jeder Lernschritt wird durch 
praxisgerechte Beispiele ergänzt, Und zwar so, 
daß dem Leser die Umsetzung dann wirklich 
problemlos möglich ist. Ein Buch, das in jeder 
Arbeitsphase weiterhiift. 

227 Seilen/mit Abb. Best.-Nr.: 440 DM 48,-* 

Schneider CPC - 
Arbeiten mit Turbo Pascal 

Der Bestseller "Das Turbo Pascal Buch“ wurde 
speziell für Besitzer eines CPC überarbeitet. So 
ermöglicht es den optimalen Einsatz der lei¬ 
stungsfähigen Programmiersprache - auf die 
CPC-Arbeits- und Systemumgebung zuge¬ 
schnitten - und durch zusätzliche Informatio¬ 
nen ergänzt. Zahlreiche Beispiele veranschau¬ 
lichen die vorgestellten Programmierkonzepte, 
Übungen zu jedem Kapitel machen dieses 
leicht verständlich geschriebene Buch für Ein¬ 
steiger zur unentbehrlichen Arbeitshilfe. 

296 Seilen/mit Abb. Best.-Nr.: 441 DM48,-’ 

Das Schneider CPC 
Grafikbuch 

Die vielfältigen Grafikmöglichkeiten Ihres 
Schneider CPC (464,664 und 6128). Von einer 
allgemeinen Einführung über ergänzende Gra¬ 
fikbefehle, Erstellung von Grafiken mit dem Joy¬ 
stick, Darstellung zwei- und dreidimensionaler 
Diagrammformen, künstlerische Grafiken, Zu¬ 
sammenspiel zwischen Grafik und Datenträger 
bis hin zur Hardcopy. 

328 Seiten/zahlr. Abb. Best.-Nr.: 442 DM48,-' 

Schneider CPC - 
Erfolg mit Multiplan 

Ein didaktisch hervorragendes Lehrbuch und 
Nachschlagewerk für CPC-Besitzer, die das Ta¬ 
bellenkalkulationsprogramm anwenden wollen. 
Das Buch ist die überarbeitete, auf den CPC zu¬ 
geschnittene Version des Bestsellers "Erfolg mit 
Multiplan“ und führt Schritt für Schritt in das 
Programm ein. An konkreten Beispielen wird er¬ 
klärt, welchen Nutzen CPC-Besitzer mit Multi¬ 
plan in der Praxis haben. 

200 Seilen/ca. 45 Abb. Best.-Nr: 445 DM48,-* 


AUS DEM DATA-BECKER-ANGEBOT 
Das Floppybuch zum CPC 

Was man alles aus der DDI-1 des CPC 464, 
CPC 664 und CPC 6128 holen kann, zeigt die¬ 
ses Buch auf eindrucksvolle Weise. Neben den 
nötigen Erklärungen und einem ausführlichen 
DOS-Listing gibt es zahlreiche Utilities: eine 
komfortable Dateiverwaltung, einen Disk- 
Manager. Selbst CP/M-Grundlagen und die re¬ 
lative Dateiverwaltung werden erklärt. So findet 
wirklich jeder CPC-Besitzer in diesem Buch ei¬ 
nen wertvollen Ratgeber. 

422Seiten Best.-Nr. 412 DM49,-* 


Das CP/M-Trainingsbueh 
zum CPC 

Beherrschen Sie CP/M. Dieses Buch hilft Ihnen 
dabei. Von den ersten Schritten bis zum perfek¬ 
ten Umgang. Dabei werden natürlich die Versio¬ 
nen 2.2 und 38 für Schneider CPC 464,664 und 
6128 berücksichtigt. Dieses CP/M- 
Trainingsbuch bietet ein wenig mehr als ande¬ 
re: zum Beispiel Hilfsprogramme, mit denen Sie 
In der Lage sind, auch fremde Diskettenforma¬ 
te zu lesen oder Submit-Dateien zu erstellen. 
260Seiten Best.-Nr. 413 DM49,-* 


Das Maschinensprache¬ 
buch zum CPC 

Wer seinen CPC wirklich beherrschen will, der 
muß sich mit dem Thema Maschinensprache 
beschäftigen. Von den Grundlagen bis zur Pro¬ 
grammierung des Z80-Prozessors. Das Maschi¬ 
nensprachebuch zum CPC hilf! Ihnen von An¬ 
fang an. Mil einer genauen Beschreibung aller 
Befehle und ausführlichen Beispielen, mit Hin¬ 
weisen zur Benutzung der Systemroutinen und 
einem Assembler/Disassembler sowie einem 
Monitor zum Abtippen, So macht der Einstieg 
Spaß, 

330 Seilen Best.-Nr. 415 DM39.-' 

Das große Grafikbuch 
zum CPC 

Dieses Buch isi für alle, die bisher dachten, 
spektakuläre Grafik auf dem CPC sei nicht mög¬ 
lich. Zwei Top-Autoren beweisen das Gegenteil: 
Mit CPC-Chart - dem Diagrammgenerator, mit 
Destroyed - dem Arcade-Game, mit CPCs World 
- dem 3-D-Animationsprogramm, mit Vektorgra¬ 
fik, mit Sprites... Ja. Sie haben richtig gelesen: 
Wir reden von den Grafikmöglichkeiten Ihres 
CPC - Inklusive 6128 und Joyce. 

589 Seiten Best.-Nr. 416 DM49,-' 


Programmwissen pur 
im Westentaschenformat 

Führer zum CP/M Best.-Nr. 452 dm 19 , 30 * 

Das große Buch der Public-Domain-Software 

Freie CP/M-Programme für 
Commodore 128, 
Schneider CPC und Joyce 

Public-Domain-Software setzt sich inzwischen 
auch in Europa durch. Diese Programme tragen 
kein Urheberrecht und dürfen deshalb mit Hob¬ 
byfreunden getauscht werden. Doch gerade die 
großen Sammlungen für das Betriebsystem 
CP/M enthalten neben wahren „Juwelen" auch 
viel unbrauchbares Material. 

Der bekannte Fachjournalist Martin Kotulla hat 
es sich zur Aufgabe gemacht, die Idee der 
Public-Domain-Software auch in Deutschland 
populär zu machen. Aus den großen amerikani¬ 
schen Sammlungen hal er die interessantesten 
Programme herausgesucht, übersetzt, an 
Commodore- und Schneider-Computer ange¬ 
paßt und detailliert in diesem Buch dokumen¬ 
tiert. 

Mit einem Wertcoupon aus dem Buch erhalten 
Sie die Programme beim Autor zu einem beson¬ 
ders günstigen Preis. 

229 Seiten Best.-Nr. 410 DM 34,80* 


Das BASIC-Buch zum 6128 

BASIC macht Spaß. Man muß es nur richtig er¬ 
klärt bekommen. Und genau das tut das große 
BASIC-Buch zum CPC 6128. In diesem Buch 
steckt mehr als Einsteigerwissen: Variablen, 
Zahlensysteme, Bits und Bytes, Tokens, String¬ 
bearbeitung, Sortierung, Laufschrift, selbstde¬ 
finierte Zeichen, Windows, Fehlerbehandlung, 
Kopiersohutz, Grafiken, Soundprogrammie¬ 
rung, relative Dateien .... Das verstehen wir un¬ 
ter Vielfalt. 

276 Seiten Best.-Nr. 461 DM3«,-* 

CPC Hardware¬ 
erweiterungen 

Speziell für den Hobbyelektroniker, der mehr 
aus seinem CPC machen möchtet Von nützli¬ 
chen Tips zur Platinenherstellung über Adreß- 
decodierung, Adapterkarten und Interfaces bis 
zur EPROM-Programmierboard und 
-Programmiernetzteil oder Motorsteuerung tür 
Gleich- und Schrittschaltmotoren werden mach¬ 
bare Erweiterungen ausführlich und praxisnah 
beschrieben, 

445 Seiten Best,-Nr: 464 DM49,-* 


• Unabhängig von der Anzahl der bestellten Bücher berechnen wir / / / 
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Programm/Anwendungen 


131 DATA cd,26,bc,dl,18,ec,fe,Ol,20,le,7b, [2785] 
cd 1 be I 8d,fe,00,c8,cd,e7,92 1 3a,0b9a 

132 DATA 81,97,fe,00,28,lb,04,04,04,Oc,15, [3299] 

15,15,15,15,ld,ld,18,0e,fe,04,043c 

133 DATA 20,3a,53,dd,5e,02,dd,46,04,dd,4e, [4509] 
06,ad,43,77,97,ed,43,79,97,79,0939 

134 DATA 83,32,7b,97,f5,78,82,32,7c,97,f5, [2862] 
Cd,fl,94,63,6a,25,fl,47,fl,4f,Obac 

135 DATA cd,f1,94,7b,5a,57,15,15,ld,ld.Cd, [3013] 
66,bb,ad,4b,77,97,c9,21,00,00,0900 

136 DATA 11 , 18,4f,cd,66,bb,ed,4b,77,97,c9, [3317] 

fe,03,c0,cd,78,bb,e5,cd,69,bb,0c0c 

137 DATA e5,d5,21,00,00,11,18,4f,cd,66,bb, [4869] 

dd,5e,00,dd,56,01,dd,6e,02,dd,08da 

138 DATA 66,03,4a,la,47,e5,cd,fl,94,7a,cd, [3910] 
72,bb,7b,fe,01,28,26,cd,6f,bb,0a82 

139 DATA cd,60,bb,ld,fe,21,38,f0,fe,7f,30, [2736] 
ec,lc,7b,fe,01,2B,ll,cd,6f,bb,0aab 

140 DATA cd,60,bb,ld,fe,21,38,04,fe,7f,38, [4165] 
ee,lc,lc,el,7b,3d,77,4b,dd,5e,09cf 

141 DATA 04,dd,56,05,la,47,af,bB,28,le,13, [4314] 

Ia,6f,13,la,67,c5,e5,3e,20,77,06f9 

142 DATA 23,10,fc,el,cl,79,e5,cd,6f,bb,cd, [3629] 
60,bb,el,77,23,0c,10,f2,dl,el,0c49 

143 DATA cd,66,bb,el,cd,75,bb,c9,59,lc,50, [3385] 
cb,3a,cb,3a,cb,3a,14,c9,21,00,Oa67 

144 DATA cO,06,04,c5,3e,aa,cd,10,95,3e,55, [3548] 
Cd,10,95,cl,10,f2,c9,06,10,c5,0955 

145 DATA 06,80,77,23,10,fc.cl,10,f6,c9,fe, [3758] 
05,c0,dd,7e,08,cd,be,8d,fe,00,0af8 

146 DATA c8,cd,e7,92,af,dd,66,07,dd,6e,06, [4896] 

71,23,77,dd,66,05,dd,6e,04,70,0a6a 

147 DATA 23,77,dd,66,03,dd,6e,02,73,23,77, [2997] 
dd,66,01,dd,6e,00,72,23,77,c9,089e 

148 DATA C3,84,95,c3,96,95,7b,Cd,52,95,23, [3069] 

7a,cd,52,95,2b,c9,cd,55,95,5f,0b54 

149 DATA 23,cd,55,95,57,2b,c9,e5,d5,ed,5b, [3357] 
61,97,19,dl,77,el,c9,e5,d5,ed,0cdl 

150 DATA 5b,61,97,19,dl,7e,el,c9,f5,7c,07, [4586] 
07,e6,03,cd,a6,95,fl,e5,cb,f4,0c6a 

151 DATA cb,bc,77,el,c9,7c,07,07,e6,03,cd, [3524] 
a6,95,e5,cb,f4,cb,bc,7e,el,c9,0d76 

152 DATA e5,21,60,97,be,el,c8,32,60,97,c5, [3261] 
4f,e6,03,47,79,e6,lc,87,b0,f6,0b79 

153 DATA c4,01,00,7f,ed,79,cl,c9,01,00,7f, [4221] 
3e,c0,ed,79 1 32,60,97,c9,la,cd,09fl 

154 DATA 52,95,13,23,Ob,af,b9,20,f5,b8,20, [4136] 
f2,c9,cd,55,95,12,23,13,0b,af,08fl 

155 DATA b9,20,f5,b8,20,f2,c9,21,00,00,c5, [2694] 
d5,16,00,59,19,10,fd,dl,cl,c9,0a0c 

156 DATA 2a,7d,97,ed,43,7d,97,7c,b8,20,Ob, [3606] 
2c,7d,b9,20,06,2a,7f,9 7,2 3,18,07e4 

157 DATA 13,cd,0b,bc,84,67,c5,06,00,09,cl, [3155] 
af,b8,28,05,cd,26,bc,10,fb,22,0897 

158 DATA 7f,97,c9,3a,65,92,f5,3e,2f,32,65, [3845] 

92,d5,ll,26,97,cd,2d,92,dl,cd,0a68 

159 DATA 2d,92,fl,32,65,92,c9,09,2d,27,2c, [3429] 
25,21,28,64,07,2c,36,2d,37,30,05fa 

160 DATA 21,2a,55,53,96,20,57,20,49,20,4e, [4601] 
20,44,20,4f,20,57,20,20,2d,20,04ae 

161 DATA 20,4d,20,41,20,4e,20,41,20,47,20, [3523] 
45,20,52,20,20,20,56,20,31,2e,0410 

162 DATA 30,20,01,01,43,6f,70,79,72,69,67, [3622] 
68,74,20,20,28,43,29,20,31,39,0569 

163 DATA 38,37,20,20,20,62,79,20,20,4d,69, [3464] 

63,68,61,65,6c,20,43,68,72,69,0643 

164 DATA 73,74,65,6e,01,01,aa,96,23,ad,96, [3266] 
4d,65,6d,6f,72,79,20,45,78,70,0828 

165 DATA 61,6e,73,69,6f,6e,3a,20,36,35,35, [3930] 
33,35,20,42,79,74,65,73,20,66,0697 

166 DATA 72,65,65,20,21,d3,96,53,74,61,6e , [3821] 
64,61,72,64,20,4d,65,6d,6f,72,0837 

167 DATA 79,3a,20,48,49,4d,45,4d,20,61,74, [3733] 
20,26,34,30,30,30,20,30,f6,96,061e 

168 DATA 47,72,61,70,68,69,63,20,4d,65,6d, [3581] 
6f,72,79,20,66,72,65,65,2e,01,0748 

169 DATA 01,01,70,72,65,73,73,20,61,6e,79, [3158] 

20,6b,65,79,20,74,6f,20,63,6f,06f5 

170 DATA 6e,74,69,6e,75,65,Oa,29,97,01,2a, [3069] 

45,52,52,4f,52,2a,3a,20,27,36,05f3 

171 DATA 97,53,70,65,69,63,68,65,72,75,65, [3899] 

62,65,72,6c,61,75,66,2c,20,4f,0820 

172 DATA 50,45,4e,20,6e,69,63,68,74,20,6d, [4191] 
6f,65,67,6c,69,63,68,2e,ff,ff,08ad 

173 DATA 00,CO,00,80,ff,ff,00,01,00,01,00, [3369] 
00,00,00,00,00,00,00,00,00,00,0340 


Listing WINDOWS 


174 DATA 00,00,00,00,00,00,00,50,c8,00,00, [2774] 
00 1 c0,00,00,9f,97,00,00,0f,07,0324 

175 DATA 03,01,00,81,cO,eO,00,60,70,78,7c, [3629] 
18,0c,06,00,00,00,00,00,00,00,0413 


10 REM "BEISPIEL.BAS" Beisplelprogramm zum 
Window-Manager von Michael Christen 
20 MODE 2:INK 0,13:BORDER 13:INK 1,0:KEY D 
EF 22,0,ASC("\"),ASC("'"),150:KEY 150,CHR$ 
(13)+"run"+CHR$(34)+"beispiel"+CHR$(13) 

30 IF HIMEM>35 32 7 THEN MEMORY &89FF:L0AD " 
wlndows.bin":POKE &A67A,144:CALL &8A00 
40 !CLEAR:!ART,1 
50 !OPEN,20,10,0,58,195 

60 xX=12:yX=20:!HEADLINE,20," CATALOG “:!R 
ANGE,20:CAT 

70 !RANGE:a$=SPACE$(12) 

80 !CURSOR,@xX,@yX:!GETTEXT,@a$,@xX,SyX 
90 WHILE MID$(a$,9, 1)0" . " AND xX>l:xX=xX- 
1: [GETTEXT, @a$ , @xX, @yX : WEND 
100 WHILE MID$(a$,9,1)0“. " AND xX<80-12 A 
ND xX>0:xX=xX+l:!GETTEXT,@a$,@xX,@yX:WEND 
110 yyX=yX+7:IF yX>100 THEN yyX=yX-6*8-26 
120 IF xX=0 THEN rX=1:[MENUE,@rX,x*,yyX,20 
," What's up ? ","Log-In","Graf 1K-Editor" , 
"Baslc",“CP/M“,"Irrtum":IF rX=l THEN [CLOS 
EMENUE:GOTO 50 ELSE IF rX=2 THEN 240 ELSE 
IF rX=3 THEN GOSUB 230:END ELSE IF rX=4 TH 
EN GOSUB 230:[CPM ELSE [CLOSEMENUE:GOTO 80 
130 rX=l:[MENUE,§rX,xX,yyX,20," "+a$+" "," 
Starten","Laden","Loeschen","Umbenennen" , " 
Log-In","Irrtum" 

140 IF rX=l THEN GOSUB 230:RUN a$ 

150 IF rX=2 THEN GOSUB 230:LOAD a$:GOTO 24 
0 

160 IF rX=3 THEN [ERA,a$:[CLOSEMENUE:[CLS, 
20:GOTO 60 

170 IF rX=4 THEN GOSUB 200:[REN,n$,a$:[CLO 

SE.21:[CLOSEMENUE:GOTO 50 

180 IF rX=5 THEN [CLOSEMENUE:[CLS,20:GOTO 

60 

190 IF rX=6 THEN [CLOSEMENUE:GOTO 80 

200 [OPEN,21,0,150,78,40:[HEADLINE,21," Ei 

ngabe " 

210 PRINT:INPUT " Namen eingeben:",n$:IF n 
$="“ THEN |CLOSE,21:GOTO 200 
215 [CLOSE,21:RETURN 

230 [CLOSE:!ART,0:[OPEN,7,0,0,20,1:[PRINT, 
7,"Neustart: CTRL \":[RANGE:PRINT:RETURN 
240 'Graphik-Manager 

250 [CLOSE:[ART,0:[OPEN,1,25,75,29,24:[CLS 
,1:[PRINT,1," Sie Befinden sich nun im"+C 
HR$(1)+" GRAFIK-MANAGE R"+CHR$ 
(1)+" Bitte Taste druecken":WHILE INKEY 
$="":WEND:[CLOSE,1 
260 [CURSOR,@xX,@yX:xxX=xX:yyX=yX 
270 [ART,1:[MENUE,@rX,5,50,18,” Funktionen 
"."definieren"."loeschen"."kopieren","tau 
sehen“,"abspei ehern","einladen","Screen ab 
speichern",“Screen e1nladen","Hauptmenue": 

[ART,0 

290 IF rX=l THEN [ART,1:[OPEN,13,25,100,30 
,9:!PRINT,13,"Zweiten Eckpunkt bestimmen": 
FOR n=l TO B00:NEXT n:[CLOSE,13:[CLOSEMENU 
E : [ CURSOR,@xxX,@yyX: [ART,0: !OPEN,77,MIN(xX 
,x xX),MIN{yX,yyX),ABS(xX-xxX+1) ,ABS(yX-yyX 
+1):[CLS,77:[SHOW,77:GOTO 260 
300 IF rX=2 THEN [CLOSEMENUE:[CLS,77:GOTO 
260 

310 IF rX=3 THEN [CLOSEMENUE:[SHOW,77,xX,y 
X:GOTO 260 

320 IF r%=4 THEN [CLOSEMENUE:xxxX=xxX:yyyX 
=yyX:[GETLOC,77,@xxX,@yyX,@xxxX,@yyyX:[CLO 
SE,77:[OPEN,88,xxX,yyX,xxxX,yyyX:[OPEN,77, 
xX,yX,xxxX,yyyX:[NEWPOS,88,xX,yX:[CLOSE,88 
:GOTO 260 

330 IF rX=5 THEN [ART,l:GOSUB 200:|ART,0:[ 

SAVE,77,n$:[CLOSEMENUE:GOTO 260 

340 IF rX=6 THEN [ART,l:GOSUB 200:|ART,0:| 

LOAD,77,n$:[CLOSEMENUE:GOTO 260 

350 IF rX= 7 THEN [ART,1:GOSUB 200:[ART,0:[ 

CLOSEMENUE:SAVE n$,b,&C000,&4000:GOTO 260 

360 IF rX=8 THEN [ART,1:G0SUB 200:|ART,0:[ 

CLOSEMENUE:LOAD n$,&C000:GOTO 260 

400 |CLOSEMENUE:GOTO 40 


[6029 ] 
[7054] 


[6159 ] 

[801 ] 

[ 1020 ] 
[4334] 

[1134] 

[ 1815] 
[3971] 

[5956] 

[2645] 

[ 14522 ] 


[5898] 


[ 1855 ] 
[2313] 

[4288] 

[3135] 

[2422] 

[2410] 

[3706] 

[3654] 

[1548] 
[5134] 

[ 666 ] 

[ 13448] 


[ 2021 ] 
[14771] 


[14142 ] 


[2818] 

[3975] 

[ 10268] 


[2113] 
[4362] 
[4565] 
[5208] 
[1175] 
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Programm/Anwendungen 



Durch den Datendschungel 

SOLVE - 

entwirren Sie den Maschinencode 

Nehmen wir an, Sie haben ungefähr folgendes Problem: 

Die Geheimnisse der Assemblersprache haben Sie erfolgreich ergründet. 

Pop und Push, Jump und Inc sind Ihnen keine böhmischen Dörfer mehr. 
Auch einen Disassembler haben Sie sich besorgt. Und Sie brennen darauf, 
endlich das eingebaute BASIC Ihres Rechners anzuschauen. So gehen Sie 
auf die Reise: Disassembler, &C000, oberes ROM, fertig ausgedruckt. Nun, 
was “macht“ das Programm? Sie stoßen auf deii ersten CALL-Befehl. Also 
bei der Zieladresse nachschauen, was dort passiert. Hoppla wieder ein 
CALL! Jetzt wird’s schwierig! Nachdem Sie dem fünften CALL gefolgt sind 
und herausgefunden haben, wozu die Routine dort dient, kommen wir jetzt 
endlich zum Thema. 


Am Ende der Routine steht einfach RET, 
wenn Sie jetzt nur noch wüßten, wohin! 
Und wenn Sie es noch wissen, kommt 
kurz darauf in der aufrufenden Routine 
wieder ein RET, und Sie wissen sich vor 
lauter RETs nicht mehr zu retten! Man 
sollte ein Programm haben... 

Ein Licht im Dunkeln! 

..., das schön auf Papier ausdruckt, wel¬ 
che Zieladressen beispielsweise in ihrem 
BASIC-Interpreter von woher angesprun¬ 
gen werden. Damit sind Sie bei SOLVE 
gerade richtig! SOLVE untersucht MC- 
Programme, die im RAM, im ROM, in 
einem Expansion-ROM oder auf Disket¬ 
te stehen können. Es filtert die Sprünge 
mit den jeweils zugehörigen Zieladressen 
heraus und gibt sie anschließend nach 
Zieladressen sortiert auf dem Drucker 
aus. Somit können Sie auf einen Blick 


feststellen, von woher eine bestimmte 
Routine angesprungen wird! 

Wie SOLVE vorgeht! 

Beim Aufruf von SOLVE werden Sie 
nach dem zu untersuchenden Bereich ge¬ 


fragt (RAM, ROM, Expansion-ROM 
oder Disk-Datei). Im Falle des Expan¬ 
sion-ROM geben Sie noch die gewünsch¬ 
te ROM-Nummer ein, im Falle einer 
Disk-Datei (nach Anzeige des CATalogs) 
den Namen der Datei. Nun werden die zu 
registrierenden Sprünge näher bestimmt. 
Sie haben die Möglichkeit, nur Sprünge 
in einen bestimmten Speicherbereich 
ausgeben zu lassen (z.B. nur die Aufru¬ 
fe der Systemvektoren &B900-&BDF4, 
oder nur die Sprünge innerhalb des un¬ 
tersuchten Programms selber...), auch 
können Sie wählen, ob die kurzen Rela¬ 
tivsprünge (+/-128 Bytes) überhaupt be¬ 
rücksichtigt werden sollen oder nicht. 
Bei Bearbeitung einer Datei von Diskette 
geht es nach diesen Abfragen bereits los: 
die Datei wird ins RAM ab &4000 gela¬ 
den und untersucht. In den anderen Fäl¬ 
len können Sie noch die Start- und End¬ 
adresse des zu untersuchenden Bereichs 
bestimmen (z.B. das BASIC-ROM von 
&C000&D000), woraufhin der gewähl¬ 
te Speicherbereich ins RAM nach &4000 
&7FFF kopiert wird. In jedem Fall steht 
also der Maschinencode während der 
Untersuchung im RAM ab &4000. Er 
darf &7FFF, also eine Länge von 16 
kByte, nicht überschreiten. 

Während der Untersuchung zeigt SOLVE 
die aktuelle Position im MC-Code in 
Schritten von &100 an (also z.B. &C000, 
&C100...), außerdem zum Schluß die er¬ 
mittelte Anzahl der Sprungziele. Dann 
wird die Liste der Sprungziele sortiert 
und schließlich auf den Drucker ausge¬ 
geben. 

Wie Sie Vorgehen! 

Zunächst tippen Sie den Datalader (Li- 
sting 2) ab und speichern ihn zur Sicher¬ 
heit mit SAVE “SOLVE. LIN “. Wenn Sie 
ihn mit RUN starten und in den einge¬ 
tippten Zeilen keine Fehler mehr gefun¬ 
den werden, erzeugt der Lader die ferti¬ 
ge MC-Datei SOLVE .OBJ. Dann tippen 
Sie Listing 1 ab (was wohl keine Mühe 
bereiten dürfte) und speichern es mit 
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SAVE“SOLVE“ ab. Und nun kann’s los¬ 
gehen: Untersuchen Sie beliebige Ma¬ 
schinenprogramme einfach durch den 
Aufruf RUN“SOLVE“! 

Wie der Programmierer von SOLVE 
vorging! 

Im Unterschied zu einem im März ’88 in 
der PC AMSTRAD International veröf¬ 
fentlichten Beitrag untersucht SOLVE 
nicht alle Bytes des Maschinencodes 
nacheinander darauf, ob sie einen 
Sprungbefehl darstellen. Bei dieser Vor¬ 
gehensweise könnte zum Beispiel folgen¬ 
der Fehler auftreten: 

Angenommen, das untersuchte Pro¬ 
gramm enthält die Assembler-Befehls¬ 
folge 

LD B,&CD 
LD C,&00 

also die Bytes &06,&CD,&0E,&00, dann 
würde &CD als Call-Befehl an die Adres¬ 
se &000E interpretiert, obwohl das Byte 
&CD mit einem Call überhaupt nichts zu 
tun hat! SOLVE umgeht diesen Fehler 
dadurch, daß in unserem Beispiel beim 
Lesen des Codes &06 der Lesezeiger so¬ 


fort auf das übernächste Byte &0E gesetzt 
wird, denn auf &06 folgt immer ein Da¬ 
tenbyte. 

Eine Ausnahme, bei der solche Fehler 
kaum zu vermeiden sind, bilden längere 
Datenfelder wie Texte oder Listen mit 
Sprungadressen. In diesem Fall sind die 
von SOLVE ausgegebenen “Pseudo“ 
Sprungziele anhand eines Disassembler- 
Listings auszuscheiden (aus diesem Li- 
sting ist oft erkennbar, daß es sich bei be¬ 
stimmten Codes um Daten handeln 
muß). 

Trifft SOLVE bei der Untersuchung auf 
einen Sprung, der in den gewählten Ziel¬ 
bereich geht, legt es die Zieladresse (2 
Byte) in einer Liste (“Hauptliste“) im 
Block 4 der zweiten RAM-Bank ab. Un¬ 
mittelbar danach legt es einen Zeiger (2 
Byte) auf eine zweite (“Aufruf“) Liste, 
die von &44 im RAM bis &7FFF in 
Block 5 läuft. In ihr werden alle Sprün¬ 
ge gespeichert, die an diese Zieladresse 
gehen. Bei der späteren Ausgabe auf den 
Drucker wird jeweils eine Zieladresse 
aus der Hauptliste ausgedruckt, und 
dann, dem dahinter plazierten Zeiger in 


die Aufrufliste folgend, die zugehörigen 
Aufrufe. 

Zuvor ist nur noch die Hauptliste zu sor¬ 
tieren. Dazu verwendet SOLVE das 
überaus schnelle Quicksort. Um einen 
Überlauf des Stacks zu vermeiden, wur¬ 
de es iterativ realisiert, mit sofortiger 
Weiterbearbeitung des kleineren Bereichs 
nach einer Partition. Die Anzahl der sor¬ 
tierten Zieladressen wird hierbei eben¬ 
falls angezeigt. 

Noch etwas vergessen? 

Bei den Abfragen bietet SOLVE jeweils 
eine voreingestellte Eingabe, die durch 
bloßes Drücken von RETURN gewählt 
wird. SOLVE kann zu jedem Zeitpunkt 
mit der ESC-Taste abgebrochen werden. 
Es läuft auf dem CPC 6128 unter Verwen¬ 
dung der zweiten Bank (64 kByte), au¬ 
ßerdem auf dem CPC 464 und 664 mit 
dk’tronics Speichererweiterung (die bei¬ 
den Rechner verfügen nicht über den 
Sprungvektor &BD5B zur Bankumschal¬ 
tung, deshalb verwendet SOLVE einen 
direkten OUT-Befehl). Vortex muß dies¬ 
mal leider passen! 

(Helmut Steeb/jb) 



für 6128 


464/664 mit dk'tronics-Speichererweiterung 


10 MEMORY &7FFF [150] 

20 LOAD"so!ve.obj":CALL &8000:CALL 0 [2729] 


10 1 SOLVE.LIN — erzeugt SOLVE.OBJ [1585] 

12 ' Helmut Steeb 2.12.1988 [1357] 

15 1 Hardware-Voraussetzung SOLVE.OBJ: [808] 

16 1 - 6128 (verwendet 2. Bank] [1603] 

17 1 - 464/664 mit dk'tronics Speichererwe [3045] 
ite rung 

18 * - no Vortex [205] 

20 DEFINT a-k:DEFSTR p-z:M0DE 2:MEMORY &7F [2650] 
FF 

30 PRINT:PRINT"DATAs lesen..." [1843] 

40 FOR O=&8000 TO &8D42 [1692] 

50 READ s:b=VAL("&"+s) [699] 

60 m=m+b:POKE o,b [113] 

70 NEXT [350] 

80 IF m< >373143 THEN PRINT"Feh1er in Datas [2139] 

“ : END 

90 PRINT"Ok! SOLVE.OBJ speichern..." [2406] 

100 SAVE "solve.OBJ",b,&8000,&D43 [1857] 

110 END [110] 


120 DATA CD,24,80,CD.DF,80,04,80, 83,CD,F6 [1960] 
,83,CD,ED,85,CD 

130 DATA F6,86,2A,71,89,F9,21,40, 00,11,41 [2691] 
,00,36,00,01,33 

140 DATA 01,ED,B0,C9,3E,C9,32,0O, 80,21,02 [1413] 
,00,39,22,71,89 

150 DATA 3E,02,CD,OE,BC,3E,20,CD, 5A,BB,3E [3169] 
,96,CD,5A,BB,3E 

160 DATA 9A,06,4C,CD,4F,88,3E,9C, CD,5A,BB [2526] 
,21,02,02,CD,75 

170 DATA BB,3E,95,CD,5A,BB,21,9C, 89,CD,D9 [2323] 
,88,21,02,4F,CD 

180 DATA 75,BB,3E,95,CD,5A,BB,21, 03,02,CD [3145] 
, 75,BB,3E,93,CD 

190 DATA 5A,BB,3E,9A,06,4C,CD,4F, 88,3E,99 [2829] 

,CD,5A,BB,21,EF 

200 DATA 8A,CD,D9,88,CD,BA,BB,21, 8C,01,11 [3486] 
,70,02,01,2A,08 

210 DATA CD,9C,80,21,82,01,11,60, 02,01,16 [3007] 
, 10,D5,C5,58,16 

220 DATA 00,CD,CO,BB,El,Dl,26,00, 22,92,89 [2259] 
,ED,53,94,89,21 

Listing SOLVE 


230 

DATA 

00,00, 

CD , 

F9 , 

BB, 

1 1 , 

O 

o 

o 

o 

< 

CM 

92 , 

89 

[2432] 

, CD, 

D7,80 

,CD,F9 











240 

DATA 

03 

03 

N> 

> 

94 , 

89 , 

CD, 

D7 , 

80 , 

EB , 

21 , 

00, 

00 

[1319] 

.CD, 

F9 , BB 

,11,00 











250 

DATA 

00,2A, 

92 , 

89 , 

C3 , 

F9 , 

BB, 

7C, 

2F , 

67 , 

7D 

[2419] 

, 2F , 

6F , 23 

, C9,CD 











260 

DATA 

97,81, 

F5 , 

o 

o 

72, 

81 , 

CD, 

3D , 

81 , 

CD, 

3D 

[2208] 

,81, 

Fl , D8 

,CD,78 











270 

DATA 

BB,22, 

99 , 

89 , 

2A, 

99 , 

89 , 

CD, 

75 , 

BB, 

2 A 

[3348] 

. 75 , 

89 , E5 

,2A,77 











280 

DATA 

89,E5 , 

CD, 

3D , 

81 , 

E5 , 

7C , 

D6 , 

40, 

57, 

5 D 

[3884] 

, ED, 

53,90 

,89,11 











290 

DATA 

C4,8A, 

CD, 

03, 

89 , 

CD, 

3D , 

81 , 

E 5 , 

11, 

EA 

[2463] 

, 8 A , 

CD,03 

, 89,El 











300 

DATA 

Dl,CD, 

24, 

83, 

CB, 

F 4 , 

22 , 

73 , 

89 , 

El, 

22 

[3212] 

.77, 

89 , El 

,22,75 











310 

DATA 

89,DO, 

CD, 

28, 

88 , 

21 , 

08, 

8 A , 

CD, 

79 , 

88 

[2724] 

, 18, 

B7,2A 

,77,89 











320 

DATA 

CD,D9, 

88, 

, CD, 

4B , 

88 , 

E5 , 

3E , 

04 , 

CD, 

39 

[ 1943] 

. 83, 

CD, 92 

,B8,EB 











330 

DATA 

El,38, 

EA, 

• CD, 

, 2D, 

83, 

38 , 

E 5 , 

22 , 

77 , 

89 

[2860] 

, 2A , 

75,89 

,28,OD 











340 

DATA 

73,23, 

72 , 

, 23, 

, 22, 

i 75, 

, 89, 

D5 , 

CD, 

28 , 

88 

[2257] 

, El , 

C9,5E 

,23,56 











350 

DATA 

18,Fl, 

21 , 

, FA, 

, 8C , 

, CD , 

, D9 , 

88, 

CD, 

4B , 

88 

[4062] 

, 3E , 

01 ,CD 

,39,83 











360 

DATA 

CD,2D, 

83 , 

, 38, 

, ED, 

, 3 E , 

, 30, 

ro 

CD 

06 , 

, 23 , 

, 7E 

[2796] 

. FE , 

32,30 

,E3,E6 











370 

DATA 

01,32, 

9 B , 

, 89 , 

, C3 , 

, 28 , 

, 88 , 

21, 

08 , 

, 8 B , 

, CD 

[2431] 

,09 , 

,88,21 

,B7,8B 











380 

DATA 

CD,D9, 

88 

, CD, 

, 4B , 

, 88 , 

, 3E , 

01, 

CD, 

, 39 , 

, 83 

[2626] 

.CD, 

, 2D,83 

, 38,ED 











390 

DATA 

3E,34, 

28 

,02. 

,23, 

, 7 E , 

, FE , 

34 , 

CA, 

, 59 , 

, 82 

[2617] 

,30, 

i EO,FE 

,30,38 











400 

DATA 

DC,F5, 

CD 

, 28 

, 88 , 

, CD 

, 28 , 

88 , 

Fl : 

, 28, 

, 14 

[1958] 

. FE, 

,32,28 

,7C,30 











410 

DATA 

49,3E, 

FD 

,01 

, 51 

, 8B 

, DD, 

i 2E , 

12 , 

, 26, 

, CO 

[2951 ] 

, 16 , 

,FF,18 

,0C,26 











420 

DATA 

00,16, 

3 F 

, 3E 

, FE 

, 01 

, 2F , 

8B , 

DD, 

, 2E, 

, 1B 

[2447] 

, 32 , 

,BC,83 

o 

o 

Ul 

CM 











430 

DATA 

IE,FF, 

22 

, 6D 

05 

IO 

, D5 

, E5 , 

,11, 

A5 , 

, BC, 

, 60 

[2353] 

. 69 , 

,DD,4D 

,06,00 











440 

DATA 

ED,BO, 

FE, 

, FC. 

, oc, 

, 30, 

, 82 , 

97 , 

12 , 

, El , 

, 11 

[ 2626] 

,C4, 

, 8A,CD 

,03,89 











450 

DATA 

El,22, 

6 F 

, 89 

,11, 

, EA . 

, 8A , 

C3 , 

03, 

, 89 , 

,21 

[2019 ] 

, E5 , 

, 8B.CD 

,D9,88 











460 

DATA 

CD,4B, 

88 

, 3E , 

, 02 , 

, CD , 

i 39 , 

83 , 

CD, 

,20, 

, 83 

[3030] 

, 38 , 

, ED,3E 

,07,28 











470 

DATA 

A8 , CD, 

92 

, 88 

, 7 D 

,01 

, 95 , 

, 8 B , 

DD 

, 2E 

, OE 

[3064] 


,18,9C,F5,3E,26 
Listing SOLVE 


50 CPC 


Sonderheft 8’89/90 











—Programm/Anwendungen 


480 DATA 12,13,Fl,CD,10,89,3E,20, 12,13,C9 [2701] 

, 3E,FF,26,AO,16 


920 DATA 28,D7,78,E6,FE,FE,34,28, D1.C6.40 [1515] 

,E6,8F,FE,8 6,28 

490 DATA A5,01,73,8B,DD,2E,OC,18, 92,CD,28 [2212] 

,88,CD,El,82,78 


930 DATA C9,79,E6,F8,FE,70,28,C2, 18,C1,E6 [2452] 
,78,FE,40,28,B9 

500 DATA B7,CA,12,80,CD,AA,82,30, F3,E5,D5 [3036] 

,CB,F4,22,73,89 


940 DATA 18,B9,D5,CD,B7,85,ED,5B, 69,89,CD [2978] 

,5D,88,38,58,ED 

510 DATA 7A,D6,40,57,ED,53,90,89, 21,7B,89 [2999] 

,4E,06,00,23,11 


950 DATA 5B,6B,89,CD,5D,88,38,02, 20.4D.E5 [2657] 

,ED,4B,79,89,5D 

520 DATA A5,8C,ED,BO,3E,20,12,13, 97,12,21 [2149] 

,OB,8C,CD,D9,88 


960 DATA 21 , FF,3F,CD,6D,88,7B,ED, Bl,E2,89 [ 2575 ] 

,85,7D,E6,03,3D 

530 DATA El , 22,6D,89,CD,F9,88,21, 52.8A.CD [2596] 

,D9,88,El,19,22 


970 DATA 20,F4,D1,7A,BE,D5,20,EE, D1.23.5E [3048] 

,23,56,EB,OE,02 

540 DATA 6F,89,CD,F9,88,CD,28,88, 37,C9,CD [2129] 
,57,BB.CD,77,BC 


980 DATA CD,71,88,7E,23,B6,2B,28, 12,0D,23 [3237] 
,23,20,F5,7E,23 

550 DATA F5,CD,54,BB,Fl,30,ID,D5, 11,18,00 [1997] 

,19,Dl,CD,65,88 


990 DATA B6,2B.C4,63,88,20,EC,CD, 9E,85,EB [1573] 

,Dl,73,23,72,97 

560 DATA 2B,3E,40,BC,38,13,D5,E5, 21,00,40 [2348] 

,CD,83,BC,CD,7A 


1000 DATA 23,77,23,77,C3,6A,88,Dl, C9,01,7 [2473] 
3,23,72,23,CD,9E 

570 DATA BC,El,Dl,D8,21,32,8A,18, 03,21,43 [3031] 

,SA,CD,79,88,B7 


1010 DATA 85,23,CB,B4,23,22,79,89, EB,CD,7 [2874] 
1,88,18,DD,ED,5B 

580 DATA C9,CD,78,BB,E5,CD,6D,88, 21,00,CO [3306] 
,11,00,40,42,48 


1020 DATA 8E,89,7A,FE,80,D2,76,88, 73,23,7 [2481] 
2,D5,3E,06,CD,45 

590 DATA ED,BO,21,04,01,CD,75,BB, 3E.14.CD [3230] 

,5A,BB,16,20,CD 


1030 DATA 88,ED,53,8E,89,Dl,C9,21, 8D,89,3 [2741] 
6,00,79,E6,C7,FE 

600 DATA 9B,BC,21,20,BC,CD,D9,88, 3E.0E.CD [1583] 

,39,83,E5,21,00 


1040 DATA C7,28,23,FE,CO,13,1A,13, 34,38,0 [2137] 

5,34,6F,1A,67,C9 

610 DATA 40,11,00,CO,44,4D,ED,BO, CD,6A,88 [3357] 

,El,E3,CD,75,BB 


1050 DATA FE,80,38,OB,EB,16,00,ED, 44,5F,B [3703] 

7,ED,52,18,04,CD 

620 DATA El,46,23,C9,B7,ED,52,D8, 7C.FE.40 [2497] 

,3F,C9,3A,8C,89 


1060 DATA 45,B8,EB.C3,F3,88,79,E6, 38,6F,2 [2942] 

6,00,C9,ED,5B,79 

630 DATA B7,CO,3A,8B,89,B7,C8,37, C9,32,8A [2248] 

,89,21,7B,89,54 


1070 DATA 89,CD,F1,86,3E,3F,BA,D0, 21,4F,8 [2642] 
C.CD,D9,88,CD,6D 

640 DATA 5D,13,97,77,32,8B,89,CD, 52,83,CD [3762] 

,84,BB,7E.32.8C 


1080 DATA 88,3E,02,32,96,89,21,00, 00,22,9 [1807] 

7,89,CB,F4,D5 , E5 

650 DATA 89,C9,CD,81,BB,CD,06,BB, FE.0D.C8 [2724] 

,E 5,CD,6A,83,E1 


1090 DATA 21,96,89,35,CA,6A,88,CD, 26,89,E [3538] 

1,22,92,89,Dl,ED 

660 DATA 3E,14,32,8B,89,CD,5A,BB, 18,E8,FE [3413] 
,7F,28,38,FE,FC 


1100 DATA 53,94,89,CD,72,86,CD,84, 86,D5,E [2379] 

5,CD,A8,86,30,19 

670 DATA CA,2D,89,FE,21,D8,FE,30, 38,17,FE [1934] 

,3A,38,1B,FE,41 


1110 DATA ED,5B,92,89,El,E3,EB.CD, 5D,8B,C [3012] 

1,30,06,D5,E5,21 

680 DATA 38,OF,47,E6,DF,FE,47,38, 10,FE,5B [2691] 

,38,04,78,FE,7F 


1120 DATA 96,89,34,ED,43,92,89,18, 15,ED,5 [2189] 

B,94,89,El,CD,5D 

690 DATA DO,47,3A,8A,89,FE,OA,D8, 78,47,3A [2548] 

,8A,89,BE,78,C8 


1130 DATA 88,C1,30,06,D5,E5,21,96, 89,34 , E [2649] 

D,43,94,89,CC,5C 

700 DATA 34,12,13.C3,5A,BB,97,BE, C8,35,1B [2642] 

,3E,08,C3,5A,BB 


1140 DATA 89,2A,92,89,ED,5B,94,89, CD,5D,8 [ 1807] 

8,38,B6,CC,5C,89 

710 DATA 21,78,8C,CD,D9,88,DF,BA, 83.C9.BD [3048] 
,83,FF,DD,21,6D 


1150 DATA 18,9E,EB,E5,B7,ED,52,CB, 2C,CB,1 [3273] 

D,CB,8D,19,4E,23 

720 DATA 89,ED,4B,73,89,CB,BO,03, 2A,6D,89 [2105] 

,11,00,40,DD,7E 


1160 DATA 46,El,EB,C9,CD,BC,86,CD, CB,86,C [3290] 

D,5D,88,38,OA,CO 

730 DATA 01,BA,38,10,20,05,DD,7E, 00,B7,C8 [877] 

,DD,66,01,DD,6E 


1170 DATA E5,D5,C5,CD,5C,89,CI,Dl, El.CD.D [2777] 

A,86,CD,EC,86,CD 

740 DATA 00,ED,BO,C9,DD,7E.03.BA, 38,Fl,67 [2256] 

,DD,6E,02,50,59 


1180 DATA 5D,88,CD,Fl,86,38,DD,C9, E5,2A,9 [2192] 

4,89,ED,5B,92,89 

750 DATA CB,F2,1B,ED,B8,C9,21,3C, 8C,CD,D9 [2452] 
,88,21,01,00,22 


1190 DATA B7,ED,52,CB,2C,CB,ID,19, 01.C3.5 [2236] 
D,88,23,7B,BE,2B 

760 DATA 79,89,21,44,00,22,8E,89, 11,00,40 [3002] 
,7B,E6,FC,CC,5D 


1200 DATA 20,02,79,BE,D8,C8,CD,EC, 86,18,F [2712] 

1,13,1A,B8,1B,20 

770 DATA 84,1A,CD,6B,84,CD,26,89, 2A,73,89 [2492] 

,B7,ED,52,30,EB 


1210 DATA 02,1A,B9,D8,C8,CD,Fl,86, 1B.F1.C [2410] 

5,E5,05,06,04,1A 

780 DATA 1B,7B,CD,5D,84,06,08,3E, 09,CD,4F [2855] 

,88,2A,79,89,2B 


1220 DATA 4E,77,79,12,23,13,10,F7, D1.E1.C [2544] 

1,C9,23,23,23,23 

790 DATA E5,3E,26,CD,5A,BB,CB,3C, CB,ID,CB [2779] 
,3C,CB,10,22,73 


1230 DATA C9,1B,1B,1B,1B,C9,21,64, BC.CD.D [2169] 

9,88,CD,31,88,21 

800 DATA 89,CD,F9,88,21,1F,8D,06, 0C.7B.3D [2287] 

,B2,20,01,05,7E 


1240 DATA 9C,89,23,CD,34,88,21,96, 8C,CD,3 [2396] 
4,88,3E,26,CD,0A 

810 DATA CD,5A,BB,23,10,F9,El,CB, F4.22.79 [2838] 

,89,C9,D5,E8,6F 


1250 DATA 88,2A,6D,89,CD,19,88,21, 52,8A,C [1864] 

D,34,88,2A.6F,89 

820 DATA CD,F3,88,CD,F9,88,CD,4B, 88,D1,C9 [1967] 

,13,47,CB,98,4F 


1260 DATA CD,19,88,CD,31,88,06,06, 3E,20,C [2625] 

D, 55,88,3E,26,CD 

830 DATA FE,40,38,40,FE,C0,D8,E6, 07,CB,FE [1343] 

,06,28,5D,79,FE 


1270 DATA OA,88,2A,73,89,CD,19,88, 21,1F,8 [2855] 

D,CD,34,88,2A,69 

840 DATA CB,28,58,FE,ED,CA,1A,85, FE,C3,28 [3884] 

,1B,FE,CD,28,17 


1280 DATA 89,CD,19,88,21,52,8A,CD, 34,88,2 [2559] 

A,6B,89,CD,19,88 

850 DATA E6,DF,FE,DD,28,47,E6,D7, FE,D3,28 [2319] 
,3F,E6,C7,FE,C7 


1290 DATA 3E,20,CD,0A,88,3E,29,CD, 0A,88,3 [2185] 

A,9B,89,21,FC,8C 

860 DATA 28,05,E6,C1,FE,C1,C8,1B, F5.CD.22 [3030] 

,85,Fl,13,3A,8D 


1300 DATA CB,EE,06,14,B7,20,OC,21, F5,8C,C [3415] 

D,34,88,CD,EC,86 

870 DATA 89,C3,45,88,E6,CF,3D,28, 21,FE,08 [3045] 
,C8,78,E6,CF,FE 


1310 DATA 23,06,10,CD,3D,88,3E,29, CD,0A,8 [3285] 

8,CD,31,88,CD,31 

880 DATA 06,28,18, 78,E6,EF,FE , 22 , 28,10,78 [2643] 

,B7,C8,E6,CF,CO 


1320 DATA 88,3E,26,CD,5A,BB,21,00, 00,22,9 [2732] 

7,89,CB,F4,EO,5B 

890 DATA 21,9B,89,CB,46,20,DO,18, 02,13,13 [3191] 

,13,C9,1A,47,CB 


1330 DATA 79,89,CD,5D,88,D2,6A,88, CD,6D,8 [3335] 

8,E5,CD,65,88,CD 

900 DATA 98,4F,FE,EO,30,F5,FE,CB, 28,EF,47 [2278] 

,FE,23,28,EC,79 


1340 DATA 19,88,3E,3A,CD,OA,88,CD, 5C,89,E [2398] 
1,23,23,ES,CD,63 

910 DATA E6,CF,FE,09,28,E5,79,FE, 36,28,DE [3990] 

,30,E6,FE,FE,20 

Listlng SOLVE 


1350 DATA 88,CD,71,88,06,00,CD,BE, 87,El,2 [2159] 

3,23,18,DO,E5,CD 

Listing SOLVE 


8’89/90 Sonderheft 


CPC 51 














Programm/Anwendungen 


1360 DATA 65,88,7C,B5,28,11,CD,EO, 

3,23,OD,20,EF,CD 

87,El,2 

[2629] 

1370 DATA 63,8B,7C,B5,20,E8,E5,E1, 
D.OA,88,03,31,88 

3E.2E.C 

[3280 ] 

1380 DATA 3E,20,CD,OA,88,78,FE,07, 
C,OA,88,78,FE,OE 

3E,20 , C 

[1840] 

1390 DATA CC,FB,87,CD,F3,88,CD,19, 

9,E5,CD,31,88,06 

8 8,0 4 , C 

[2728] 

1400 DATA 06,3E,20,CD,55,88,06,00, 
5,05,F5,CD,26,89 

El,C9 , E 

[2765] 

1410 DATA Fl,C1,El,CD,2B,BD,D8,18, 
5,11,78,89,CD,03 

Fl,E5,C 

[3079 ] 

1420 DATA 89,£8,00,34,88,CI,El,C9, 
5,8B,CD,D9,88,£1 

£5,21,0 

[2026] 

1430 DATA C9,21,05,8B,7E,B7,23,C8, 
8,18,F7,7E,CD,0A 

CD,OA , 8 

[1870] 

1440 DATA 88,23,10,F9,C9,83,5F,8A, 

9,06,04,3E,08,CD 

9 3,5 7 , C 

[2326] 

1450 DATA 5A,BB,10,FB,C9,F5,CD,OA, 
0.F9,C9,7C,BA,CO 

88,Fl,1 

[3344] 

1460 DATA 7D,BB,C9,0E,02,7E.23.66, 
7,18,06,3E,04,18 

6F,C9,9 

[3350] 

1470 DATA 02,3E,05,C3,39,8D,21,F5, 

1,CC,89,CD,D9,88' &8d39 RAM-KONF 

89,E5.2 

[3678] 

1480 DATA El,CD,D9,88,21,DA,89,CD, 
0,06,BB,3E,14,03 

D9,88 ,C 

[2632] 

1490 DATA 5A,BB,DD,21,BE,88,21,00, 
8,05,FD,El,11,01 

00.B7.C 

[2276] 

1500 DATA 00,47,FD,2B,FD,7E,00,CD, 
8,28,04,19,30,20 

C4,88 , D 

[2605] 

1510 DATA FC,DD,5E,00,DD,56,01,DD, 
3,10,E5,C9,10,00 

23,DD,2 

[3244] 

1520 DATA 00,01,00,10,FE,41,38,07, 

F,DB,D6,37,C9,FE 

FE,5B,3 

[2499 ] 

1530 DATA 30,D8,FE,3A,3F,D8,D6,30, 
3,B7,C8,FE,09,CC 

C9,7E,2 

[2666] 

1540 DATA E7,88,CD,5A,BB,18,F2,C5, 
E,20,CD,5A,BB,10 

0 6,OC,3 

[2431] 

1550 DATA F9,C1,C9,ED,5B,90,89,19, 
B,89,CD,03,89,EB 

C9,11,7 

[3917] 

1560 DATA C3,D9,8B,D5,7C,CD,10,89, 
0,89,97,12,01.,C9 

70,CD,1 

[3072] 

1570 DATA F5,0F,0F,0F,0F,CD,19,89 , 
F,FE,0A,38,02,C6 

F1,E6,0 

[2973] 

1580 DATA 07,C6,30,12,13,C9,CD,09, 
E,FC,CO,3E,0 7,CD 

BB,DO,F 

[2082] 

1590 DATA 5A,BB,CD,78,BB,£5,26,01, 
5,BB,21,C1,8C,CD 

2C,CD,7 

[3387] 

1600 DATA 09,88,CD,81,BB,CD,3D,BD, 
B,FE,FC,CA,12,80 

CD,0 6,B 

[2711] 

1610 DATA CD,84,BB,3E,11,CD,5A,BB, 
5,BB,2A,97,89,23 

El,C3,7 

[2385] 

1620 DATA 22,97,89,CD,F9,88,C3,4B, 
0,FF,FF,00,CO,FF 

88,00,0 

[2369] 

1630 DATA FF,00,00,00,40,69,89,57, 
0,62,79,74,E5,EF 

8A.00,0 

[1641] 

1640 DATA FF,ID,28,OC,00,00,6F,B1, 
4,00,00,00,00,00 

29,01,0 

[2625] 

1650 DATA 00,00,00,40,00,00,00,00, 
0,00,09,53,4F,4C 

40,00,0 

[2907] 

1660 DATA 56,45,20,31,2E,39,20,20, 
0,20,31,31,2E,38 

20,20,2 

[2202] 

1670 DATA 2E,31,39,38,38,20,62,79, 
5,6C,6D,75,74,20 

20,48,6 

[2669] 

1680 DATA 53,74,65,65,62,09,53,44, 
A,00,20,2A,2A,2A 

47,OD,0 

[2363] 

1690 DATA 2A,20,45,52,52,4F,52,3A, 
0,2D,2D,20,20,57 

20,00,2 

[2689] 

1700 DATA 65,69,74,65,72,20,60,69, 
8,54,41,53,54,45 

74,20,2 

[2399] 

1710 DATA 29,20,8F,00,00,41,75,66, 
6,2D,4C,69,73,74 

72,75,6 

[2226] 

1720 OATA 65,20,76,6F,6C,6C,21,00, 
4,74,65,20,45,6E 

42,69,7 

[2833] 

1730 DATA 64,61,64,72,65,73,73,65, 
0,53,74,61,72,74 

20,2D,2 

[2689] 

1740 DATA 61,64,72,65,73,73,65,20, 
6,34,30,30,30,20 

3C,20,2 

[2286] 

1750 DATA 21.00.4E,61,6D,65,20,75, 
5,6C,61,65,73,73 

6E,7A,7 

[2422] 

1760 DATA 69,67,00,44,61,74,65,69, 
5,20,4C,41,4E,47 

20,7A,7 

[3365] 

1770 OATA 21,00,20,20,20,26,00,00, 
5,66,72,75,66,65 

09,41,7 

[1575] 

1780 DATA 20,69,6E,20,42,65,72,65, 
8,20,61,62,20,2E 

69,63,6 

[3082 ] 

1790 DATA 2E,2E,2E,2E,2E,2E,20,26, 
0,30,00,0D,09,20 

Listing SOLVE 

30,30,3 

[2565] 


1800 DATA 20,20,20,20,20.20,20,20, 
0,20,20,20,20,20 

1810 DATA 20,20,62,69,73,20,2E,2E, 
E,2E,20,26,46,46 

1820 DATA 46,46,00,OD,09,55,6E,74, 
3,75,63,68,75,6E 

1830 DATA 67,20,53,74,61,72,74,61, 
5,73,73,65,20,2E 

1840 DATA 2E,2E,20,26,43,30,30,30, 
9,20,20,20,20,20 

1850 DATA 20,20,20,20,20,20,20,20, 
4,61,64,72,65,73 

1860 DATA 73,65,20,2E,2E,2E,2E,2E, 
6,46,46,46,00,20 

1870 DATA 09,09,09,09,41,62,62,72, 
8,20,6D,69,74,20 

1880 DATA 28,45,53,43,29,0D,0A,00, 
9,20,55,4E,54,45 

1890 DATA 52,53,55,43,48,55,4E,47, 

A, 09,09 , DO, DO, DO 

1900 DATA DO,DO,DO,DO,DO,DO,DO,DO, 
O,D0,OD,OA,O9,42 

1910 DATA 65,74,72,69,65,62,73,73, 
4,65,6D,20,28,4C 

1920 DATA 6F,77,65,72,20,52,4F,4D, 
E,2E,20,30,0D,0A 

1930 DATA 09,42,41,53,49,43,20,28, 
0,65,72,20,52,4F 

1940 DATA 4D,29,20,2E,2E,2E,2E,2E, 
E,2E,2E,2E,20,31 

1950 DATA OD,0A,09,52,41,4D,2D,42, 
5,69,63,68,20,28 

1960 DATA 6D,61,76,2E,20,31,36,68, 
E , 2 E , 2 E , 2 E , 2 E , 2 E 

1970 DATA 20,32,0D,0A,09,45,78,70, 
3,69,6F,6E,2D,52 

1980 DATA 4F,4D,20,2E,2E,2E,2E,2E, 
E,2E,2£,2E,2E,2£ 

1990 DATA 2E,2E,20,33,OD,OA,OQ,OD, 
3,20,44,41,54,45 

2000 DATA 49,20,28,6D,61,7B,2E,20, 
8,29,20,2E,2E,2E 

2010 DATA 2E,2E,2E,2E,2E,2E,20,34, 
0,20,20,20,3F,20 

2020 DATA 34,20,20,20,00,OD,09,4E, 

D, 65,72,20,64,65 

2030 DATA 73,20,52,4F,4D,20,28,44, 

B, 3D,30,37,29,20 

2040 DATA 2E,2E,2E,2E,20,26,30,37, 
0,0A,09,44,69,65 

2050 DATA 20,44,61,74,65,69,20,62, 
5,67,74,20,26,00 

2060 DATA 09,44,61,74,65,69,6E,61, 
0,28,46,49,40,45 

2070 DATA 4E,41,4D,45,2E,45,58,54, 
0,00,55,4E,54,45 

2080 DATA 52,53,55,43,48,55,4E,47, 

E, 20,20,26,00,0D 

2090 DATA OA,53,4F,52,54,49,45,52, 
E,2E,2E,20,20,20 

2100 DATA 20,20,26,00,0D,0A,41,55, 
1,42,45,2E,2E,2E 

2110 DATA 20,20,20,20,20,20,20,00, 
6,45,52,53,43,48 

2120 DATA 49,45,42,45,4E,20,6E,61, 
0,26,34,30,30,30 

2130 DATA 2E,2E,2E,OD,0A,0O,55,6E, 
2,73,75,63,68,75 

2140 DATA 6E,67,3A,20,20,84,01,09, 
0,26,84,OB,00,00 

2150 DATA E2,EF,F5,0F,00,16,00,30, 
0,OB,00,00,El, EF 

2160 DATA 0£,20,2A,2A,2A I 2A,20,53, 
6,45,20,62,65,65 

2170 DATA 6E,64,65,6E,20,60,69,74, 
5,53,43,29,20,2F 

2180 DATA 20,57,65,69,74,65,72,20, 
4,20,28,54,61,73 

2190 DATA 74,65,29,20,00,6F,68,6E, 
D,09,40,69,74,20 

2200 DATA 52,65,60,61,74,69,76,73, 
5,65,6E,67,65,6E 

2210 DATA 20,28,30,2F,31,29,3F,20, 
0,20,20,20,00,20 

2220 DATA 53,70,72,75,6E,67,7A,69, 
5,20,69,6D,20,42 

2230 DATA 65,72,65,69,63,68,20,26, 
9,F6,CO,ED,79,09 
2240 DATA FB,C9,00 


20 , 20,2 
2E , 2E , 2 
65,72,7 

64.72.6 
00 , 00,0 
45,6E,6 

20.26.4 

75.63.6 
OA,09,0 
3A,OD,0 
DO,DO,D 

79.73.7 
29,20,2 

55.70.7 
2 E , 2 E , 2 

65.72.6 

29.20.2 
61,6E , 7 
2 E , 2 E , 2 
09,4D,4 

31.36.6 

20 . 20.2 

75.60.6 

69.73.6 
20 , 20,0 

65.60.6 
6D,65,2 
29,3A,2 
2E,2E,2 
45.4E.2 

53.47.4 
OD,OA,5 
63,68,2 

74.65.7 
00,00,0 
84,9E,2 
4F.4C,5 

20.28.4 

60.69.7 
65,00,0 

70.72.7 
2E,20,3 
65,60,6 
00,F3,0 


Listing SOLVE 


[ 1961] 
[2563] 
[2651] 
[2535] 

[3524] 

[2216] 
[2849] 
[2609] 
[2099] 

[1941] 

[ 1937] 
[3157] 
[2832] 

[ 2826] 
[3818] 
[2225] 
[2583] 
[1513] 
[3749] 
[3212] 
[1496] 
[2952] 
[2684] 
[2790] 
[2925] 
[2513] 
[2377] 
[1745] 
[2311] 
[2671] 
[1889] 
[2504] 
[ 2122 ] 
[3303] 
[1871] 
[3453] 
[2419] 
[2661] 
[2471] 
[1787] 
[2295] 
[22703 
[2174] 
[2328] 
[432 ] 
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MICRO-PAINT 

Grafik mit Pfiff 

Micro Paint ist ein Zeichenprogramm, weiches durch seine Möglichkeiten 
überzeugt. Es ist eine verbesserte Version des in Heft 7/89 abgedruckten Pro- 
grammes DRAW. 


Die mit diesem Programm erstellten Gra¬ 
fiken können mit vielen anderen Pro¬ 
grammen, wie zum Beispiel ART- 
WORX, weiterverarbeitet werden. 

Am Anfang 

Im Ladeprogramm werden Sie zuerst 
nach dem CPC-Typ gefragt. Wenn Sie ei¬ 
nen CPC464 benutzen, verlangt das Pro¬ 
gramm den Emulator, welcher sich auch 
in diesem Heft befindet. 

Ist dieser geladen, oder haben Sie bei der 
Typ-Abfrage mit 664 beziehungsweise 
6128 geantwortet, fragt der Computer, ob 
Sie das Programm mm-copy aus Heft 
10/88 laden wollen. Wenn ja, dann soll¬ 
te es sich auf der gleichen Diskette/Kas¬ 
sette wie das MICRO-PAINT-Hauptpro- 
gramm befinden. 

Nun wird noch eine Meldung ausgege¬ 
ben, welche angibt, ob die Funktion 
Drucken benutzt werden kann oder nicht. 
Als nächstes wird das eigentliche Pro¬ 
gramm geladen, und Sie befinden sich im 
Hauptmenü. Hier können die einzelnen 
Funktionen durch die Tasten 'Hoch’ und 
’Runter’ angewählt werden. Bestätigt 
wird nun mit COPY. 

Folgende Funktionen werden vom Pro¬ 
gramm zur Verfügung gestellt. 


Bleistift 

Mit COPY wird an der aktuellen Position 
in der jeweiligen Stiftfarbe ein Punkt ge¬ 
setzt. 

Lineal 

Nachdem Sie mit COPY den Anfang¬ 
spunkt gesetzt haben, müssen Sie den 
Endpunkt anfahren, und eine Linie wird 
gezeichnet. 

Füllen 

Setzen Sie den Cursor auf die auszufül¬ 
lende Fläche und drücken Sie COPY. Die 
Fläche wird nun in der aktuellen Stiftfar¬ 
be ausgefüllt. 

Spraydose dünn 

Durch drücken von COPY wird dünn ge¬ 
sprüht. 

Spraydose dick 

Wie oben, es werden jedoch keine einzel¬ 
nen Punkte gesetzt, sondern ganze 8*8 
Pixel große Quadrate. 

Platten legen 

Hier können Platten gelegt werden, die 
zuvor definiert wurden (siehe ’Platten de¬ 
finieren’). 

Platten definieren 

Nach zirka 20 Sekunden wird die aktuel¬ 
le Platte rechts vergrößert dargestellt, in 
der Mitte in Originalgröße gezeichnet 
und links erscheint ein Cursor. Nun kön¬ 


nen Sie Ziffern von null bis drei, gefolgt 
von ENTER, eingegeben. Diese Ziffern 
werden dann in Farben umgewandelt 
(0=Schwarz, l=Gelb, 2=Hellblau, 
3=Rot) und rechts in der Vergrößerung 
gezeichnet. Das Original in der Mitte 
wird auch verändert, damit Sie gleich se¬ 
hen, wie die Platte auf dem Bildschirm 
aussehen wird. Wenn Sie die ganze 8*8 
Matrix in Ziffern eingegeben haben, er¬ 
scheint wieder das Hauptmenü, und über 
die Funktion ’Platten legen’ kann die de¬ 
finierte Platte beliebig oft abgelegt wer¬ 
den. 

Screen manipulieren 

Hier kann das Bild mit einem Wert von 
0-255 manipuliert werden. Die Zahl Null 
hat jedoch keine Auswirkung. 

Wenn Sie den Screen manipuliert haben, 
und diese Funktion rückgängig machen 
wollen, weil Ihnen das Ergebnis nicht ge¬ 
fallt, manipulieren Sie mit der gleichen 
Zahl nochmal. (Lassen Sie sich überra¬ 
schen, was passiert.) 

Zirkel 

Eigentlich ist diese Funktion falsch be¬ 
nannt, weil nicht nur Kreise, sondern 
auch Ellipsen gezeichnet werden können: 
Mittelpunkt anfahren, COPY drücken, 
danach rechten beziehungsweise linken 
Punkt der Ellipse anfahren, wieder 
COPY drücken, nun wird ein senkrech¬ 
ter Strich gezogen, und der Grafikcursor 
erscheint oberhalb beziehungsweise un¬ 
terhalb des Mittelpunktes. Drücken Sie 
nochmals COPY, so wird ein Kreis ge¬ 
zeichnet. Sollten Sie jedoch hoch oder 
runter fahren, können Sie auch Ellipsen 
zeichnen. 

PEN-Wechsel 

Hier kann die neue Stiftfarbe eingestellt 
werden (0-3). 

Text 

Bewegen Sie den Cursor an die Position, 
an welcher der Text stehen soll, drücken 
Sie COPY und geben Sie den Text ein. 
Die Eingabe kann nun mit ENTER been¬ 
det werden. 

Großtext 

Hier geben Sie zuerst den Text und dann 
den Vergrößerungsfaktor ein. Als näch¬ 
stes bewegen Sie den Cursor an die Po¬ 
sition, an welcher der Text plaziert wer¬ 
den soll und drücken COPY. 

Laden/Speichern 

17-kByte-Bilder können hier entweder 
geladen oder abgespeichert werden. 

Symbole setzen 

Hier kann eines der 17 einprogrammier¬ 
ten Symbole gezeichnet werden: Sym¬ 
bolnummer eingeben, Symbol wird auf 
die Mitte des Bildschirms gezeichnet. 
Nun wird der Arbeitsscreen eingeblendet 
und das Symbol kann mittels COPY an 
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an beliebige Positionen gesetzt werden. 
Nun wird das Symbol gezeichnet und auf 
eine Bestätigung gewartet, das bedeutet, 
wenn Sie ’S’ (für setzen) drücken, wird 
das Symbol endgültig gesetzt, drücken 
Sie aber ’Z’ (für zurücknehmen), so wird 
das Symbol wieder gelöscht. 

MICRO-PAINT kennt folgende Symbo¬ 
le: Joystick, Computer, Monitor, 
Taschenrechner, Diskette, Buch, Schnei¬ 


der-Zeichen, CPC-Zeichen, zwei 
verschiedene Ansichten eines Disketten¬ 
laufwerks, drei verschiedene Wolken, 
zwei verschiedene Stühle, Tisch und ein 
Haus. 

Drucken 

Diese Funktion läuft nur, wenn vom La¬ 
deprogramm aus das Programm ’mm- 
copy.bin’ geladen wurde. Zur Sicherheit 
wird dies noch einmal abgefragt. Nun 


können Sie die Größe des Bildes be¬ 
stimmen. 

Jetzt erscheint eine weitere Sicherheitsab- 
frage. Bestätigen Sie diese, obwohl ’mm- 
copy.bin’ nicht geladen wurde, stürzt das 
Programm ab und das Bild geht verloren. 

Löschen 

Nach einer Sicherheitsabfrage wird das 
Bild gelöscht. 

(Christoph Laube/rs) 


für 464-664-6128 LJ 

I 


i HL 


□ 


10 PAPER 0:PEN 1:INK 0,0:INK 1,26:M0DE 2:B [3960] 
ORDER 0 

20 MEMORY &5FFF [102] 

30 INPUT"Benutzen Sie einen CPC 464/664/61 [3026] 

28 ; a 

40 IF a< >464 AND a<>664 AND a<>6126 THEN P [ 3785 ] 
RINT CHR$(7):GOTO 10 

50 IF a< >464 THEN 110 [ 1299 ] 

60 PRINT"B1tte legen Sie eine Kassette/Dis [9357] 
kette mit dem 664-6128 Emulator ein und 
druecken Sie eine Taste !" 

70 WHILE INKEY$< >"":WEND [ 1786] 

80 WHILE INKEY$="":WEND [1607] 

90 LOAD ‘‘emu .bin", &A200 [2257] 

100 CALL 4A200 [597] 

110 CLS:PRINT"MM-COPY.BIN laden (J/N) ?" [3132] 

120 a$=LOWER$(INKEY$) [960] 

130 IF a$="n" THEN CLS:PRINT"Die Funktion [7257] 
Drucken kann nicht benutzt werden !!!":GOT 
0 210 

140 IF a$< >"j" THEN 120 [1359] 

150 PRINT"B1tte legen Sie eine Kassette/Di [8749] 
skette mit mm-copy.bin ein und druecken Si 

e eineTaste !" 

160 WHILE INKEY$<>"":WEND [1786] 

170 WHILE INKEY$="":WEND [1607] 

180 CLS [91] 

190 LOAD "mm-copy.bin",&A000 [1951] 

200 PRINT"Die Funktion Ausdrucken kann nun [4926] 
benutzt werden !" 

210 RUN "paint.hpt" [759] 


*************************** 


MICRO-PAINT 


written by C.Lauble 


in 1/1989 


* 

* 

* 

* 

1 * 

*************************** 


10 
20 
30 
40 
50 
60 
70 
80 ' 

90 ' 

100 f=l:DIM pl(8.8):DEG 

110 IF PEEK(8.A000)<>0 THEN CALL &A000 
120 FOR x=&A100 TO &A16C 
130 READ a$:b=VAL("+a$) 

140 s=s+b:POKE x,b 
150 NEXT x 

160 IF 3010947 THEN PRI NT " DAT A-Feh 1 e r 
END 

170 DATA OE,Al,C3,29,Al,C3,41,Al 
180 DATA C3,4D,A1,C3,59,A1,53,43 
190 DATA D2,49,CE,4F,55,D4,43,4C 
200 DATA 03,00,00,00,00,00,00,00 
210 DATA 01,00,Al,21,1A,A1.C3,Dl 
220 DATA BC,DD,46,00,21,00,CO,11 
230 DATA 00,40,7E,AB,77,23,1B,E5 
240 DATA 21,FF,FF,19,El,DA,32,Al 
250 DATA 09,21,00,60,11,00,00,01 
260 DATA 00,40,ED,BO,C9,21,00,CO 
270 DATA 11,00,60,01,00,40,ED,BO 
280 DATA 09,21,00,60,01,00,40,36 
290 DATA 00,23,OB,E5,21,FF,FF,09 
300 DATA El,DA,5F,Al,C9 
310 CALL &A120 
320 ' 

330 '>>> MENUE <<< 

340 ' 

350 MODE 1:INK 1,24 

360 LOCATE 15,3:PRINT”MICRO-PAINT" 

Lisling MICRO PAINT 


[1051] 

[1216] 

[175] 

[1533] 

[175] 

[298] 

[1051 ] 

[117] 

[117] 

[ 703] 
[2615] 
[1335] 
[ 779 ] 
[494] 

[ 356] 
[1961] 

[ 1484] 
[1620] 
[1395] 
[1182] 
[1802] 
[1465] 
[ 979 ] 
[1400] 
[1081 ] 
[1088] 
[ 883 ] 

[1440 ] 
[1552] 
[ 728] 

[ 629 ] 
[117] 
[463] 
[117] 

[1198] 
[1826] 


370 LOCATE 8,5:PRINT"fuer 464+Emulator,664 [2720] 


,6128" 

380 RESTORE 420 [775] 

390 FOR x=l TO 17 [820] 

400 READ a$:LOCATE 6,7+x:PRINT a$ [1886] 

410 NEXT [350] 


420 DATA Bl eistift,Lineal ,Fue11en,Spraydos [ 5932 ] 
e duenn,Spraydose dick,Platten legen 
430 DATA Platten def1nieren,Screen Manipul [4449] 
ieren,Zirkel,PEN-Wechsel 

440 DATA Text,Grosstext,Laden,Spei chern,Sy [5917] 
mbole setzten,Drucken,Loeschen 


450 DATA PEN-wechsel [933] 

460 LOCATE 4,8:PRINT CHR$(243):y=1 [2865] 

470 IF INKEY(72)=0 OR INKEY(0)=0 THEN 560 [1813] 

480 IF INKEY(73)=0 OR INKEY(2)=0 THEN 510 [2034] 

490 IF INKEY(77)=0 OR INKEY(76) = 0 OR INKEY [3261] 
(9)=0 THEN 610 

500 GOTO 470 [454] 

510 IF y=l7 THEN LOCATE 4,24:PRINT" ":y=0: [2296] 
GOTO 480 

520 LOCATE 4,7+y:PRINT" ":y=y+l [2784] 

530 LOCATE 4,7+y:PRINT CHR$(243) [2944] 

540 FOR x=l TO 100:NEXT [1450] 

550 GOTO 480 [373] 

560 IF y=i THEN LOCATE 4,8:PRINT“ ":y=18:G [2973] 
OTO 490 

570 LOCATE 4,7+y:PRINT" ":y=y-l [2780] 

580 LOCATE 4,7+y:PRINT CHR$(243) [2944] 

590 FOR x=l TO 100:NEXT [1450] 

600 GOTO 490 [371] 

610 MODE 1:WHILE INKEY$<>"":WEND [2586] 

620 ON y GOTO 890,960,1090,1170,1250,1330, [4613] 
1450,1730,1830,2060,2120,2240,2550,2780,29 
30,4100,4370 

630 ' [117] 

640 '>>> Cursor bewegen <<< [1008] 

650 ' [117] 

660 PLOT xp.yp.fl [1383] 


670 

IF 

INKEY(0)=0 

OR 

INKEY(72)=0 

THEN 

yp=y 

[3233] 

P + l 
680 

IF 

INKEY(2)=0 

OR 

INKEY(73)=0 

THEN 

yp=y 

[1663] 

p-1 

690 

IF 

INKEY(8)=0 

OR 

INKEY(74)=0 

THEN 

xp=x 

[2139 ] 

p-1 

700 

IF 

INKEY(1)=0 

OR 

INKEY(75)=0 

THEN 

x p-X 

[2314] 


P+ 1 

710 IF INKEY(0)=32 OR INKEY(72)=32 THEN yp [2021] 
=yp+8 

720 IF INKEY(2)=32 OR INKEY(73)=32 THEN yp [2300] 
= yp-8 

730 IF INKEY(8)=32 OR INKEY(74)=32 THEN xp [1500] 
= x p-8 

740 IF INKEY(1)=32 OR INKEY(75)=32 THEN xp [1980] 
= xp+8 

750 IF INKEY(0) = 12 8 OR INKEY(72)=128 THEN [ 1923] 
yp=yp+32 

760 IF INKEY(2)=128 OR INKEY(73)=128 THEN [1619] 
yp=yp-32 

770 IF INKEY(8)=128 OR INKEY(74)=128 THEN [2496] 
xp=xp-32 

780 IF INKEY(1)=128 OR INKEY(75)=128 THEN [2723] 
xp=xp+32 

790 IF INKEY(9)=0 OR INKEY(76)=0 OR INKEY( [2349] 
77 ) = 0 THEN 840 

800 IF INKEY(38)=0 THEN PLOT xp,yp,f1:!OUT [1590] 


:GOTO 350 

810 fl=TEST(xp,yp):PLOT xp,yp,fl+2 [975] 

820 FOR X=1 TO 50:NEXT [1564] 

830 GOTO 660 [369] 

840 WHILE INKEY$< >"":WEND [ 1786] 

850 RETURN [555] 

860 ' [1173 

870 *>>> Bleistift <<< [1013] 

880 ' [117] 

890 |IN:xp=0:yp=0:fl=TEST(xp,yp) [1495] 
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900 GOSUB 660 [881] 

910 PLOT xp,yp,f [1322] 

920 f l = f:GOTO 900 [509] 

930 ' [117] 

940 ’>>> Lineal <<< [474] 

950 1 [117] 

960 !IN:xp=0:yp=0:fl=TEST(xp,yp) [1495] 

970 x1=0:y1=0 [1050] 

980 GOSUB 660 [881] 

990 PLOT xp,yp,f;xl=xp:yl=yp:fl=f [2764] 

1000 FOR x=l TO 100:NEXT [1450] 

1010 WHILE INKEY$< >"";WEND [ 1786] 

1020 GOSUB 660 [881] 

1030 MOVE xl,yl:DRAW xp,yp,f [540] 

1040 fl=f [ 99 ] 

1050 GOTO 970 [330] 

1060 ' [117] 

1070 '>>> Fuellen <<< [1248] 

1080 ' [117] 

1090 !lN:xp=0:yp=0:fl=TEST(xp,yp) [1495] 

1100 GOSUB 660 [881] 

1110 PLOT xp,yp,f:|OUT:MODE l:MOVE xp,yp+2 [3819] 
: !IN: FILL f 

1120 fl=f [ 99 ] 

1130 GOTO 1100 [351] 

1140 ' [117] 

1150 ’>>> Spraydose duenn <<< [1294] 

1160 ' [117] 

1170 !IN:xp=0:yp=0:fl=TEST(xp,yp) [1495] 

1180 GOSUB 660 [881] 

1190 PLOT xp+RND*8,yp+RND*8,f L1577] 

1200 f1=TEST(xp,yp) [58 4] 

1210 GOTO 1180 [399] 

1220 1 [117] 

1230 ‘>>> Spraydose dick <<< [763] 

1 2 40 ' [117] 

1250 !lN:xp=0:yp=0:fl=TEST(xp,yp) [1495] 

1260 GOSUB 660 [881] 

1270 GRAPHICS PEN f:TAG:PRINT CHR$(143);:T [1871] 

AGOFF 
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1280 

fl = f 

[99] 

1290 

GOTO 1260 

[351] 

1300 


[117] 

1310 

‘>>> Platten legen <<< 

[1574] 

1320 


[117] 

1330 

!IN:xp=0:yp=0:fl=TEST(xp,yp) 

[1495] 

1340 

GOSUB 660 

[881] 

1350 

FOR x=l TO 8 

[ 706] 

1360 

FOR y=l TO 8 

[1182] 

1370 

) 

1380 

PLOT xp+(x-l)*2,yp+(y-l)*2,pl(x,y 

[1570] 

NEXT y 

[359 ] 

1390 

NEXT x 

[356 ] 

1400 

fl=TEST(xp,yp) 

[584] 

1410 

GOTO 1340 

[462] 

1420 

' 

[117] 

1430 

'>>> Platten definieren <<< 

[2284] 

1440 

1 

[117] 

1450 

WINDOW 30,40,1,25 

[1193] 

1460 

FOR y=l TO 8 

[1182 ] 

1470 

FOR x=l TO 8 

[ 706] 

1480 

PEN pl(x,y) 

[ 732 ] 

1490 

LOCATE x,9-y 

[1019] 

1500 

PRINT CHR$(143) 

[856] 

1510 

PLOT 314 + x* 2,350+y*2,pl(x,y) 

[2075] 

1520 

NEXT x 

[ 356 ] 

1530 

NEXT y 

[ 359 ] 

1540 

WINDOW 1,40,1,25 

[1024] 

1550 

PEN 1 

[549 ] 

1560 

FOR y=1 TO 8 

[1182] 

1570 

FOR x=l TO 8 

[ 706] 

1580 

LOCATE x,y 

[ 672 ] 

1590 

LINE INPUT a$ 

[1242] 

1600 

a=VAL(a$) 

[ 956] 

1610 

LOCATE x + 2 9,y:PEN a:PRINT CHR$(14 

[1963] 

3) 

1620 

pl(x,9-y)=a 

[829] 

1630 

PLOT 314+x*2,368-y*2,a 

[1116] 

1640 

PEN 1 

[549] 

1650 

NEXT x 

[356] 

Listing MICRO PAINT 



Softwareautoren für die Amstrad-Computer gesucht. 

Haben Sie nicht auch schon einmal daran gedacht, ein gutes Programm, das Sie selbst geschrieben haben, zu 
veröffentlichen? 

Warum sollten nicht auch andere Leser in den Genuß Ihrer Mini-Dateiverwaltung, Grafikerweiterung, Tips, 
Tricks, Tools, Utilities, Simulationen, Games usw. kommen? 

Wirklich gute Software, die den Anforderungen unserer Leser genügt, wird von uns entsprechend honoriert. 

Sie sollten jedoch bei der Einsendung Ihres Programms ein paar Punkte beachten. 

Wenn Sie Nachstehendes befolgen, wird Ihre Post zügig und ohne große Rückfragen und Verzögerungen bear¬ 
beitet: 

Senden Sie uns Ihr Programm mit 

(a) allen benötigten Files auf der mit dem Programmnamen bezeichneten Diskette, 

(b) den kompletten Ausdrucken/Listings aller Files der Diskette, 

(c) einer Beschreibung Ihres Programms und 

(d) einer genauen Bedienungsanleitung. 

Die Bedienungsanleitung und die Beschreibung sollten als Textdatei mit auf der Programm-Diskette enthalten 
sein. Wichtig für uns zu wissen wäre noch, mit welcher Konfiguration Sie arbeiten, welchen Drucker Sie benut¬ 
zen, ob Sie ein zweites Laufwerk angeschlossen haben usw. 

Wenn Sie der Meinung sind, ein solches Programm geschrieben zu haben, dann nichts wie einschicken an den 

DMV-Verlag ■ Red. PC International ■ Abtlg. CPC/Joyce/PC 
Postfach 250 ■ 3440 Eschwege 

Geben Sie bitte in der Adresse die für Ihren Amstrad-Computer (CPC, Joyce, PC) zuständige Abteilung mit an, 
damit Ihr Programm direkt in die richtigen Hände gelangt. 
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Programm/Anwendungen 


1660 

NEXT y 

[359] 

1670 

CLS:PRINT"PIatte definiert !" 

[2273] 

1680 

FOR x —1 TO 1000:NEXT 

[ 1282 ] 

1690 

GOTO 350 

[470] 

1700 


[117] 

1710 

■>>> Bild Manipulieren <<< 

[1691 ] 

1720 

' 

[117] 

1730 

INPUT "Mit welchem Wert ";w 

[2385] 

1740 

IF wOINT(w) THEN PRINT"Nur ganze Zah 

[4158] 

1 en ! 

":PRINT:GOTO 1730 


1750 

IF w<0 THEN PRINT"Nur positive Zahlen 

[4504] 

(und 

null) !":PRINT:GOTO 1730 


1760 

IF w > 2 5 5 THEN PRINT"Nu r kleinere Zahl 

[4082] 

en als 256 !":PRINT:GOTO 1730 


1770 

MODE 1 

[ 506 ] 

1780 

!IN: |SCR,w: 1 OUT 

[1489] 

1790 

GOTO 350 

[470] 

1800 

' 

[117] 

1810 

'>>> Zirkel <<< 

[ 698] 

1820 

' 

[117] 

1830 

! IN : xp=0:yp=0:f1=TEST(xp,yp) 

[1495] 

1840 

GOSUB 660 

[881] 

1850 

PLOT xp,yp,f;fl=f:mx=xp:my=yp 

[3527] 

1860 

FOR x=l TO 100:NEXT 

[1450] 

1870 

WHILE INKEY$< >"":WEND 

[1786] 

1880 

GOSUB 660 

[881 ] 

1890 

PLOT xp,0:DRAWR 0,400,f 

[1319] 

1900 

rx=ABS(xp-mx) 

[436] 

1910 

FOR x=l TO 100:NEXT 

[ 1450 ] 

1920 

WHILE INKEY$<>"":W£ND 

[ 1786 ] 

1930 

xp=mx:yp=my+rx:GOSUB 660 

[1850] 

1940 

ry=ABS(yp-my) 

[478] 

1950 

CLS:;IN 

[333] 

1960 

PLOT mx,my+ry 

[1067] 

1970 

FOR x=0 TO 360 STEP 5 

[870] 

1980 

DRAW mx+rx*5IN(x),my + ry*COS(x) ,f 

[1785] 

1990 

NEXT 

[350] 

2000 

fl=TEST(xp,yp):PLOT mx.my.fl 

[ 926] 

2010 

xp=mx:yp=my 

[ 1328 ] 

2020 

!OUT:GOTO 1840 

[ 792 ] 

2030 


[117] 

2040 

’>>> PEN-wechsel <<< 

[1331] 

2050 

' 

[117] 

2060 

LINE INPUT "Neuer PEN : ";a$ 

[ 2712] 

2070 

IF a$< >"1" AND a$ < >"2" AND a$<>"3" AN 

[3663] 

D a$< >"0" THEN PRINT CHR$(7):PRINT:PRINT:G 
OTO 2060 


2080 

f=VAL(a$) 

[ 425 ] 

2090 

GOTO 350 

[470] 

2100 

’>>> Text <<< 

[395 ] 

2110 

' 

[117] 

2120 

!IN:xp=0:yp=0:fl=TEST(xp,yp) 

[1495] 

2130 

GOSUB 660 

[881] 

2140 

PLOT xp.yp.fl 

[ 1383] 

2150 

GRAPHICS PEN f 

[944] 

2160 

TAG 

[318] 

2170 

a$=INKEY$ 

[278] 

2180 

IF a$=CHR$(13) THEN TAGOFF:GOTO 2130 

[1164] 

2190 

IF a$ < >"" THEN PRINT a$; 

[964] 

2200 

GOTO 2170 

[361] 

2210 

1 

[117] 

2220 

'> > > Grosstext < < < 

[1753] 

2230 

' 

[117] 

2240 

PRINT"Achtung : Der Inhalt der oberst 

[5880] 

en Text- zelle wird geloescht !!!" 


2250 

PRINT:PRINT 

[ 743] 

2260 

PRINT"Wollen Sie die Grosstext-Funkti 

[ 5221 ] 

on zu- ruecknehmen (J/N) ?" 


2270 

a$= LOWER$(INKEY$) 

[960] 

2280 

IF a$="j" THEN 350 

[1092] 

2290 

IF a$ < >"n" THEN 2270 

[ 727 ] 

2300 

CLS:LINE INPUT "Text : ";t$ 

[ 1669 ] 

2310 

INPUT "Vergroesserung (2-10) ";v 

[2731 ] 

2320 

IF v< 2 OR v >10 THEN PRINT CHR$(7):GOT 

[2175] 

0 2310 


2330 

v=v*2 

[ 726] 

2340 

!IN:xp=0:yp=0:fl=TEST(xp.yp) 

[1495] 

2350 

GOSUB 660 

[881] 

2360 

PLOT xp,y p,fl 

[ 1383] 

2370 

LOCATE 1,1;PRINT t$ 

[716] 

2380 

xl = 16* LEN(t$) 

[1538] 

2390 

mx=xp:my=yp 

[1427] 

2400 

FOR x=0 TO xl STEP 2 

[1026] 

2410 

FOR y=3S4 TO 398 STEP 2 

[1350] 

2420 

f2=T EST(x,y) 

[ 863] 

2430 

mxl=mx+(x/ 2 )*v 

[581] 

2440 

myl=my-((398-y)/2)*v 

[1392] 

2450 

FOR xl=mxl TO mxl+v 

[1513] 

2460 

PLOT x1,my1:DRAWR 0,-v,f2 

[1752] 

2470 

NEXT xl 

[475] 

2480 

NEXT y 

[359] 

Listing MICRO PAINT 



2490 NEXT X [356] 

2500 LOCATE 1,1:PRINT SPACE$(LEN(t$)) [2193] 

2510 fl=TEST(xp,yp):GOTO 2350 [1675] 

2520 ' [117] 

2530 '>>> Laden <<< [1153] 

2540 * [117] 

2550 PRINT"L a d e n" [728] 

2560 PRINT"-" [1011] 

2570 PRINTrPRINT [743] 

2580 PRINT"Oirectory anschauen (J/N) ?" [3969] 

2590 a$=LOWER$(INKEY$) [960] 

2600 IF a$="n" THEN 2630 [719] 

2610 IF a$ < >"j" THEN 2590 [ 1552] 

2620 CAT [96] 

2630 LINE INPUT "Name des Screens : ";na$ [2557] 

2640 PRINT"Legen Sie die Kassette/Diskette [7487] 
mit ";na$;"ein und druecken Sie eine Tast 
e i " 

2650 WHILE INKEY$<>"":WEND [1786] 

2660 WHILE INKEY$="“:WEND [1607] 

2670 PRINT"Achtung : das Aktuelle Bild wir [9460] 
d durch das Einladen eines neuen Screens 
ge- loescht." 

2680 PRINT”Wol1e Sie das Bild wirklich lad [4971] 
en (J/N)?" 

2690 a$=L0WER$(INKEY$) 

2700 IF a$="n" THEN 350 
2710 IF a$< > " j" THEN 2690 
2720 LOAD na$,&C000 
2730 !OUT 
2740 GOTO 350 
2750 ' 

2760 ’>>> Speichern <<< 

2770 ‘ 

2780 PRINT"S p e i ehern" 

2790 PRINT"- 

2800 PRINT:PRINT 

2810 LINE INPUT "Name des Screens : ";a$ 

2820 PRINT"Legen Sie die Kassette/Diskette [7513] 

, auf die";a$;"gespeichert werden soll" 

2830 PRINT"und druecken Sie eine Taste 
2840 WHILE INKEY$< >"":WEND 
2850 WHILE INKEY$="":WEND 
2860 iIN 

2870 SAVE a$,b,&C000,&4000 
2880 GOTO 350 
2890 * 

2900 *>>> Symbole setzen <<< 

2910 1 

2920 DATA Joystick,Computer,Monitor,Tasche [9814] 
nrechner,Diskette,Buch,Schneider-Zeichen,C 
PC-Zelchen.Diskettenlaufwerk l.Diskettenla 
ufwerk 2,Wolke 1,Wolke 2,Wolke 3,Stuhl 1,S 
tuhl 2 ,Tisch,Haus 
2930 CLS:RESTORE 2920 
2940 FOR x=l TO 17 
2950 READ a$:PRINT x;".) ";a$ 

2960 NEXT 

2970 PRINT:PRINT STRING$(80,"=") 

2980 PRINT 

2990 INPUT "Welche Symbolnummer ";sym 
3000 IF sym< >INT(sym) OR sym<l OR sym>17 T [3585] 
HEN PRINT CHR$(7):GOTO 2920 

3010 CLS t 91 ^ 

3020 xp=320:yp=200 [1171] 

3030 ON sym GOSUB 3180,3250,3310,3360,3460 [3680] 
,3510,3560,3610,3740,3790,3820,3840,3910,3 
960,3980,4020,4040 

3040 FOR x=l TO 2000:NEXT [670] 

3050 CLS: 1 IN [333] 

3060 fl=TEST(xp,yp) [584] 

3070 GOSUB 660 [881] 

3080 ON sym GOSUB 3180,3250,3310,3360,3460 [3680] 
,3510,3560,3610,3740,3790,3820,3840,3910,3 
960,3980,4020,4040 
3090 a$=LOWER$(INKEY$) 

3100 IF a$="Z" THEN !IN:G0T0 3070 
3110 IF a$<>"s" THEN 3090 
3120 !0UT 

3130 fl=TEST(xp,yp) 

3140 GOTO 3070 
3150 ' 

3160 'Symbole zeichnen 
3170 1 

3180 PLOT xp,yp,f:DRAWR-4,4:PLOTR 0 
R 4,4:DRAWR 30,0:DRAWR 4,-4:PL0TR 0 
WR-4,-4:DRAWR-30,0 

3190 PLOT xp+4,yp:DRAWR-4,-4:DRAWR 10,0:DR [3159] 

AWR-4,4 

3200 PLOT xp+26,yp:DRAWR 4,-4:DRAWR-10,0:D [2968] 
RAWR 4,4 

Listing MICRO PA1NT _ 


[960] 

[ 752] 

[1348] 

[ 633] 

[408] 

[470] 

[117] 

[529] 

[117] 

[ 982] 

[1295] 
[ 743] 
[2498] 


[3191] 

[1786] 

[1607] 

[361] 

[1116] 

[ 470] 

[117] 

[1720] 

[117] 


[ 579 ] 

[ 820] 

[1050] 

[350] 

[1793] 

[361] 

[1799] 


[960] 

[1680] 

[1461] 

[408] 

[584] 

[459] 

[117] 

[2040] 

[117] 

, 2:DRAW [5664] 

, -2:DRA 
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3210 PLOT xp+4,yp+12:DRAWR 6,0:PL0T xp+26, 
yp+12:DRAWR-6,0 

3220 PLOT xp+4,yp+14;DRAWR 6,0:PLOT xp+26, 
yp+14:DRAWR-6,0 

3230 PLOT xp+12,yp+12:DRAWR 0,20:DRAWR-4,4 
:DRAWR 4,4:DRAWR 6,0:DRAWR 4,-4:DRAWR-4,-4 
:DRAWR 0,-20 
3240 RETURN 

3250 PLOT xp,yp,f:DRAWR 52,0:DRAWR 0,20:DR 

AWR-52,0:DRAWR 0,-20 

3260 FOR x=4 TO 50 STEP 4 

3270 PLOT xp+x,yp+4 

3280 PLOTR 0,4:PLOTR 0,4:PL0TR 0,4 

3290 NEXT x 

3300 RETURN 

3310 PLOT xp.yp,f:DRAWR 40,0:DRAWR 0,30:DR 
AWR-40,0:DRAWR 0,-30 

3320 MOVER 4,8:DRAWR 4,-4:DRAWR 24,0:DRAWR 
4,4:DRAWR 0,14:DRAWR-4,4:DRAWR-24,0:DRAWR 
-4,—4:DRAWR 0,-14 

3330 PLOT xp+10,yp+20:DRAWR 4,4:DRAWR 4,-4 

:DRAWR 4,4:DRAWR 4,-4:DRAWR 4,4 

3340 PLOT xp+10,yp+12:DRAWR 4,4:DRAWR 4,-4 

:DRAWR 4,4:DRAWR 4,-4:DRAWR 4,4 

3350 RETURN 

3360 PLOT xp.yp,f:DRAWR 36,0:DRAWR 0,52:DR 

AWR-36,0:DRAWR 0,-52 

3370 FOR x=4 TO 28 STEP 8 

3380 FOR y=4 TO 36 STEP 8 

3390 PLOT xp+x.yp+y 

3400 DRAWR 4,0:DRAWR 0,4 

3410 DRAWR-4,0:DRAWR 0,-4 

3420 NEXT y 

3430 NEXT x 

3440 MOVER 2,8:ORAWR-24,0:DRAWR 0,4:DRAWR 
24,0:DRAWR 0,-4 
3450 RETURN 

3460 PLOT xp,yp,f:DRAWR 20,0:0RAWR 0,30:DR 
AWR-20,0:DRAWR 0,-30 

3470 MOVER 0,4:DRAWR 20,0:MOVER 0,4:DRAWR~ 
20,0:MOVER 0,4:DRAWR 20,0:MOVER 0,2:DRAWR- 
20,0 

3480 PLOT xp+10,yp+18:DRAWR-2,2:DRAWR 0,4: 
DRAWR 2,2:DRAWR 2,-2:DRAWR 0,-4:DRAWR-2,-2 
3490 PLOT xp+4,yp+26:PLOTR 12,0 
3500 RETURN 

3510 PLOT xp+10,yp,f:DRAWR-10,10:DRAWR 0,2 
0:DRAWR 10,-10:DRAWR 10,10:DRAWR 0,-20:DRA 
WR-10,-10:DRAWR 0,20 

3520 MOVER 0,2:DRAWR-8,8:MOVER 16,0:DRAWR- 
8,-8 

3530 PLOT xp+12,yp+20:DRAWR 0,-2:PLOTR 2,2 
:PLOTR 2,0:PLOTR 2,-2 

3540 PLOT xp+12,yp+14:DRAWR 0,-2:PLOTR 2,0 

:PLOTR 2,4:PLOTR 2,-2 

3550 RETURN 

3560 FOR y=0 TO 1 

3570 PLOT 2+xp+10,2*y+yp+20,f:DRAWR-14,0:0 
RAWR-2,-4:DRAWR-2,-2:DRAWR-2,0:DRAWR 2,0:D 
RAWR 2,-2:DRAWR 2,-4:DRAWR 14,0 
3580 PLOTR 6,0:DRAWR 14,0:DRAWR 2,-4:DRAWR 
2,-2:DRAWR 2,0:DRAWR-2,0:DRAWR-2,-2:DRAWR 
-2,-4:DRAWR-14,0 
3590 NEXT 
3600 RETURN 

3610 FOR X=0 TO 180 STEP 5:PLOT 10+xp+20*S 
IN(x),yp+20*COS(x),f:NEXT 
3620 DRAWR-40,0 

3630 FOR x = 180 TO 360 STEP 5:PLOT (xp-30)+ 

20*SIN (x),yp+20*C0S(x),f:N E X T 

3640 DRAWR 40,0 

3650 MOVE xp,yp+2:FILL f 

3660 PLOT xp-30,yp+16,0:DRAWR -16,-16:DRAW 
R 16,-16:PLOTR 2,0:DRAWR-16,16:DRAWR 16,16 
:PLOTR 2,0:DRAWR-16,-16:DRAWR 18,-16 
3670 PLOT xp-20,yp+16:DRAWR 0.-32.PL0TR 2, 
0:DRAWR 0,32 
3680 FOR x*0 TO 2 

3690 DRAWR B,0:DRAWR 4,-4:DRAWR 0,-4:DRAWR 
-4,-4:DRAWR-8,0 
3700 MOVER 0,10 
3710 NEXT 

3720 PLOT xp+10,yp+16:DRAWR -16,-16:DRAWR 
16,-16:PLOTR 2,0:DRAWR-16,16:DRAWR 16,16:P 
LOTR 2,0:DRAWR-16,-16:DRAWR 16,-16 
3730 RETURN 

3740 PLOT xp,yp,f:DRAWR 16,0:0RAWR 0,16:DR 
AWR-16,0:DRAWR 0,-16 
3750 MOVER 4,12:DRAWR 8,0 

3760 PLOT xp+4,yp+8:PLOTR 4,-4:PL0TR 4,4:D 
RAWR 4,0 

Listing MICRO PAINT 


[4225] 

[2784] 

[4546] 


[555 ] 
[2904] 

[1182 ] 
[592 ] 

[1308] 
[ 356] 

[ 555] 
[3258] 

[4778] 


[3961] 

[3616] 

[ 555] 

[3434] 

[ 637] 
[1179] 
[ 799 ] 

[ 776] 

[1533] 

[359] 

[356] 

[2995] 

[555] 

[3060] 

[5245] 

[5871] 

[1507] 
[ 555 ] 
[5431] 

[2682] 

[2417] 

[3580] 

[555 ] 
[1181] 
[6829] 

[6213] 


[350] 

[555] 

[4370] 

[636] 

[4266] 

[608] 

[ 858] 
[8598] 


[ 3298 ] 

[712] 

[1589] 

[649] 

[350] 

[6645] 


[555 ] 
[3559] 

[1127] 

[3572] 


3770 PLOT xp+16,yp:DRAWR 20,20:DRAWR 0,16: 
DRAWR—20,-20:MOVER-16,0:DRAWR 20,20:DRAWR 
16,0 

3780 RETURN 

3790 PLOT xp,yp,f:DRAWR 26,0:DRAWR 0,26:DR 
AWR-26,0:DRAWR 0,-26 

3800 PLOT xp+4,yp+22:DRAWR 1B,0:PL0TR 0,-2 
:DRAWR-18,0:PLOTR 0,-4:PL0TR 6,-6:PL0TR 6, 
4:DRAWR 6,0 
3810 RETURN 

3820 PLOT xp,yp,f:DRAWR B,4:DRAWR 4,-4:DRA 

WR 6,8:DRAWR 8,-4:DRAWR 6,16:DRAWR-10,-4:D 

RAWR-4,10:DRAWR-14,0:DRAWR 0,-12:DRAWR-8,0 

:DRAWR 4,-8:DRAWR 0,-4 

3830 RETURN 

3840 GOSUB 3820 

3850 MOVE xp+10,yp+8:FILL 1 

3860 PLOT xp+30,yp+18,f 

3870 FOR x=xp TO xp+24 STEP 6 

3880 PLOT x,y p:DRAWR-14,-14 

3890 NEXT 

3900 RETURN 

3910 GOSUB 3820 

3920 MOVE xp+10,yp+8:FILL 1 

3930 PLOT xp+30,yp+18,f 

3940 PLOT xp+14,yp:DRAWR-24,-40:DRAWR 24,2 
4:DRAWR-24,-40:DRAWR-8,16:MOVER 24,-8:DRAW 
R-16,-8 
3950 RETURN 

3960 PLOT xp,yp,f:DRAWR 0,20:DRAWR 20,0:MO 
VER 0,-20:DRAWR 0,40 
3970 RETURN 

3980 PLOT xp+8,yp,f:DRAWR 0,20:DRAWR 32,0: 
MOVER 0,-20:DRAWR 0,20:DRAWR-4,20:DRAWR-24 
,0:DRAWR-4,-20 

3990 MOVER 4,20:DRAWR 0,20:M0VER 24,0:DRAW 
R 0,-20:MOVER 0,8:DRAWR-24,0:MOVER 0,8:DRA 
WR 24,0 

4000 MOVE xp+20,yp+32:FILL f 
4010 RETURN 

4020 PLOT xp.yp,f:DRAWR 0,10:DRAWR 30,0:0R 
AWR 0,-10:MOVER 0,10:DRAWR 10,20:DRAWR-30, 
0:DRAWR-10,-20:MOVER 40,20:DRAWR 0,-16 
4030 RETURN 

4040 PLOT xp,yp,f:DRAWR 10,0:DRAWR 0,20:DR 
AWR-10,0:DRAWR 0,-20:MOVER 0,20:DRAWR 4,10 
:PLOTR 2,0:DRAWR 4,-10 

4050 DRAWR 20,10:DRAWR-4,10:DRAWR-20,-10:M 
OVE xp+10,yp:DRAWR 20,10:DRAWR 0,20 
4060 RETURN 
4070 ' 

4080 '>>> Drucken <<< 

4090 • 

4100 PRINT"MM-COPY geladen (J/N) ?" 

4110 a$=LOWER$(INKEY$) 

4120 IF a$="n" THEN 350 
4130 IF *$<>"J" THEN 4110 
4140 CLS 

4150 PRINT TAB(4);"1.) Mini-Format (7.0 * 
5.0 cm)" 

4160 PRINT TAB(4);"2.) Micro-Format (3.5 * 
2.5 cm) 

4170 PRINT:PRINT 

4180 PRINT STRINGS(80,"* " ) 

4190 PRINT 

4200 PRINT"Bltte waehlen (1/2) !" 

4210 a$=INKEY$ 

4220 IF a$="1" THEN au$="n1":GOTO 4250 
4230 IF a$ < >"2“ THEN 4210 
4240 au$="cro” 

4250 PRINT:PRINT 

4260 PRINT"B11d Im ml";au$;"-Format ausdru 
cken." 

4270 PRINT"S1nd Sie sicher (J/N) ?“ 

4280 a$=LOWER$(INKEY$) 

4290 IF a$="n" THEN 350 
4300 IF a$< > " J " THEN 4280 
4310 MODE 1:!IN 

4320 IF au$="n1" THEN IMINI.COPY ELSE IMIC 

RO.COPY 

4330 GOTO 350 

4340 1 

4350 '>>> Loeschen <<< 

4360 ' 

4370 CLS:PRINT"Loeschen - sind Sie sicher 
(J/N) ?" 

4380 a$=LOWER$(INKEY$) 

4390 IF a$="n" THEN 350 
4400 IF a$ < >“j" THEN 4380 
4410 !CLS:GOTO 350 

Listing MICRO PAINT 


[4498] 


[ 555 ] 
[4104] 

[5784] 


[ 555 ] 

[10046] 


[ 555] 
[1005] 
[1263] 
[1082 ] 
[1435] 
[ 1526 ] 
[350] 

[ 555 ] 

[1005] 
[1263] 
[1082] 
[3958] 


[ 555 ] 
[2918] 

[555 ] 
[5003] 


[3690] 


[1627] 
[ 555] 

[7495] 


[ 555 ] 
[5655] 


[2567] 

[ 555 ] 
[117] 

[1007] 
[117] 
[2444] 
[960] 

[ 752 ] 
[1632] 
[91] 
[3070] 

[1951] 

[743] 

[1446] 
[361] 
[3069] 
[278] 

[1074] 
[ 867] 

[ 779 ] 

[ 743] 
[4159] 

[1463] 
[960] 

[ 752 ] 

[1702] 
[ 597 ] 
[2362] 

[470] 

[117] 

[634] 

[117] 

[2697] 

[960] 

[ 752 ] 

[1698] 
[1520] 
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zu den Sternen 

SAT-MASTER - 
Sa tellit-Berechnungsprogramm 

Leider ist die Anwender-Software für den CPC im Bereich des Amateur¬ 
funks sehr spärlich gesät. Eigentlich schade, denn gerade der CPC (6128) 
fällt durch gute Abschirmung gegen Hochfrequenz, im Vergleich zu anderen 
Rechnern seiner Preisklasse, auf, was für mich das Hauptkriterium zum 
Kauf dieses Computers darstellte, da ich Funkamateur bin und den Compu¬ 
ter als Hilfsmittel zum Hobby verwenden wollte, ohne beim Kauf arm zu 
werden. Wie sich später herausstellte, war aber keine Software erhältlich, 
was mich wiederum zur Selbsthilfe veranlaßte. 


Hier liegt nun das Ergebnis dieser Selbst¬ 
hilfe vor. ’SAT ist ein Programm zum 
Berechnen von Satellitenbahnen, der 
Sendebereich wird dabei grafisch ausge¬ 
geben. 

Wie das Programm funktioniert 

Zum Installieren des Programms starten 
Sie zunächst das Hilfsprogramm 
“SAT.GEN“. Es generiert nun die Datei 
“SAT.DAT“ auf der Diskette. Diese Da¬ 
tei enthält einige Daten, die das Haupt¬ 
programm benötigt. In ihr stehen die ein¬ 
gegebene eigene Position sowie die Bahn¬ 
daten der Satelliten. Als nächstes wird 
die Weltkarte mit “SAT.MAP“ erzeugt. 
Dieses Programm enthält alle Daten für 
die Karte, die das Hauptprogramm zur 
Darstellung der Hörbarkeitszone der Sa¬ 
telliten verwendet. Die Karte wird er¬ 
zeugt, indem die Kontinente umrandet 
und dann mit Hilfe der Fill-Routine aus- 
gefüllt werden. Die Daten setzen sich aus 


dem ersten Punkt, der Anzahl der weite¬ 
ren Punkte, der Anzahl der Punkte zum 
Füllen, den Umrandungspunkten und 
den Füllpunkten zusammen. Anschlie¬ 
ßend folgen die Inseln. Alle Punkte wer¬ 
den in Grad Ost und Grad Nord angege¬ 
ben. Wem die Karte also nicht gefällt, der 
kann sie gerne ändern, aber Vorsicht: 
eine falsche Angabe kann fatale Folgen 
haben! 

Wenn die Karte fertig gemalt ist, kann sie 
durch die Eingabe von “s“ als “SAT. 
SCR“ gespeichert werden. Jede andere 
Eingabe beendet das Programm ohne Si¬ 
cherung der Karte. Danach wird “SAT.“ 
eingegeben. In Zeile 20 wird der Moni¬ 
tor auf 60 Hz umgeschaltet. Sollte das bei 
Ihnen zu Komplikationen führen, so lö¬ 
schen Sie einfach diese Zeile. Sie ist für 
das weitere Programm bedeutungslos. 
’SAT ist der Starter, der die Karte und 
Bahndaten lädt, den Blockverschiebebe- 
tehl COPY — entspricht dem Assembler¬ 
befehl LDIR — installiert und die Son¬ 


derzeichen generiert. Er startet anschlie¬ 
ßend das eigentliche Hauptprogramm 
“SAT.PRG“. Das Programm wird also 
mit “RUN“SAT“ gestartet. Es meldet 
sich nun mit dem Hauptmenü. 

Die Dateneingabe 

Bei der Bahnberechnung fragt das Pro¬ 
gramm zunächst nach dem Satelliten und 
dann nach dem Datum, getrennt nach 
Tag, Monat und Jahr, sowie nach der 
Uhrzeit in UTC. Mit UTC ist die Weltzeit 
gemeint, früher bekannt als GMT. Das 
ist unsere Zeit -1 Stunde beziehungsweise 
Sommerzeit -2 Stunden. Damit hat das 
Programm alle notwendigen Daten und 
berechnet nun die Position des Satelliten. 
Links oben erscheint der Name des Sa¬ 
telliten, rechts oben das Datum und un¬ 
ten die Statuszeile. Sie enthält die Uhr¬ 
zeit, die Antennenwinkel Azimut und 
Elevation, die momentane Anomalie MA 
und die Umlaufhummer. 

Die Uhrzeit wird in UTC, die Antennen¬ 
winkel in Grad angegeben. Azimut gibt 
die Richtung von 0 bis 360 Grad von 
Nord ausgehend im Uhrzeigersinn, Ele¬ 
vation den Erhebungswinkel über Hori¬ 
zont von -90 bis 90 Grad an. Die Anga¬ 
be 180 Grad /10 Grad bedeutet also, daß 
der Satellit genau im Süden 10 Grad über 
dem Horizont steht. Die momentane 
Anomalie MA gibt an, auf welchem 
Punkt der Bahn, ausgehend vom Peri¬ 
gäum (dem erdnächsten Punkt), sich der 
Satellit gerade befindet. Sie wird in 
256stel Teilen angegeben. Eine MA von 
0 bedeutet, daß der Satellit sehr dicht an 
der Erde ist, eine MA von 128, daß er 
sich im Apogäum (erdfernsten Punkt) be¬ 
findet. Diese Angabe ist wichtig, da sie 
die Lage des Satelliten im All indirekt an¬ 
gibt, was wichtig für die Stromversor¬ 
gung des Satelliten ist, die mittels Solar¬ 
zellen geschieht. Liegt der Satellit näm¬ 
lich ungünstig zur Sonne, so kann er zeit¬ 
weilig von der Bodenstation abgeschaltet 
werden, um die Akkus zu schonen. 

Ist die Elevation größer als -6 Grad, so 
erscheinen unten in der Karte Angaben 
über die ungefähre Entfernung des Satel¬ 
liten vom eigenen Standort sowie die un¬ 
gefähre Bakenfrequenz. Bei der ersten 
Angabe erscheint die genaue Sendefre¬ 
quenz des Satelliten, alle weiteren Anga¬ 
ben berücksichtigen den Dopplereffekt. 
Fehlt die Bakenfrequenz in der Anzeige, 
so wurde sie bei der Bahndateneingabe 
nicht mit angegeben. Der schraffierte Be¬ 
reich auf der Karte ist der Sichtbereich 
des Satelliten. Das Programm berechnet 
ungefähr alle 30 Sekunden die neuesten 
Werte. Sollte die Uhr falsch gehen oder 
soll einige Minuten im voraus berechnet 
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werden, so ist ein Verstellen der Uhrzeit 
mit den Cursortasten in Schritten zu ei¬ 
ner beziehungsweise zehn Minuten mög¬ 
lich. 

Neue Berechnung 

Durch “0“ gelangt man in das Hauptme¬ 
nü zurück. Wird erneut eine Berechnung 
gewünscht, so kann die alte Zeit durch 
< ENTER > bei der Frage nach dem Tag 
übernommen werden. Mit dem Menü¬ 
punkt “Satellit einfügen“ kann ein neu¬ 
er Satellit in die Datentabelle übernom¬ 
men werden. Das Programm fragt zu¬ 
nächst nach dem Namen des Satelliten. 
Eine Eingabe von “0“ bricht diesen Pro¬ 
grammteil hier ab, sonst wird anschlie¬ 
ßend nach den Kepler-Bahndaten gefragt, 
wobei die Eingabe der 'Epoch Time’ ge¬ 
trennt nach Jahr und Tag erfolgt. Die er¬ 
sten beiden Ziffern dieses Wertes geben 
das Jahr, alle weiteren den Tag an. Liegt 
Ihnen direkt die Referenzzeit vor, so kön¬ 
nen Sie diese auch direkt eingeben. Be¬ 
antworten Sie dazu die Frage nach den 
Epoche Jahr mit < ENTER > . Mit dem 
Menüpunkt “Satellit löschen“ können 


Sie einen Satelliten aus der Datei entfer¬ 
nen. Er wird vollständig gelöscht. Ein 
Retten ist nur durch Herausnehmen der 
Diskette, Reset und Neustart möglich, 
wenn die Daten bereits auf Diskette ste¬ 
hen, da die jeweils aktuellen Daten beim 
Programmende automatisch auf Diskette 
gespeichert werden. 

Mit dem Menüpunkt “Bahndaten än¬ 
dern“ haben Sie die Möglichkeit, alte 
oder falsche Bahndaten zu ändern. Die 
alten Werte können durch Eingabe von 
<ENTER> übernommen werden, 
neue Werte müssen vollständig eingege¬ 
ben werden. Sollte bei den Bahndaten 
EMM beziehungsweise die Bakenfre¬ 
quenz fehlen, so können Sie hier auch 0 
eingeben. Übrigens: Bahndaten werden 
im Laufe der Zeit ungenau, da sich die 
Fehler summieren. Sie sollten sich alle 
paar Monate neue Bahndaten gönnen, 
wenn die Berechnung hinreichend genau 
bleiben soll. 

Mit dem Menüpunkt “Satellit umnen¬ 
nen“ können Sie den Namen eines Satel¬ 
liten ändern, wobei die Bahndaten erhal¬ 
ten bleiben. Eine Eingabe von “0“ bricht 
auch diesen Menüpunkt ab. 


Mit dem Menüpunkt “Standort ändern“ 
können Sie einen Bezugspunkt auf der 
Erde zur Berechnung der Antennenrich¬ 
tung und Entfernung eingeben. Diese Po¬ 
sition wird mit den Bahndaten auf der 
Diskette gespeichert, das heißt, es ge¬ 
nügt, einmal den eigenen Wohnort anzu¬ 
geben. Wenn Sie das Programm beenden 
und Sie einige Daten geändert haben, so 
achten Sie darauf, daß sich die Diskette 
im Laufwerk befindet, da das Programm 
versuchen wird, die neuen Daten zu spei¬ 
chern. 

Probleme mit dem CPC 464 

Per Emulator ist das Programm zwar 
theoretisch auf allen CPC 464 lauffahig, 
doch könnten durch die unterschiedli¬ 
chen Versionen dieses Computers (Bau¬ 
jahr vor oder nach 1985) Probleme auf¬ 
tauchen. In diesem Fall ist Handarbeit 
angesagt. 

So, damit wäre alles Wichtige genannt, 
wir wünschen Ihnen viel Vergnügen beim 
Beobachten ’Ihres’ Satelliten. 

(H.-H. Schulze / jb) 


für 464-664-6128 



10 SYMBOL AFTER 90:MEMORY &55FF:FOR i=&AF0 
0 TO &AF2 D:READ a$:POKE 1 ,VAL("&" + a$) :NEXT 
i:CALL &AF00:DEG:DATA 1 , 9 ,AF, 21 ,12,AF,03, 
Dl,SC,E,AF,C3,16,AF,43,4F,50,09,0,0,0,0, FE 
,3,00,DD,5E,0,DD,56,1,DD,4E,2,DD,46,3,DD,6 
E,4,DD,66,5,ED,BO,C9 

20 FOR l=&B0C7 TO &B0EF:READ a$:POKE i.VAL 
( "8," + a$) : NEXT:CALL &BOC7:DATA F5,C5,E5,21, 
FO,BO,1,F,8C,ED,49,2B,7E,4,ED,79,5,D,F2,D0 
,B0,E1,C1,F1,C9,3F,28,2E,8E,1F,6,19,1B,0,7 
,0,0,30,0,00,0 

30 KEY DEF 66,0,0,0,0:SYMBOL 123,198,0,120 
,12,124,204,118,0:SYMBOL 125,198,0,102,102 
,102,102,62,0:SYMBOL 124,198,0,60,102,102, 
102,60,0:SYMBOL 126,120,198,198,252,198,19 
8,248,192:SYMBOL 91,219,60,102,102,126,102 
, 102,0 

40 SYMBOL 255,48,72,72,48,0,0,0,0:SYMBOL 9 
3,198,0,198,198,198,198,60,0:SYMBOL 92,198 
,56, 198,198, 198,108,56,0:SYMBOL 163,24,36, 
36,24,0,0,0,0:KEY DEF 17,1,123,91:KEY DEF 
19 , 1 , 125,93:KEY DEF 26,1, 124,92:KEY DEF 24 
,1,126:KEY DEF 24,1,94,163 

50 CALL &BB48:POKE &BDEE,&C9:MODE 1:BORDER 
0:PAPER 0:ORIGIN 320,200:pO=l:pl=9:p2=3:p 
3=26:INK 0,0:INK 1,0:INK 2,0:INK 3,0:a$="s 
at.sc r":LOAD a$:PLOT -317,-180,3:DRAW 317, 
-180,3:PLOT -319,-182,0:DRAW 319,-182,0:PL 
OT -319,-184,0:DRAW 319,-184,0 
60 LOCATE 1,25:PRINT STRING$(40,“ ");:INK 
0,pO:INK 1,pl:INK 2,p2:INK 3,p3:1COPY,&C00 
0,&4000,&5600:ORIGIN 0,0:PLOT 85,320,3:DRA 
W 8 5,2 20:P LOT 85,270:DRAW 125,270:DRAW 125 
,320:DRAW 12 5,2 20:P LOT 155,220:DRAW 175,32 
0:DRAW 19 5,2 2 0:P LOT 165,270 
70 DRAW 185,270:PLOT 225,220:DRAW 225,320: 
DRAW 245,270:DRAW 265,320:DRAW 265,220:PLO 
T 295,310:DRAW 295,280:DRAW 305,270:DRAW 3 


[12593] 


[ 11221 ] 


[10775] 


[ 11006 ] 


[ 15729 ] 


[15576] 


[12572] 
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25,270:DRAW 335,260:DRAW 33S,230:DRAW 325, 
220:DRAW 305,220:DRAW 295,230:PLOT 295,310 
:DRAW 305,320:DRAW 325,320 

80 DRAW 335,310:PLOT 365,310:DRAW 375,320: 
DRAW 39 5,320:DRAW 405,310:DRAW 405,230:DRA 
W 395,220:DRAW 375,220:DRAW 365,230:DRAW 3 
65,310:PLOT 435,320:DRAW 435,220:PLOT 475, 
320:PLOT 475,320:DRAW 435,320:PLOT 435,270 
:DRAW 465,270:PLOT 495,320 

90 DRAW 535,320:PLOT 515,320:DRAW 515,220: 
PLOT 535,330:DRAW 545,320:DRAW 545,220:DRA 
W 535,210:DRAW 85,210:DRAW 75,220:DRAW 75, 
320:DRAW 85,330:DRAW 535,330:PL0T 535,340: 
DRAW 555,320:DRAW 555,220:DRAW 535,200:DRA 
W 85,200:DRAW 65,220 

100 DRAW 65,320:DRAW 85,340:DRAW 535,340:P 
EN 3,1:LOCATE 15,14:PRINT "pr{sentiert":LO 
CATE 11 , 18 : PR I NT "SAT-MASTE R'‘:PLO 
T 157,108:DRAW 465,108 

110 maxsat=20:DIM sat$(maxsat),zi(maxsat), 
zo(maxsat),ze(maxsat),zw(maxsat),zmm(maxsa 
t),zemm(maxsat),zg(maxsat),zumlauf(maxsat) 

,z bake(maxsat) 

120 PEN 3,0:ON BREAK STOP:f = 3 60.985647:max 
sat$="123456789ABCDEFGHIJK":0PENIN "sat.öa 
t" : IN PUT tt9,sat,meml ,memb:FOR i = 1 TO sat:I 
NPUT #9,sat$(i), z i(i),zo(i),ze(i),zw(i),zm 
m(i),z emm(i),zg(1),zumlauf(i ),zbake(i):NEX 
T i:CLOSEIN:CHAIN"SAT.PRG" 


[12439] 


[ 12992] 


[6970] 


[7603] 


[ 15303] 


10 'Dieser Lader generiert "SAT.DAT" mit d [8294] 
em Standort 9 Grad Ost und 52 Grad Nord, s 
owie den beiden Satelliten Oscar 10 und Os 
car 13 

20 OPENOUT "sat.dat":WRITE #9,2,9,52 : 'Anza [5443] 
hl der Satel1iten,Laenge,Breite 

30 WRITE #9,"AMSAT OSCAR 10 ",27.3293 [5843] 

,323.874,0.6026471,304.2954,2.05875576,0.0 
000008,3786.83715,3701,145.81:'Oscar 10-Ba 
hndaten 
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40 WRITE ♦9,"AMSAT OSCAR 13 ",57.4,24 [6788] 

8.11,0.6536,186.95,2.09695,0,3839.65788,47 
,145.812Oscar 13-Bahndaten vom 13.7.1988 
50 CLOSEOUT [902] 

60 'Es handelt sich um Amateurfunk-Satel11 [6997] 

ten, somit besteht eine allgemeine Empfang 
sgenehmigung! 


10 CLS [91] 

2o ' *** Weltkarte *** [1904] 
30 ' *** Afrika *** [1714] 
40 DATA -6,36,149,1:' Init [720] 


50 DATA -7,34,-8,33.5,-9,33,-10,30,-11,29, [4225] 
-12,28,-13,28,-14,27,-15,25.5,-16,24.3 
60 DATA -17,22,-17.5,21.5,-17,20.5,-16.5,1 [4006] 
8,-17,16,-18,15,-17,13,-17,12,-16,12,-15,1 
1 

70 DATA -14,10,-13,8.5,-12,7,-11,6,-10,5.5 [4071] 
,-9,5,-8,4.5,-7,4,-6,5,-5,4.5 

80 DATA -4,4.5,-3,5,-2,4,5,-1,5,0,5.5,1,6, [3681] 
2,6.5,4,6.5,5,5,6,4.5 

90 DATA 8,4.5,9,4,10,2,9,-0.5,9.5,-2,10,-8 [1966] 
,11,-2.5,12,-5,13,-8,13.5,-9 

100 DATA 14,-9.5,13.5,-10,13.5,-11.5,13,-1 [4616] 
2.5,12,-15.5,11.5,-16,11.5,-18,12,-18.5,13 
,-20,13.5,-21.5 

110 DATA 14,-22.5,14.5,-25,14.5,-26,15,-28 [3858] 
,15.5,-28,16,-29,17,-29.5,17,-30,18,-31.5, 

18,-32 

120 DATA 18,-33,16.5,-33,18,-34,20,-35,22, [2665] 
-34,29,-34,25,-33.5,27,-33.5,28,-33,29,-32 
130 DATA 30,-31.5,31,-29.5,32,-28.5,32.5,- [4230] 
28,32.5,-26,33,-25.5,35,-25,36, 7 24,36,-22, 

35,-20.5 

140 DATA 36,-19,37,-18,39,-17,40,-16,40.5, [4046] 

-15.5,40.5,-10,39.5,-10,39.5,-8,39.5,-4,40 

,-3.5 

150 DATA 41,-2.5,42,-1,43,0,45,2,46,2.5,47 [2240] 
,3,48,5,49,6,50,9,51,10 

160 DATA 51,12,50,11.5,48,11.5,47,11,46,11 [2815] 
,45,10.5,44,11,43,12,43,13,42,14 

170 DATA 40,16,39,17,38,18.5,37.5,19,37.5, [2744] 

21,36,22.5,36,22.5,35,25,33,28.5,32,31 

180 DATA 31,31.5,30,31,29,31,28,31.5,26,31 [2510] 

.5,24.5,32.5,22,33,20,32,20,31,19,30.5 

190 DATA 18,31,15,31,10,33,11,34,11,36,4,3 [2862] 

6,-2,35,-4,35,-6,36 

200 DATA 0,20:'fi11 [618] 

2io ' *** Australien *** [1460] 

220 DATA 142,-11,43,1:'init [1231] 

230 DATA 141,-12,141,-16,140,-18,136,-15,1 [3080] 

37,-12,134,-12,133,-11,130,-11,130,-14,129 
,-15 

240 DATA 128,-15,127,-14,125,-14,122,-17,1 [4443] 

22,-19,113,-22,113,-27,115,-32,116,-34,118 
, -35 

250 DATA 120,-34,123,-34,126,-32,131,-31,1 [4080] 
34,-33,135,-35,138,-33,137,-36,138,-35,140 
, -38 

260 DATA 143,-39,144,-38,145,-39,150,-37,1 [4830] 
53,-28,153,-26,148,-20,147,-18,146,-15,144 


, -15 

270 DATA 144,-13,143,-11,142,-11 [1564] 

280 DATA 130,-25:'fi11 [390] 

290 ' *** Suedamerika *** [843] 

300 DATA -80,9,65,1:'init [1514] 


310 DATA -78,9,-77,8,-75,12,-72,13,-73,12, [3318] 

-72,11,-70,11,-70,12,-70,11,-69,11 

320 DATA -69,10,-62,10,-62,8,-57,6,-53,6,- [3692] 

52,4,-50,2,-50,0,-45,-2,-45,-3 

330 DATA -40,-3,-35,-5,-35,-8,-38,-13,-39, [3685] 
-19,-42,-22,-44,-22,-48,-26,-48,-28,-54,-3 
5 

340 DATA -58,-34,-57,-36,-57,-37,-56,-37,- [3714] 
57,-38,-62,-38,-62,-41,-65,-41,-65,-43,-64 
, -43 

350 DATA -65,-43,-65,-45,-68,-46,-66,-48,- [2620] 
68,-51,-67,-53,-64,-54,-67,-55,-74,-53,-75 
, -50 

360 DATA -74,-37,-70,-18,-76,-15,-80,-7,-8 [3317] 
1,-6,-81,-4,-80,-3,-81,-2,-80,1,-79,2 
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370 DATA -79,3,-78,3,-77,6,-79,9,-80,9 [832] 

380 DATA -60,-20: 1 fi11 [495] 

390 ' *** Nordamerika und Groenland *** [1353] 

400 DATA -79,9,196,2:' Init [857] 


410 DATA -81,8,-81,7,-86,10,-86,11,-88,13, [2715] 

-92,14,-95,16,-96,15,-104,18,-106,20 

420 DATA -105,21,-109,25,-112,31,-113,32,- [2959] 

110,23,-112,24,-112,26,-115,28,-114,28,-11 

5,30 

430 DATA -118,34,-121,35,-124,39,-125,41,- [3876] 
125,48,-128,51,-127,51,-131,55,-133,55,-13 

6.58 

440 DATA -148,61,-148,60,-152,59,-151,61,- [3733] 
154,59,-153,58,-160,55,-165,54,-160,56,-15 

8.58 

450 DATA -157,59,-162,59,-162,60,-167,60,- [4336] 
165,61,-166,62,-165,63,-161,64,-161,65,-16 
7,65 

460 DATA -168,66,-165,67,-162,66,-167,68,- [5076] 

157,72,-136,69,-129,70,-114,68,-119,72,-12 

3,71 

470 DATA -125,72,-125,74,-121,75,-111,73,- [4562] 

100,74,-100,75,-112,75,-124,76,-110,78,-10 

8,77 

480 DATA -108,79,-94,78,-96,81,-70,83,-55, [3815] 

82,-35,84,-23,83,-15,83,-20,78,-18,75 

490 DATA -22,73,-22,70,-27,68,-32,67,-35,6 [4114] 

6,-40,65,-44,60,-45,60,-46,61,-48,61 

500 DATA -52,64,-53,67,-51,69,-55,68,-55,7 [3632] 

1,-51,71,-53,72,-55,72,-58,76,-69,76 

510 DATA -72,78,-65,80,-73,79,-80,74,-67,7 [3167] 

0,-66,68,-62,66,-64,65,-67,66,-66,65 

520 DATA -65,64,-65,63,-67,62,-73,64,-78,6 [2857] 

4,-78,65,-74,65,-72,67,-76,67,-76,70 

530 DATA -82,70,-82,66.-85,65,-81,63,-87,6 [2688] 

3,-87,66,-89,64,-94,62,-95,59,-94,59 

540 DATA -94,57,-90,57,-85,55,-82,55,-82,5 [2344] 

3,-80,51,-79,52,-79,55,-76,55,-79,59 

550 DATA -78,60,-78,63,-74,63,-70,61,-70,5 [4056] 

9,-66,59,-65,60,-60,55,-56,53,-55,52 

560 DATA -56,50,-54,49,-53,47,-59,48,-58,5 [3238] 

1, -60,50,-67,50,-70,47,-64,49,-64,46 

570 DATA -60,45,-65,43,-65,44,-65,45,-70,4 [3167] 

3,-70,42,-73,41,-76,37,-75,35,-81,32 

580 DATA -82,31,-80,26,-81,25,-82,25,-83,2 [2701] 

8,-83,29,-84,30,-85,29,-86,30,-89,30 

590 DATA -89,28,-94,30,-97,27,-97,25,-98,2 [3548] 

2, -96,19,-95,18,-91,19,-91,21,-87,22 

600 DATA -89,15,-85,16,-84,15,-84,11,-82,8 [1632] 


,-79,9 

610 DATA -90,15,-82,27:' Fill [643] 

620 ' *** Kuba *** [763] 

630 DATA -84,22,3,0:' Init [828] 

640 DATA -82,23,-75,20,-77,20 [1068] 

650 ' *** Hispaniola *** [492] 

660 DATA -72,19,1,0,-70,19 [695] 

670 ' *** Europa und Asien *** [2099] 

680 DATA 32,32,271,6:’ Init [1491] 


690 DATA 34,32,35,32,36,35,36,37,27,37,26, [2821] 

41,29,41,31,41,33,42,35,42 

700 DATA 40,41,42,42,46,45,48,47,54,48,55, [3246] 

45.52.45.51.44.53.42.54.37 

710 DATA 50,37,48,39,50,40,46,45,33,45,38, [3469] 

45,39,47,35,46,36,45,33,45 

720 DATA 34,46,31,46,29,45,28,43,29,42,26, [2788] 

41.23.41.24.38.23.37.22.37 

730 DATA 20,42,14,46,12,44,15,42,16,42,15, [2426] 

42,18,40,17,41,16,40,17,39 

740 DATA 16,38,15,38,15,37,13,38,16,38,16, [2920] 

40,14,41,13,41,10,43,10,44 

750 DATA 9,45,6,43,3,43,3,42,0,40,0,39,-2, [2051] 

38,-5,38,-6,37,-7,38 

760 DATA -9,37,-9,39,-10,39,-9,41,-9,43,-8 [2991] 
,44,-1,43,-1,46,-2,47,-5,48 

770 DATA -5,49,-2,49,-2,50,-2,49,2,50,2,51 [2707] 
,4,52,5,53,7,54,9,54 

780 DATA 9,56,10,57,10,56,13,56,12,53,21,5 [2286] 
4,21,58,24,57,25,59 

790 DATA 30,60,28,61,22,60,21,61,21,63,26, [3140] 

66,22,66,20,64,17,62,17,60 

800 DATA 17,60,17,59,16,56,14,56,14,56,12, [2071] 

59,8,58,6,59,5,62 

810 DATA 9,64,16,69,14,68,25,71,28,71,41,6 [2570] 
8,41,67,39,66,33,67,35,64 
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820 DATA 37,62,37,64,41,64,43,66,45,66,45, 
68,45,66,61,68,55,72,68,76,68,77,55,75,52, 

73 

830 DATA 55,72,68,67,70,73,78,72,104,77,89 

,82,113,77,113,75,105,73,115,74 

840 DATA 125,73,130,71,141,73,168,69,168,7 

0,174,70,180,68,180,65,177,65,179,63 

850 DATA 170,60,163,60,161,55,157,51,157,5 

7,163,62,158,61,157,59.142,59,135,55 

860 DATA 140,54,140,48,135,43,130,42,127,3 

9,128,35,126,34,126,38,125,38,125,40 

870 DATA 122,39,123,41,116,39,118,37,122,3 

7,119,35,121,31,120,30,121,31,118,25 

880 DATA 115,23,110,22,110,18,111,19,110,2 

0,110,22,108,22,106,19,109,15,109,12 

890 DATA 105,8,105,11,100,14,99,9,103,6,10 

4,2,101,4,100,7,98,8,98,17 

900 DATA 95,16,94,16,94,20,92,22,87,22,87, 

21,86,20,85,20,83,17,83,16 

910 DATA 82,16,80,15,80,13,79,12,79,11,78, 

11,78,10,77,8,76,8,73,19 

920 DATA 73,22,72,21,70,21,69,22,70,23 69 

23,66,25,61,25,57,26,57,27 

930 DATA 56,27,55,26,52,27,51,28,50,30 48 

30,49,28,50,27,51,24,51,26 

940 DATA 51,24,54,24,56,26,57,25,59,24,60, 

23,58,19,55,17,52,16,52,15 

950 DATA 44,13,43,15,43,17,39,21,39,23,38 

24,35,28,34,27.5,32,30,32,32 

960 DATA 60,45,12,43,13,42,15,41,54 73 159 

,55:' FiU 

970 '*** Asien/Westen *** 

980 DATA -180,66,7,1: 1 Init 

990 DATA -180,68,-174,67,-172,67,-171 66 - 

173,65,-173,64,-180,66 

1000 DATA -179,67:' Fill 

1010 ' *** Neuseeland-Nord *** 

1020 DATA 173,-38,9,1:' Init 

1030 DATA 174,-38,173,-39,174,-40,174 -41 

173,-41,174,-41,178,-37,175,-38,173,-34 

1040 DATA 175,-39:' Fill 
1050 ' *** Neusee 1and-Sued *** 

1060 DATA 173,-43,5,2:' Init 

1070 DATA 170,-44,165,-48,167,-48,171 -47 

173,-43 ’ ' ' 

1080 DATA 170,-46,172,-44:' Fill 
1090 ' *** Island *** 

1100 DATA -24,65,8,1:' Init 

1110 DATA -23,66,-21,65,-14,66,-13,65 -14 

64,-18,63,-23,64,-23,66 

1120 DATA -18,64: ' Fill 

1130 ’ *** Neuguinea *** 

1140 DATA 140,-8,23,5:’ Init 

1150 DATA 141,-9,143,-9,144,-8,146,-8,147 

-10,151,-11,147,-7,148,-7,148,-6,146,-6 

1160 DATA 146,-5,144,-4,137,-2,135,-4 134 

-1,131,-1,133,-3,133,-5,132,-5,137,-5’ 

1170 DATA 139,-7,138,-8,140,-8 

1180 DATA 145,-6,134,-4,133,-2,149,-10,147 

,-8:’ Fill 

1190 ' *** Antarktis *** 

1200 DATA -180,-78,37,1:'Init 
1210 DATA “158,-77,-145,-77,-145,-76 -125 
- 73,-100,- 74,-102,-73,-72,-73,-74,-69,-70! 
-68,-68,-69 

1220 DATA -65,-65,-58,-63,-62,-68,-60,-75, 
-44,-78,-33,-77,-11,-72,-3,-70,33,-70,33,- 

69 

1230 DATA 39,-70,40,-68,52,-66,70,-67,70,- 
68,75,-70,83,-67,112,-66,140,-66,166,-70’ 


[ 3832 ] 

[ 3722 ] 

[3531] 

[3621] 

[3117] 

[4182] 

[3426] 

[2162 ] 

[3001] 

[3028] 

[3070 ] 

[2841] 

[2629] 

[3297] 

[1928] 

[1818 ] 
[1666] 
[2668] 

[ 707] 

[1432] 
[1199 ] 
[3850] 

[1576] 
[1135] 
[ 701] 
[2604] 

[ 1588] 
[551] 
[1658] 
[3121 ] 

[1576] 
[901 ] 
[817] 
[2797] 

[3602] 

[1332] 

[ 1656] 

[1192] 
[1674] 
[4516] 

[3357] 

[3154] 


1240 DATA 170.-72,162,-75,163, 
180,-90,-180,-90,-180,-78 

1250 DATA 0,-78:'fill 
1260 1 *** Madagaskar *** 

1270 DATA 49,-12,11,1:' Init 
1280 DATA 50,-13,50,-15,47,-25 
25,43,-22,44,-20,43,-18,44,-17 
12 

1290 DATA 46,-20:' Fill 
1300 ' *** Taiwan *** 

1310 DATA 121,22,1,0,122,24 
1320 ' *** Java *** 

1330 DATA 105,-7,1,0,121,-8 


Listing SAT 


-78,180,-78, [3125] 

[859] 

[2089 ] 
[1040] 

,45,-26,44,- [3637] 
,47,-15,49,- 

[ 426] 
[439 ] 

[1266] 
[ 52 7 ] 

[1086] 


1340 ' *** Palawan *** 

1350 DATA 117,8,1,0,119,11 
1360 ' **# Lu 20 n *** 

1370 DATA 121,13,9,1:' Init 

1360 DATA 121,18,122,18,122,16,121,16,121, 

14,125,14,125,8,124,8,121,13 

1390 DATA 123,11:' Fill 

1400 ' *** Borneo *** 

1410 DATA 119,6,8,1,117,7,112,2,109,2,110, 

-3,116,-4,118,1,117,3,119,6,112,0 

1420 ' *** Sumatra *** 

1430 DATA 96,5,6,1,105,-5,106,-2,103,-1,10 
3,0,97,5,96,5,101,0 
1440 1 *** Sachalin *** 

1450 DATA 143,47,4,0:' Init 

1460 DATA 143,54,145,48,143,49,143,47 

1470 ' *** Hokkaido #** 

1480 DATA 141,43,5,1:' Init 

1490 DATA 142,45,145,44,143,42,140,43,141, 

43 

1500 DATA 143,43:' Fill 
1510 ' *** Honshu *** 

1520 DATA 140,41,12,1:' Init 

1530 DATA 141,41,142,40,141,36,136,33,132, 

31,131,31,129,33,133,36,136,36,137,38,139, 

38,140,41 

1540 DATA 138,36:' Fill 
1550 ' *** GB *** 

1560 DATA -6,50,17,2:' Init 

1570 DATA 1,51,0,52,1,53,0,53,-3,56,-2,57. 

5,-4,57.5,-3,58.5,-5,58.5,-6,56 

1580 DATA -5,56,-5,55,-3,55,-3,53,-4,53,-5 

,52,-3,51 

1590 DATA -1,52,-5,57:' Fill 
1600 ' *** Irland *** 

1610 DATA -10,52,6,1:' Init 

1620 OATA -6,52,5,-6,55,-8,55,-8,54,-10,54 

.-10,52 

1630 DATA -8,53:' Fill 
1640 ' *** Sri Lanka *** 

1650 DATA 80,9,3,1:' Init 
1660 DATA 80,6,82,7,80,9 
1670 DATA 81,8:' Fill 
1680 ’ *** Tasmanien *** 

1690 DATA 148,-41,4,1:' Init 

1700 DATA 145,-41,146,-43.5,147,-43.5,148, 

-41 

1710 DATA 147,-42:' Fill 
1720 ' *** Inseln *** 

Jamaika 
Puerto Rico 
Bahamas 
Trinidad 

1770 DATA -63,18,-61,16,-61,14:' Karibik 

1780 DATA -60,-52,-59,-52:' Falkland 

1790 DATA -37,-54:' Suedgeorgien 

1800 DATA -90,0:' Galapagos 

1810 DATA -110,-29:' Osterinsel 

1820 DATA -9,72: 1 Jan Mayen 

1830 DATA —7,62:' Foeroyar 

1840 DATA -2,60:' Shetland 

1850 DATA 70,-50:' Kerguelen 

1860 DATA 0,-160:' Jarvis 

1870 DATA 177,-18,179,-17:' Fiji 

1880 DATA -175,-21:' Tonga 

1890 DATA -178,-18:' Niue 

1900 DATA -162,5,-160,4,-158,2:' Palmyra 

1910 DATA -177,28,-175,28,-170,25,-160,22, 

-158,21,-157,20,-156,19:' Hawai1 

1920 DATA —169,17:' Johnston 

1930 DATA 166,19:' Wake 

1940 DATA 155,24:' Marcus 

1950 DATA 167,-1:' Nauru 

1960 DAiA 161,10,162,11:' Eniwetok 

1970 DATA 166,11,167,11,166,9,169,8,170,12 

,170,10,172,6,173,2,175,-2:' Bikini,Marsha 

1 1 und Gi1be rt 

1980 DATA -145,16,-144,15:' Saipan.Guam 
1990 DATA 138,9,140,10:' Yap 
2000 DATA 135,8:' Palau 

2010 DATA 146,-2,155,-6,157,-7,159,-8,162, 
-11: Bismarck 

2020 DATA 166,-15,168,-18:' Vila 

2030 DATA -176,-44,179,-48,178,-50:' Chath 

am-Antipode 


Listing SAT 


1730 DATA -77,18: 
1740 DATA -66,18: 
1750 DATA -78,25: 
1760 DATA -61,11: 


[ 75 7] 
[850] 
[1659] 
[1185] 
[2762] 

[561] 

[966] 

[3136] 

[502] 

[2703] 

[ 440 ] 

[ 643] 

[1713] 

[361] 

[ 996 ] 

[1654] 

[818] 

[715] 

[942] 

[3802] 


[ 767 ] 

[ 764] 
[408] 
[2786] 

[2667] 

[ 1198] 
[1192] 
[ 1102 ] 
[1567] 

[815] 

[ 1202 ] 
[805] 

[ 525] 

[ 758] 
[641] 

[ 745 ] 
[1750] 

[ 957 ] 
[611] 
[663] 
[1125] 
[1615] 
[ 957 ] 
[1707] 
[1527] 
[1554] 
[ 742 ] 

[ 1587] 
[1540] 
[ 672 ] 
[1157] 
[ 667] 
[679] 

[1343] 

[ 645] 

[ 1342] 

[2060] 
[3212] 

[ 635 ] 

[ 768] 

[ 1121 ] 

[1147] 

[ 1158] 
[5218] 


[1445] 
[ 1122 ] 
[1345] 
[2439] 

[1163] 
[ 2212 ] 
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Programm/Anwendungen 


2040 

DATA 7,0:' Sao Tome 

[1541] 

2050 

DATA 8,1:' Principe 

[540] 

2060 

DATA 40,-21:' Bassas 

[ 1360 ] 

2070 

DATA 55,-5,53,-6,46,-9,51,-9,56,-10,5 

[3765] 

5,-21 

,57,-20,63,-20,47,-12,43,-12:' Seyche 


1 1 en 

2080 

DATA 44,-13,55,-15,54,12,92,14,92,12, 

[3679] 

92 , 10 

,93,7:' ind. Ozean 


2090 

DATA 120,-10,123,8,121,6,126,-3,129,- 

[3995 ] 

3,130 

,-3,129,1,43,11,43,7,43,5 


2100 

DATA 43,3,43,1:' auch ind. Ozean und 

[ 2296 ] 

Phi]1ipinen 


2110 

DATA 2,74:' Baeren 

[435] 

2120 

DATA 14,36:' Malta 

[ 1330] 

2130 

DATA 3,39,4,40:' Balearen 

[628] 

2140 

DATA -17,33:' Madeira 

[ 1287 ] 

2150 

DATA -17,27,-16,28,-15,28,-14,29:' Ka 

[1622] 

na ren 

2160 

DATA -23,6,-22,7,-23,8:' Kapverden 

[2312] 

2170 

DATA -25,39,-23,38:’ Azoren 

[942] 

2180 

DATA -25,1:' St Paul 

[621] 

2190 

DATA -17,-3:' Ascension 

[ 687] 

2200 

DATA -13,-8:' St Helena 

[1333] 

2210 

DATA -17,-28,-15,-40:' Tristan da Cun 

[2613] 

ha und Gough 


2220 

DATA -65,32:' Bermuda 

[389] 

2230 

DATA -108,-28:' Sala y Gomez 

[891] 

2240 

DATA -142,-8,-141,-9,-139,-10:' Marqu 

[1718] 

esas 

2250 

DATA -111,8: ' Socorro 

[971] 

2260 

DATA -115,18:' Clarion 

[ 882 ] 

2270 

DATA -87,5:' Kokos 

[1097] 

2280 

DATA -82,4:' MalpelO 

[ 736] 

2290 

DATA 96,-12:' Tschagos 

[ 478] 

2300 

DATA -55,-61:' Suedshe11 ands 

[ 1505 ] 

2310 

DATA -45,-61:' Suedorkney 

[1167] 

2320 

DATA -26,-59,-25,-57,-28,-56:' Suedsa 

[1824] 

ndwich 


2330 

DATA -144,-27:' Rapa 

[ 682 ] 

2340 

DATA -173,61:' St.Martin 

[923] 

2350 

DATA 166,55,168,54:' Kommandoerins. 

[2368] 

2360 

MODE 1 

[ 506] 

2370 

ORIGIN 320,200 

[215] 

2380 

vx=l.76:vy=2.15:p0=0:pl=17:p2=2:p3=26 

[2678] 

2390 

INK 0,p0:INK 1,pl:INK 3,p3:INK 2,p2 

[1977] 

2400 

PAPER 0:CLS 

[ 973] 

2410 

'Gradnetz 

[429] 

2420 

PEN 2:FOR i=-150 TO 150 STEP 30 

[2466] 

2430 

PLOT i*vx,90*vy,2:DRAW i*vx,-90*vy,2 

[1405] 

2440 

NEXT i 

[ 375 ] 

2450 

FOR i=-60 TO 60 STEP 30 

[608] 

2460 

PLOT 180*vx,i*vy,2:DRAW -180*vx,i*vy, 

[2618] 

2470 

NEXT i 

[ 375 ] 

2480 

'Kontinente umranden und fuellen 

[3147] 

2490 

FOR k=1 TO 27 

[1101 ] 

2500 

READ 11,bb,h,hh:'init 

[ 1355 ] 

2510 

FOR i=1 TO h 

[446] 

2520 

ba = bb 

[415] 

2530 

1 a=l 1 

[542] 

2540 

READ 11,bb 

[1026] 

2550 

PLOT 1a*vx,ba*vy,1 

[1212 ] 

2560 

DRAW 11*vx,bb*vy,1 

[ 226] 

2570 

NEXT i 

[ 375] 

2580 

IF hh=0 GOTO 2630 

[ 289 ] 

2590 

FOR i=1 TO hh 

[ 565 ] 

2600 

READ 11,bb 

[1026] 

2610 

MOVE 11 *vx,bb*vy:FILL 1 

[ 894] 

2620 

NEXT i 

[ 375 ] 

2630 

NEXT k 

[ 373] 

2640 

'Inseln punkten 

[ 882 ] 

2650 

FOR i=1 TO 131 

[531] 

2660 

READ 11,bb 

[1026] 

2670 

PLOT 11*vx,bb*vy,1 

[1106] 

2680 

NEXT i 

[ 375] 

2690 

' Rand 

[401] 

2700 

PLOT -180*vx,90*vy,3 

[1115] 

2710 

DRAW -180*vx,-90*vy,3 

[ 748 ] 

2720 

DRAW 180*vx,-90*vy,3 

[ 428] 

2730 

DRAW 180*vx,90*vy,3 

[ 642 ] 

2740 

DRAW -180*vx,90*vy,3 

[914] 

2750 

a$=INKEY$ 

[ 278 ] 

2760 

IF a$="" GOTO 2750 

[ 657 ] 

2770 

IF a$="s" OR a$="S" THEN SAVE "sat.se 

[3291] 

r",b,&C000,&4000 


Listing SAT 



2780 MODE 2 
2790 PEN 1 
2800 BORDER 0 
2810 END 


[513] 

[549] 

[1008] 
[ 110 ] 


10 f1ag=0:'Hauptmenue [1345] 

20 INK 0,0:CLS:LOCATE 1,2:PRINT " ====== [11902] 

SAT-MASTER ======":LOCATE 14,25 


7: 
9 : 


:PRINT CHR$(164); DS1HZ 1986":LOCATE 9 
PRINT "Bahnberechnung : l":LOCATE 9 

PRINT "Satellit einfjgen : 2" 

30 LOCATE 9 , 11:PRI NT "Satellit 1 !sehen : 

3":LOCATE 9,13:PRINT "Bahndaten {ndern 
: 4":LOCATE 9,15:PRINT "Satellit umnennen 

: 5":LOCATE 9,17:PRINT "Standort {ndern 
: 6":LOCATE 9,20:PRINT "Programmende 
: 0" 

40 WHILE INKEY$<>"":WEND 

50 a$ = IN KEY $:IF a$="" GOTO 50 ELSE IF a$=" 
0" THEN 70 

60 ON INSTR(“123456",a$) GOSUB 1800,220,16 
30,870,550,3830:GOTO 20 
70 'Programmende 
80 IF f1ag=0 THEN CALL 0 

90 OPENOUT "sat.dat“:WRITE #9,sat,meml,mem 

b:FOR i = 1 TO sat:WRITE #9,sat$(1 ) , zi(i ) ,zo 

(i),ze(i),zw(i),zmm(i),zemm(i),zg(i),zumla 

uf(i),zbake(i):NEXT:CLOSEOUT:!ERA,"sat.bak 

":CALL 0 

100 'Submenue 

110 CLS:IF sat=0 THEN 160 

120 LOCATE 9,1:PRINT "Welchen Satelliten ? 

":FOR i=1 TO sat:LOCATE 7,3+i:PRINT sat$(i 
);" : " ; : I F i<10 THEN PRINT i ELSE PRINT " 

";CHR$(i+55) 

130 NEXT i:LOCATE 7,4+i:PRINT "Hauptmenue 
: 0" 

140 j$=INKEY$:IF j$="" GOTO 140 
150 IF j$="0" THEN RETURN ELSE j=INSTR(max 
sat$,UPPER$(j$)):IF j=0 OR j>sat GOTO 140 
ELSE RETURN 

160 CLS:LOCATE 5,10:PRINT "Die Bahndaten s 
ind fehlerhaft."rGOTO 210 
170 'sat$ ausgeben 
180 CLS:LOCATE 9,2:PRINT 
t:":IF sat=0 THEN 160 

190 FOR i=1 TO sat:LOCAT E 3,4+i:PRINT sat$ 

(i ) ; ” : " ; : IF i<10 THEN PRINT i ELSE PRINT 

" ";CHR$(i+55) 

200 NEXT 

210 LOCATE 39,25:PRINT ">" 

URN 

220 'Satellit eingeben 
230 IF sat<maxsat THEN 250 
240 CLS:LOCAT E 10,10:PRINT 
GOTO 210 
250 GOSUB 660 
260 IF a$ =“0" THEN RETURN 
270 IF sat=0 GOTO 310 
280 i=1 

290 IF UPPER$(name$)=UPPER$(sat$(i)) GOTO 
360 

300 IF i< sat THEN i=i + l:GOTO 290 

310 sat=sat+l 

320 sat$(sat)=name$ 

330 j = sat 

340 flag=1 

350 GOTO 900 

360 'Satellit doppelt 

370 CLS 

380 LOCATE 14,8 

390 PRINT "Der Satellit" 

400 LOCATE 15,10 

410 PRINT .;name$;. 

420 LOCATE 9,12 

430 PRINT "ist bereits vorhanden," 

440 LOCATE 10,17 

450 PRINT "]berschreiben(J/N) ?" 

460 k$=UPPER$(INKEY$):IF INKEY$="" THEN 46 
0 

470 IF k$="N" THEN RETURN 


Listing SAT 


'Die Datei enth{l 


CALL &8B18:RET 


' Datei vol1 


[15193] 


[1786 ] 

[ 2705 ] 

[3321] 

[1226] 

[ 574] 

[ 12931 ] 


[603] 

[ 798 ] 

[6600] 


[2728] 

[2533] 
[6496] 


[5865] 

[1713] 

[3952] 

[5835] 


[ 350] 
[1174] 

[ 6 72 ] 

[1334] 
[3313] 

[881] 
[1402] 
[1229] 
[423] 

[ 1867] 

[1934] 
[ 307 ] 
[1344] 
[ 639 ] 
[262 ] 
[320] 
t 385 ] 
[91] 

[ 689] 

[2610] 

[609] 

[ 737 ] 

[ 542 ] 

[3083] 
[ 689 ] 
[2336] 
[ 1448] 

[ 1033] 
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Programm/Anwendungen 


480 IF k$="J" GOTO 510 
490 IF k$="0" THEN RETURN 
500 GOTO 460 

510 'Namen ueberschreiber 
520 sat$(i)=name$ 

530 j = i 

540 GOTO 900 

550 'Satnamen {ndern 

560 GOSUB 100:'alten Namen erfragen 

570 IF j$="0" THEN RETURN 

580 CLS:name$="":a$= " " 

590 LOCATE 7,8 

600 PRINT "Neuer Name des Satelliten 
610 GOSUB 710:'Neuen Namen erfragen 
620 sat$(j)=name$ 

630 flag=1 

640 GOSUB 170:'Datei ausgeben 
650 RETURN 

660 Satellitennamen eingeben 

670 name$="" . 

680 CLS 

690 LOCATE 10,8 

700 PRINT "Name des Satelliten 
710 LOCATE 10,11 

720 PRINT "> <" 

730 LOCATE 11,11 

740 a$=INKEY$:IF a$="" GOTO 740 

750 IF a$= 0" AND LEN(name$)=0 THEN RETURN 

760 IF a$=CHR$(13) GOTO 840 

770 IF LEN(name$) = 18 AND a$<>CHR$(242) GOT 

0 850 

780 IF a$=CHR$(243) THEN a$=" " 

790 IF a$<>CHR$(242) OR name$="“ GOTO 830 
800 name$=LEFT$(name$,(LEN(name$)-1)) 

810 LOCATE ll+LEN(name$),11:PRINT " " 

820 LOCATE 11+LEN(name$),11:GOTO 740 
830 IF LEN(name$)< 20 AND a$<>CHR$(13) THEN 
name$=name$+a$:PRINT a$;:GOTO 740 
840 IF LEN(name$ ) <20 THEN name$ = name$+" 
GOTO 840 
850 a$=" " 

860 RETURN 

870 'Bahndaten {ndern 
880 GOSUB 100:'Submenue 
890 IF j$="0" THEN RETURN 

900 'Bahndateneingabe 

910 CLS 

920 LOCATE 6,1 

930 PRINT "Satellit ";sat$(j) 

940 LOCATE 1,4 
950 h = 0 
960 PRINT 


' Inkl i nati on : ■■ ; 

970 IF zi(j)>0 THEN PRINT zi(j):LOCATE 25 
4 

980 INPUT h 

990 IF h<>0 THEN z1 (j ) = h:h = 0:f1ag=1 
1000 LOCATE 1,6 

1010 PRINT "Nutation (RAAN) : 

1020 IF ZO(j)<>0 THEN PRINT zO(j ): LOCATE 2 
5,6 

1030 INPUT h 

1040 IF h<>0 THEN zo(j)=h:h=0:f1ag=1 
1050 LOCATE 1,8 

1060 PRINT "Exzentrizit{t : 

1070 IF ze(j)O0 THEN PRINT z e ( j ) ; : LOCAT E 
25,8 

1080 INPUT h 

1090 IF h<>0 THEN ze(j)=h:h=0:f1ag=1 
1100 LOCATE 1,10 

1110 PRINT "Argument des Perig{ums : 

1120 IF zw(j)< > 0 THEN PRINT zw(1LOCATE 
25, 10 

1130 INPUT h 

1140 IF h<>0 THEN zw(j)=h:f1ag=1 
1150 h=0 

1160 LOCATE 1,12 

1170 PRINT "Mittlere Bewegung (MM) : 

1180 IF zmm(j)< > 0 THEN PRINT zmm(j);:LOCAT 
E 25,12 
1190 INPUT h 

1200 IF h<>0 THEN zmm(j)=h:f1ag =1 
1210 h=0 

1220 LOCATE 1,14 

1230 PRINT "Abbremsung (EMM) : 


Listing SAT 


[ 1033] 
[971] 

[ 456] 

[ 773 ] 
[1161] 
[ 483] 

[ 320] 

[ 1205 ] 
[2408] 
[ 823 ] 
[989 ] 
[321] 
[3674] 

[2628] 
[1063] 
[262] 
[1714] 
[ 555] 
[661] 
[404] 
[91] 
[515] 
[3275] 
[ 679 ] 

[1440] 
[512] 

[ 1495 ] 
[1769] 

[ 793] 

[2246 ] 

[ 762 ] 
[1775] 
[1359] 

[ 855 ] 

[ 781] 
[5312] 

[1676] 

[ 388] 

[ 555 ] 

[2826] 

[1022 ] 
[823] 

[ 1879 ] 

[91] 

[336] 

[1794] 

[ 620 ] 
[416] 

[1664] 
[3136] 

[448] 
[2542] 
[626] 

[ 2945 ] 
[3487] 

[448] 

[ 2010 ] 

[600] 

[2547] 

[2870] 

[ 448] 
[1750] 

[ 726 ] 

[2551] 

[1763] 

[448] 

[2062] 
[416] 

[ 724] 

[2794] 

[2676] 

[448] 

[2036] 

[416] 

[ 738] 

[3829] 


1240 IF zemm(j)< >0 THEN PRINT zemm(j);:LOC 
ATE 25,14 
1250 INPUT h 

1260 IF h<>0 THEN zemm(j)=h:f1ag=1 
1270 h=0 

1280 LOCATE 1,16 

1290 PRINT "Epoche Jahr ; 

1300 INPUT h 

1310 IF h=0 THEN 1430 ELSE hj=h 
1320 LOCATE 1,18 

1330 PRINT "Epoche Tag : 

1340 INPUT ht 

1350 IF ht< 0 OR ht > 36 6 THEN 1340 
1360 LOCATE 1,20 

1370 PRINT "Referenzanomalie (MA) : 

1380 INPUT h 

1390 IF h< 0 THEN 1380 

1400 hj = hj-85:IF hj>1000 THEN hj=hj-1900 

1410 zg(j)=ht+2556+INT(365.25*hj)-h/(360*z 

mm(j)) 

1420 f1ag=l : ht = 4:GOTO 1490 
1430 h=0:ht = 0 
1440 LOCATE 1,16 

1450 PRINT "Referenzperig{um : 

1460 IF zg(j)<>0 THEN PRINT zg(j)::LOCATE 
25,16 

1470 INPUT h 

1480 IF h<>0 THEN z g ( j ) =h : f 1 ag = 1* 

1490 h=0 

1500 LOCATE 1,18+ht 

1510 PRINT "Referenz-Umlaufnummer : 

1520 IF zumlauf(j)<>0 THEN PRINT zumlauf(j 
);:LOCATE 25,18+ht 
1530 INPUT h 

1540 IF hOO THEN zuml au f ( j ) = h : f 1 ag = 1 
1550 h=0 

1560 LOCATE 1,20+ht 

1570 PRINT "Bakenfrequenz in MHz : 

1580 IF zbake(j)< >0 THEN PRINT zbake(j);:L 
OCATE 25,20+ht 
1590 INPUT h 

1600 IF h<>0 THEN zbake(j)=h:f1ag=1 
1610 GOSUB 170: Datei ausgeben 
1620 RETURN 

1630 'Satellit loeschen 
1640 GOSUB 100 
1650 IF j$="0" THEN RETURN 
1660 IF j = sat THEN 1710 
1670 FOR i=j TO sat-1 

1680 sat$(i)=sat$(i+ 1 ):zi( 1 )=zi(i+ 1 ):zo( 1 ) 
=zo(i+l):ze(i)=ze(i+l):zw(i)=zw(i+l):zmm (1 
)=zmm(i+l):zemm(i)=zemm(i+ 1 ):zg(i)=zg{1+1) 

:zumlau f(i)=zumlauf(i+l):zbake(i ) = zbake(i + 
1) 

1690 NEXT i 

1700 sat$(sat)="":zi(sat)=0:zo(sat)=0:ze(s 
at)= 0 :zw(sat)= 0 :zmm(sa t)= 0 :zemm(sat)= 0 :zg( 
sat)= 0 :zumlauf(sat)=0:zbake(sat )=0 
1710 sat=sat-l 
1720 flag=1 

1730 GOSUB 170:'Datei ausgeben 
1740 RETURN 
1750 'Fehler 
1760 CLS 

1770 LOCATE 10,10 

1780 PRINT "Bahndaten fehlerhaft." 

1790 RETURN 

1800 'Eingabe/Berechnung 
1810 GOSUB 100 
1820 IF j$="0" THEN RETURN 
1830 ON ERROR GOTO 1750 
1840 'Bahndatenadaption 

1850 i=zi(j):o=zo(j):e=ze(j):w=zw(j):mm=zm 
m(j):emm=zemm( j ):g=zg(j):umlauf=zumlauf(j) 

:zbake=zbake(j) 

1860 sat$=sat$(j):1=meml:b=memb 

1870 IF i=0 OR 0=0 OR w=0 OR mm=0 OR g=0 T 
HEN 1750 

1880 'Datumeingabe 

1890 CLS 

1900 LOCATE 8,3 

1910 PRINT "Satellit ";sat$ 

1920 LOCATE 8,6 

1930 INPUT "Tag : ",h 


Listing SAT 


[4121] 

[448] 
[2205] 
[416] 

[ 73S ] 
[2183] 
[448] 
[1596] 

[ 750] 

[1668] 
[381] 

[1080] 

[ 732] 
[2441] 
[448] 
[1710] 

[2046 ] 

[1981] 

[1712] 

[ 668 ] 

[ 736] 

[3298] 

[2408] 

[448] 

[2013] 

[416] 

[ 886 ] 

[3288] 

[3446] 

[448 ] 

[2348] 

[416] 

[965] 

[3230] 

[2426] 

[ 448] 

[3153] 

[1714] 

[ 555 ] 
[874] 

[ 929 ] 
[823] 

[1079] 

[1622 ] 

[10294] 


[375 ] 
[9381] 


[319] 

[ 262 ] 

[1714] 

[ 555 ] 

[443] 

[91] 

[676] 

[2489] 

[ 555] 

[1613] 

[ 929 ] 

[823] 

[1341] 
[2449] 
[5290] 


[ 1558 ] 
[1310] 

[836] 

[91] 

[ 326] 
[1743] 
[ 335 ] 

[1243] 
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Programm/Anwendungen 


1940 

IF h<>0 THEN t=h:h=7 ELSE t=memt:GOTO 

[3466] 

2110 


1950 

IF t<l OR t > 31 GOTO 1920 

[1361] 

1960 

rt=t 

[249] 

1970 

LOCATE 8,8 

[317] 

1980 

INPUT "Monat : ",m 

[1235 ] 

1990 

IF (t > 29 AND m=2 ) OR (t>30 AND (m=4 0 

f 1939 ] 

R m=6 

OR m=9 OR m=ll)) OR m<l OR m>12 GOTO 


1970 


2000 

rm=m 

[583 ] 

2010 

LOCATE 8,10 

[544] 

2020 

INPUT "Jahr : 19",j 

[932 ] 

2030 

IF j<0 OR j>=100 GOTO 2010 

[1310] 

2040 

rj = j 

[554] 

2050 

m=m+1 

[200] 

2060 

IF m<4 THEN j=j- 1:m=m+12 

[915] 

2070 

t=INT(j *365.25)+INT(m* 30.6)+t-28553 

[1639] 

2080 

LOCATE 8,8+h 

[ 390] 

2090 

INPUT " UTC : ",u 

[ 1093] 

2100 

IF u<0 OR u > 24 THEN 2080 

[582] 

2110 

' Bahnberechnung 

[1336] 

2120 

mm=mm+emm* ( t-g ) /2 

[981] 

2130 

n=2*PI*mm : pev=0 

[ 1503] 

2140 

a=42220*mm“(-2/3)/6378 

[1190] 

2150 

z=a''3.5*(l-e*e) , '2 

[ 1376 ] 

2160 

q=-9.9 8*C0S ( 1)/z 

[ 1069 ] 

2170 

v= { 2 5* ( COS (i ) ) Ä 2-5)/z 

[ 1622 ] 

2180 

ON ERROR GOTO 0 

[ 1381 ] 

2190 

INK 0,pO:PEN 3,1 

[ 1058 ] 

2200 

reft=TIME/300 

[1054] 

2210 

ORIGIN 320,200 

[215] 

2220 

!COPY,&5 600,&4000,&COOO 

[1401] 

2230 

IF memt=t THEN 2260 

[1193] 

2240 

u=INT(u)+(u-INT(u))*5/3 

[1239 ] 

2250 

t=u/24+0.00001+INT (t) 

[751] 

2260 

U=24*(t—INT(t) ) 

[581] 

2270 

pt=INT ( t ) 

[545] 

2280 

pu=INT(u)+INT((u-INT(u))*300/5)/100 

[1543] 

2290 

d=t-g 

[599 ] 

2300 

k=d*q+o- 100 .3 -1 * f -1 

[ 1258] 

2310 

m=d*n 

[172] 

2320 

RAD 

[301] 

2330 

r = e 

[104] 

2340 

p=m 

[120] 

2350 

GOSUB 3600 

[1192] 

2360 

h= ( m-p+y )/( 1-x) 

[1161] 

2370 

p=p + h 

[3111 

2380 

IF ABS(h)>0.000015 GOTO 2350 

[1114] 

2390 

r= 1 

[252 ] 

2400 

GOSUB 3600 

[1192] 

2410 

y=y*SQR(l~e*e) 

[927] 

2420 

x= x-e 

[ 1037] 

2430 

DEG 

[133] 

2440 

GOSUB 3610 

[1198] 

2450 

r = a* r 

[283] 

2460 

p=p+w+d*v 

[ 798] 

2470 

GOSUB 3600 

[ 1192] 

2480 

h=x 

[504] 

2490 

p=i 

[ 108] 

2500 

r = y 

[116] 

2510 

GOSUB 3600 

[ 1192 ] 

2520 

s = y 

[152] 

2530 

y-x 

[571] 

2540 

x=h 

[551] 

2550 

GOSUB 3610 

[ 1198] 

2560 

p=p+k 

[308] 

2570 

k=p+1 

[245] 

2580 

u= r 

[115] 

2590 

GOSUB 3600 

[1192] 

2600 

z=s-SIN(b) 

[1155] 

2610 

x=x-COS (b) 

[1349 ] 

2620 

h=y 

[507] 

2630 

y=z 

[ 577 ] 

2640 

GOSUB 3610 

[1198] 

2650 

p=p-b+90 

[411] 

2660 

GOSUB 3600 

[ 1192 ] 

2670 

j=y 

[531] 

2680 

y=h 

[523 ] 

2690 

GOSUB 3610 

[1198] 

2700 

c= 180 -p 

[721] 

2710 

x=r 

[ 573] 

2720 

y=j 

[ 529] 

2730 

GOSUB 3610 

[1198] 

2740 

m=m/(2*PI ) 

[82] 

2750 

pum1=INT(m)+umlauf 

[ 1274] 

Listing SAT 



2760 

pc=ROUND(c) 

[456] 

2770 

pp=ROUND(p) 

[ 653] 

2780 

pm=256*(m-INT(m)) 

[860] 

2790 

SSP-Berechnung 

[ 1391] 

2800 

k-k/360 

[ 4 5 B ] 

2810 

k=360*(k-INT(k)) 

[605] 

2820 

x = u 

[ 570] 

2830 

y = s 

[584] 

2840 

GOSUB 3610 

[ 1198] 

2850 

IF k >180 THEN k=k-360 

[2498] 

2860 

Sichtbereich 

[1574] 

2870 

RAD 

[301] 

2880 

sl=SQR{r*r-l)/r 

[1467] 

2890 

sl=ATN(sl/SQR(1-s1*s1)):'ARCSIN 

[2740] 

2900 

s2=PI/180*(90-p) 

[1478] 

2910 

s3=s2-sl 

[1157] 

2920 

f1=0:1F s3<0 THEN s3 = sl-s2:f1=1 

[1212] 

2930 

IF pp <-5 THEN 3050 

[612] 

2940 

1 Entf e rnung 

[1423] 

2950 

DEG 

[ 133] 

2960 

dx=r*SIN(k)-SIN( 1 ) : dy=r*COS( k )-C0SO ) 

[3172] 

:dz=r*SIN(p)-SIN(b) 


2970 

entf = 63 78*SQR(dx*dx + dy*dy + dz*dz) 

[1476] 

2980 

RAD 

[301] 

2990 

1 Dopple r 

[ 1095 ] 

3000 

IF pev=0 THEN dop=zbake:GOTO 3040 

[1534] 

3010 

det=(t-det)*86400 

[1070] 

3020 

dop=(pev-entf)/det 

[ 536] 

3030 

dop=ROUND(zbake*2.99792458E+09/(29979 

[3564] 

2.45 8-dOp) )/10000 


3040 

pev=entf:entf=ROUND(entf):det=t 

[313B] 

3050 

Ausgabe 

[ 572] 

3060 

!COPY,&5600,&4000,&C000 

[1401] 

3070 

PEN 3,1 

[807] 

3080 

LOCATE 2,2:PRINT sat$; 

[1519] 

3090 

rm$=STR$(rm) 

[ 473] 

3100 

datum$=STR$(rt) + "."+RIGHT$(rm$,LEN C rm 

[3889] 

$)-!)+".19"+RIGHT$(STR$(rj),2) 


3110 

LOCATE 40-LEN(datum$),2:PRINT datum$; 

[3887] 

3120 

IF pp<-5 THEN 3160 

[ 606] 

3130 

LOCATE 2,2 3:PRI NT "Entfernung";entf;" 

[4537] 

km" ; 



3140 

IF dop=0 THEN 3160 ELSE dop$ ="Bake"+S 

[4042] 

TR$(dop)+“ MHz" 


3150 

LOCATE 40-LEN(dOp$),23:PRINT dop$i 

[ 2795 ] 

3160 

LOCATE 1,25 

[ 731] 

3170 

PRINT USING "##.## UTC ";pu; 

[2059] 

3180 

PRINT USING "###/";pc; 

! 1206] 

3190 

PRINT USING "###";pp; 

922] 

3200 

PRINT USING " MA ### ";pm; 

[1391] 

3210 

PRINT USING " Umlauf #####";puml; 

[ 2259 ] 

3220 

LOCATE 1,25 

[ 731] 

3230 

PLOT k*l . 76-5, p*2 . 15-4,3: DRAW k.*1.76 + 

[4545] 

4,p*2.15+4,3:PLOT k*l.76-5,p*2.15+4,3:DRAW 


k* 1 

76 + 4,p* 2.15-4,3 


3240 

&3=s3+PI/96 75 

[1260] 

3250 

hb=90-s3*180/PI:IF hb>75 OR fl=0 THEN 

[2608] 

3290 ELSE hb=76 


3260 

PLOT -180*1.76,hb*2.15,3:DRAW 180*1.7 

[2318 ] 

6,hb*2.15,3 


3270 

hb=hb-8/2.15 

[ 280] 

3280 

IF hb<90-s3*180/PI THEN s3 = PI/1 BO*(90 

[2632] 

-hb) 

ELSE 3260 


3290 

hb=90-s3*180/PI:IF hb>78 THEN 3410 

[ 1812] 

3300 

IF hb<0 THEN hb=hb-0.465:'Nullsymmetr 

[2368] 

3310 

c1=(COS(s1)-COS(s2)*COS(s3))/(SIN(s2) 

[3281] 

*SIN(s3)):'Seitencosinussatz 

' 

3320 

IF pp >- 6 AND hb<-70 THEN 3420 

[567] 

3330 

IF cl>l OR hb<-83 THEN 3420 

[1554] 

3340 

IF cl<-l THEN c1=180:GOTO 3360 

[ 1217] 

3350 

cl=90-180/PI*ATN(cl/SQR(l-cl*2)):'ARC 

[3552 ] 

COS 



3360 

hl l=k-cl:hl2 = k + cl:hb=hb*2.15 

[ 1469 ] 

3370 

IF hll<=-180 AND hl 2 > = 180 THEN PLOT - 

[3520] 

180*1.76,hb,3:DRAW 180*1.76,hb.3:GOTO 3410 


3380 

IF hll<-180 THEN PLOT -180*1.76,bb,3: 

[6294] 

DRAW 

h!2*1.76,hb,3:PLOT (hll+360)*1.76,hb, 


3:DRAW 180*1.76,hb,3:GOTO 3410 


3390 

IF h12 >180 THEN PLOT -180*1.76,hb,3:D 

[4896] 

RAW (hl2-360)*l.76,hb,3:PLOT hl 1*1. 76,hb,3 


:DRAW 180*1.76,hb,3:GOTO 3410 


3400 

PLOT hl 1*1.76,hb,3:DRAW hl 2*1. 76,hb,3 

[2089] 

3410 

s3 = s3 + PI/180*8/2.15:GOT0 3290 

[1819] 

3420 

DEG 

[133] 

Listing SAT 
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Programm/Anwendungen 


3430 a$=INKEY$ 

3440 IF (reft-TIME/600)-INT(reft-TIME/600) 
<0.5 THEN kk = 3 ELSE kk=2 

3450 PLOT k*l.76-5,p*2.15-4,kk:DRAW k*1.76 
+4,p*2.15+4,kk:PLOT k*1.76-5,p*2.15+4,kk:D 
RAW k*l.76+4,p*2 .15-4,kk 

3460 IF a$="0“ THEN memt=t:PEN 3,0:ON ERRO 
R GOTO 0:CLS:RETURN 

3470 IF a$=CHR$(240) OR a$=CHR$(241) OR a$ 
=CHR$(242) OR a$=CHR$(243) THEN 3530 
3480 IF TIME/300-reft<30 GOTO 3430 
3490 t=t+l/2880 

3500 IF t-INT(t)<(t-l/2880)-INT(t-1/2880) 
THEN GOSUB 4360 
3510 reft=reft+30 
3520 GOTO 2260 

3530 IF a$ = CHR$(2 40) THEN t = t-l/144:IF t-I 
NT(t)>(t+l/144)-INT(t+l/144) THEN GOSUB 44 
80 

3540 IF a$=CHR$(241) THEN t=t+l/144:IF t-I 
NT(t)<(t-1/144)-INT(t-1/144) THEN GOSUB 43 
60 

3550 IF a$=CHR$(242) THEN t=t-l/1440:IF t- 
INT(t)>(t+1/1440)-INT(t+1/1440) THEN GOSUB 
4480 

3560 IF a$=CHR$(243) THEN t=t+1/1440:IF t- 
INT(t)<(t-1/1440)-INT(t-1/1440) THEN GOSUB 
4360 

3570 a$=INKEY$:IF a$<>"” THEN 3460 
3580 reft=TIME/300 
3590 GOTO 2260 

3600 y=r*SIN(p):x=r*COS(p):RETURN 

3610 r=SQR(x*x+y*y):IF x = 0 THEN p=90*SGN(y 

):RETURN 

3620 p=ATN(y/x):IF x>0 THEN RETURN 
3630 IF y >0 THEN p=p+180:RETURN 
3640 p=p-180:RETURN 
3650 'Satellit aendern 
3660 GOSUB 100 

3670 IF j$="0" OR sat=0 THEN RETURN 
3680 'Eingabe Satellitenname 
3690 name$="" 

3700 CLS 

3710 LOCATE 8,8 

3720 PRINT "Name des Satelliten 
3730 LOCATE 12,11 

3740 a$=INKEY$:IF a$="" GOTO 3740 

3750 IF a$=CHR$(13) GOTO 3810 

3760 IF LEN(name$)=0 AND a$="0" THEN RETUR 

N 

3770 IF a$=CHR$(242) THEN name$=LEFT$(name 
$,LEN(name$)-1):LOCATE 12+LEN(name$),12:PR 
INT " ":LOCATE 12+LEN(name$),12:GOTO 3740 
3780 IF a$=CHR$(243) THEN a$=" " 

3790 IF LEN(name$)<10 THEN name$=name$+a$ 

ELSE GOTO 3820 

3800 PRINT a$;:GOTO 3740 

3810 IF LEN{name$)<10 THEN name$=name$+" " 

:GOTO 3810 

3820 sat$(j)=name$:GOTO 900 
3830 'QTH abspeichern 

3840 CLS:LOCATE 6,2:PRINT "===== Standort 
{ndern =====":LOCATE 4,5:PRINT"Die Eingabe 


soll erfolgen als 
{nge/Breite 
"QTH-Locator (neu) 

T "Hauptmenue 
3850 a$=INKEY$:IF a$ = 


LOCATE 8,10:PRINT "L 
LOCATE 8,12:PRINT 
2":LOCATE 8,15:PRIN 
: 0 " 

GOTO 3850 


3860 IF a$="0" THEN RETURN ELSE a=VAL(a$): 
ON a GOTO 3870,3930:GOTO 3850 
3870 'Locator: L/B 
3880 CLS 

3890 LOCATE 10,10:PRINT "L{nge : 

Grad Ost":LOCATE 19,10:INPUT 1:IF 1<-180 
OR 1>180 THEN 3890 
3900 1=INT(1 )+5/3*(l-INT(l ) ) 

3910 LOCATE 10,12:PRINT "Breite : 

Grad Nord":LOCATE 19,12:INPUT b:IF b<-90 
OR b>90 THEN 3910 

3920 b=INT(b)+5/3*(b-INT(b)):GOTO 4310 
3930 'QTH-Locator 

3940 CLS:a$="":name$="":LOCATE 8,10:PRINT 

"Locator ; > <":LOCATE 19.10 

3950 a$ = UPPE"R$ (INK£Y$) : I F a$="" GOTO 3950 


Llstlng SAT 


[ 278] 
[3957] 

[3505] 


[1876] 

[ 2262 ] 

[ 847] 
[350] 
[2854] 

[ 781] 
[359] 
[4851] 


[3937] 
[3271] 
[4198] 


[ 2012 ] 
[1054] 
[359] 

[ 1564] 
[1623] 

[2284] 
[1161] 
[ 696] 
[416] 

[ 929 ] 

[1978] 

[2450] 

[404] 

[91] 

[317] 

[3275] 

[472] 

[1579] 

[ 572 ] 

[1716] 

[7262] 


[ 762 ] 
[2665] 

[ 1412] 
[3055] 

[1554] 

[1188] 

[ 18112] 


[1730] 
[4261] 

[ 1355] 
[91] 

[5655] 


[1976] 
[5480] 


[2106] 
[1316] 
[2101 ] 

[2071] 


3960 IF LEN(name$)=0 AND a$="0" THEN RETUR 
N 

3970 IF a$=CHR$(13) AND LEN(name$)<6 THEN 
RETURN 

3980 IF (a$=CHR$(242) OR a$=CHR$(127)) AND 
LEN(name$)>0 THEN name$=LEFT$(name$,LEN(n 
ame$ )-l): LOCATE 19,10:PRINT name$;'' " ; : LOC 
ATE 19+LEN(name$),10:GOTO 3950 
3990 IF LEN(name$)=6 THEN 4050 
4000 IF (LEN(name$)<2 OR LEN(name$)>3) AND 
(ASC(a$)< 64 OR ASC(a$)>90) THEN 3950 
4010 IF (LEN(name$)=2 OR LEN(name$)=3) AND 
(ASC(a$)< 49 OR ASC(a$)>57) THEN 3950 
4020 name$=name$+a$ 

4030 PRINT a$; 

4040 GOTO 3950 

4050 FOR k=1 TO 6 

4060 u$=MID$(name$,k,1) 

4070 IF k < 3 OR k > 4 THEN u(k)=ASC(u$)-65 EL 
SE u(k)=VAL(u$) 

4080 NEXT k 

4090 l=u(l)*20+u(3)*2+(u(5)-0.5)/12-180 
4100 IF 1<0 THEN 1=1+360 
4110 b=u(2)*10+u(4)+(u(6)-0.5)/24-90 
4120 LOCATE 8,13 
4130 PRINT "—> 

4140 1 (1) = I NT(1 ) 

4150 1 C 2 ) = 60*(1-1 (1)) 

4160 1(3)=(1(2)-INT(l(2)))*3/5 
4170 1 (2 ) =1 NT(1 (2)) 

4180 PRINT USING ”###";1(1); 

4190 PRINT "#";USING "##";1(2); 

4200 PRINT ;USING "##";1(3); 

4210 PRINT CHR$(34);" Ost" 

4220 LOCATE 12,15 
4230 b(l)=INT(b) 

4240 b(2)=60*(b-b(1)) 

4250 b(3)=(b(2)-INT(b(2))5*3/5 
4260 b(2)=INT(b(2)) 

4270 PRINT USING "###";b(l); 

4280 PRINT "#";USING "##";b(2); 

4290 PRINT .;USING " *# ";b(3); 

4300 PRINT CHR$(34);" Nord" 

4310 LOCATE 13,20 

4320 PRINT "Speichern ?" 

4330 a$=UPPER$(INKEY$):IF a$="" THEN 4330 
4340 IF a$="j" OR a$="Y" THEN memb=b:meml= 
1:f1ag=l 
4350 RETURN 

4360 ' Datumaktualisierung aufw{rts 
4370 mm=mm+emm 

4380 IF (rm=l OR rm=3 OR rm=5 OR rm=7 OR r 
m=8 OR rm=10) AND rt=31 THEN rt=1:rm=rm+1■ 
RETURN 

4390 IF rm=12 AND rt=31 THEN rt=1:rm=1:rj= 
rj+l;RETURN 

4400 IF rm< >2 AND rt = 30 THEN rt=1:rm=rm+1: 
RETURN 

4410 IF rj/2000-INT(rj/2000)=0 AND rm=2 AN 

D rt=28 THEN rt=l:rm=3:RETURN 

4420 IF rj/400-INT(rj/400)=0 AND rm=2 AND 

rt=29 THEN rt=l:rm=3:RETURN 

4430 IF rj/100-INT(rj/100)=0 AND rm=2 AND 

rt=28 THEN rt=1:rm=3:RETURN 

4440 IF rj/4-INT(rj/4)=0 AND rm=2 AND rt=2 
9 THEN rt=l:rm=3:RETURN 

4450 IF rm=2 AND rt = 28 THEN r t=1:rm=3:RETU 
RN 

4460 rt= rt + 1 
4470 RETURN 

4480 ' Datumaktualisierung abwfrts 
4490 rt=rt-1:mm=mm-emm 
4500 IF rt >0 THEN RETURN 

4510 IF rm=2 OR rm=4 OR rm=6 OR rm=8 OR rm 
= 9 OR rm=ll THEN rt = 31:rm=rm-l:RETURN 
4520 IF rm=1 THEN rt=31:rm=12:rj=ri-1:RETU 
RN 

4530 IF rm< > 3 THEN rt = 30: rm=rm-1:RETURN 
4540 rm=2:rt=28 

4550 IF rj/4-INT(rj/4)=0 THEN rt=29 
4560 IF rj/100-INT(rj/100)=0 THEN rt=28 
4570 IF rj/400-INT(rj/400)=0 THEN rt=29 
4580 IF rj/2000-INT(rj/2000)=0 THEN rt=28 
4590 RETURN 


Listing SAT 


[1716] 

[2350] 

[9237] 


[1567] 
[4629] 

[5137] 

[ 388] 
[420] 

[ 483] 

[1080] 
[ 883 ] 

[ 1950] 

[373] 

[ 1163] 
[1013] 
[2275] 
[553] 

[ 735 ] 
[988] 

[ 703] 

[1588] 
[1143] 
[ 761 ] 

[ 1268 ] 
[505] 
[1723] 
[484] 

[ 1128] 
[1090] 
[1429] 
[928] 

[1064] 
[1045] 
[ 808 ] 
[1585] 
[ 682 ] 

[1493] 
[1878] 
[2363] 

[555 ] 

[1669] 
[ 352 ] 
[4250] 


[1400] 

[2449] 

[3793] 

[4890 ] 

[2700 ] 

[4637] 

[2632] 

[267] 

[555] 

[1714] 

[827] 

[1554] 

[2677] 

[4556] 

[ 1528] 
[323] 
[1364] 
[1268] 
[2219] 
[ 1505 ] 
[ 555 ] 
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Soweit die Reaktion 
reicht 

Schnelles Reaktionsspiel für 
zwei Personen 

Dieses Spiel basiert auf dem Film “Tron“, der für großes 
Aufsehen gesorgt hatte. Umsetzungen wurden schon für 
die verschiedensten Computer geschrieben. Diese Ver¬ 
sion bietet aber einiges an Abwechslungen, die das Spiel¬ 
geschehen um vieles spannender gestaltet. 


Schnelle Entscheidungen werden hei Tron gefordert 


Die Story 

Sie befinden sich in einem Computer, der 
durch seine Intelligenz eine Gefahr ge¬ 
worden ist. Nun müssen Sie schleunigst 
in diesen Computer eindringen und das 
Hauptprogramm zerstören. Kaum sind 
Sie in das System eingedrungen, beginnt 
ein Abwehrprogramm (der zweite Spie¬ 
ler), Sie zu behindern und aus dem Sy¬ 
stem zu werfen. 

Aufgabe 

Spieler eins muß mit seinem Joystick ei¬ 
nen kleinen Gleiter über ein Spielfeld 


steuern, der eine unüberwindbare Linie 
hinterläßt. Spieler zwei muß nun mit sei¬ 
nem Gleiter und seinen Cursortasten ver¬ 
suchen, Spieler eins von seinem Weg ab¬ 
zubringen, indem er eine Energiespur 
hinterläßt — dies geschieht automatisch, 
wie bei Spieler eins. 

Wird nun eine der Linien gekreuzt, ex¬ 
plodiert der Gleiter, und eine Runde ist 
verloren. Wenn die zehnte Runde gespielt 
wurde — und das ist nicht leicht, da sich 
der Hintergrund in jedem Level än¬ 


dert —, gibt es eine Auswertung der ge¬ 
spielten Runden. 

Weitere Hinweise 

Die Positionen der Gleiter werden per 
Zufall gesetzt, also aufgepaßt. Vor jedem 
Start werden sechs Piepsgeräusche aus¬ 
gegeben, die den Spielstart signalisieren. 
Vom Titelbild aus startet man das Rennen 
mit dem “Feuerknopf“ oder der SPACE- 
Taste. (Auf die gleiche Weise verläßt man 
den Info-Screen, der beim Abschluß des 
gesamten Rennens erscheint). 

(Gregor Bileck/cd) 



für 464-664-6128 


(464 mit Emulator) 



10 ************* [502] 

20 '* TRON * [539] 

30 '************ [502] 

40 ' [117] 

50 ' [117] 

60 CLEAR [217] 

70 ' [117] 

80 ' [117] 

90 '*** Sounds [453] 

100 1 [117] 

110 ENV 1,127,-1.7 [496] 

120 ENV 2,127,-1,40 [867] 

130 ENV 3,127,-1,80 [449] 

140 ENV 4,127,-1,1 [744] 

150 ENT -1,5,-5,1,5,5,1 [721] 

160 ENT -2,5,-20,1,5,15,1 [1194] 

170 1 [117] 

180 '*** Symbols [799] 

190 ' [117] 

200 ’-> Numbers [802] 

210 1 [117] 

220 SYMBOL AFTER 48 [1272] 

230 SYMBOL 48,126,66,66,66,70,70,70,126 [1465] 

240 SYMBOL 49,8,8,8,8,24,24,24,24 [1860] 

250 SYMBOL 50,126,6,6,126,64,96,96,126 [1511] 

260 SYMBOL 51,126,2,2,126,2,6,6,126 [2355] 

270 SYMBOL 52,66,98,98,126,2,2,2,2 [2598] 

280 SYMBOL 53,126,96,96,126,2,6,6,126 [1796] 

290 SYMBOL 54,64,64,64,126,66,98,98,126 [2041] 

300 SYMBOL 55,126,2,2,2,6,6,6,6 [1681] 

310 SYMBOL 57,126,70,70,126,2,2,2,2 [1770] 

320 SYMBOL 56,126,66,66,126,66,70,70,126 [2646] 

330 ' [117] 

340 '-> glider [657] 


Listing TRON 


350 


[117] 

360 

SYMBOL 250,24,24,189,219,153,189,219,1 

[3022 ] 

29 

**# up 


370 

SYMBOL 251,129,219,189,153,219,189,24, 

[ 3231 ] 

24 

*** down 


380 

SYMBOL 252,63,18,36,254,254,36,18,63 ’ 

[2731] 

*#* 

1 eft 


390 

SYMBOL 253,252,72,36,127,127,36,72,252 

[3640] 

'*** right 


400 


[117] 

410 


[117] 

420 

w$=CHR$(143) 

[1447] 

430 

shu$=CHR$(250) 

[ 990] 

440 

shd$=CHR$(251) 

[ 965 ] 

450 

sh 1$=CHR$(252 ) 

[ 562 ] 

460 

shr$=CHR$(253) 

[1025 ] 

470 


[117] 

480 


[1611 ] 

490 


[117] 

500 

'»*** Title *** 

[ 239 ] 

510 


[117] 

520 

MODE 1 

[ 506] 

530 

BORDER 0 

[1008] 

540 

INK 0,0 

[53] 

550 

INK 1,0 

[49] 

560 

INK 2,0 

[109] 

570 

INK 3,0 

[ 105] 

580 


[117] 

590 

GRAPHICS PEN 3 

[947] 

600 

FOR oft=l TO 100 

[ 729 ] 

610 

x=RND*640:y=RND*200+200 

[ 2829 ] 

620 

PLOT x,y 

[471] 

630 

NEXT 

[350] 

640 

’ 

[117] 

650 

660 

670 

680 

690 

GRAPHICS PEN 2 
y=200:st=2 

FOR oft=1 TO 20 

PLOT 0,y:DRAW 640,y 

[ 948] 

[802] 

[690] 

[731] 

[1816] 


700 

NEXT 

[350] 

710 


[117] 
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720 

GRAPHICS PEN 1 

[949 ] 

730 

x = 320:y=200:g r = 400 

[ 1071] 

740 

DEG 

[13 3] 

750 

FOR a=115 TO 245 STEP 10 

[ 1220] 

760 

PLOT 320,200 

[621] 

770 

DRAW x+gr*SIN(a),y+gr*COS(a) 

[ 576 1 

780 

NEXT 

[ 350] 

790 

1 

[117] 

800 

PLOT 80,360:DRAW 80,340:DRAW 100,340:D 

[5071] 

RAW 

120,260:DRAW 140,260:DRAW 160,340:DRAW 


180 

,340:DRAW 180,360:DRAW 80,360 


810 

PLOT 200,360:DRAW 240,360:DRAW 280,340 

[2623] 

:DRAW 240,320:DRAW 300,260:DRAW 200,260:DR 


AW 200,360 


820 

PLOT 340,360:DRAW 400,360:DRAW 420,340 

[ 6892 ] 

:DRAW 420,280:DRAW 400,260:DRAW 340,260:DR 
AW 320,280:DRAW 320,340:DRAW 340,360 


830 

PLOT 440,320:DRAW 470,360:DRAW 500,320 

[ 6392 ] 

:DRAW 530,360:DRAW 550,330:DRAW 500,260:0R 
AW 470,300:DRAW 440,260:DRAW 440,320 


840 

MOVE 120,310:FILL 3:MOVE 220,310:FILL 

[ 4795 ] 

3:MOVE 360,310:FI L L 2:MCVE 480,310:FILL 3 


850 


[117] 

860 

PLOT 340,320:DRAW 400,320:DRAW 400,300 

[4722] 

:DRAW 340,300:DRAW 340,320 


870 

PLOT 330,310:DRAW 340,310:PLOT 400,310 

[2402] 

:DRAW 410,310 

880 

PLOT 350,315:DRAW 350,350:PLOT 360,315 

[10611] 

:DRAW 370,330:DRAW 370,350;PLOT 370,315:DR 
AW 380,330:DRAW 380,350:PLOT 380,315:DRAW 


390 , 

330:DRAW 390,350:PLOT 392,315:DRAW 392 


, 325 
890 

PLOT 350,304:DRAW 340,290:DRAW 340,270 

[ 10582 ] 

:PLOT 360,304:DRAW 350,290:DRAW 350,270:PL 
OT 370,304:DRAW 360,290:DRAW 360,270:PLOT 


380 , 

304:DRAW 380,270:PLOT 390,304:DRAW 400 


, 290 

:DRAW 400,270 


900 


[117] 

910 

PEN 1 

[ 549 ] 

920 

LOCATE 12, 11:PRINT"by GREGOR BI LECK" 

[2565] 

930 

LOCATE 1, 15:PRINT CHR$(24) ;"Hi score of 

[2958] 

the";CHR$(24) 


940 

LOCATE 1,16:PRINT CHR$(24);"USER-PROGR 

[2742] 

AM";CHR$(24) 


950 

LOCATE 1,18:PRINT hiscl 

[1353] 

960 

PEN 2 

[ 548 ] 

970 

LOCATE 27,15:PRINTchr$(24)"Hi score of 

[3487] 

the " 

;CHR$(24) 


980 

LOCATE 2 9, 16:PR INT CHR$(24)"MCP.-PROGR 

[ 3434 ] 

AM" ; 

CHR$(24) 


990 

LOCATE 34,18:PRINT hisc2 

[ 1295 ] 

1000 

' 

[117] 

1010 

' 

[117] 

1020 


[117] 

1030 

INK 1,21:INK 2,16:INK 3,14 

[ 545 ] 

1040 


[117] 

1050 

IF INKEV(4 7) = 0 OR INKEY(76)=0 THEN 10 

[2151] 

70 ELSE 1050 


1060 

' 

[117] 

1070 


[ 555 ] 

1080 


[117] 

1090 

FOR Oft=0 TO 15 

[ 739 ] 

1100 

LOCATE 1,1:PRINT CHR$(11) 

[832] 

1110 

NEXT 

[ 350 ] 

1120 


[117] 

1130 

FOR l00p=l TO 5 

[ 52 7 ] 

1140 

LOCATE 1,25 

[731] 

1150 

FOR Oft=0 TO 18 

[ 748 ] 

1160 

PRINT 

[361] 

1170 

NEXT 

[350] 

1180 

FOR Oft=0 TO 17 

[ 737 ] 

1190 

LOCATE 1,1:PRINT CHR$(11) 

[ 832 ] 

1200 

NEXT 

[ 350 ] 

1210 

NEXT 

[ 350 ] 

1220 

1 

[117] 

1230 

LOCATE 1,25 

[731] 

1240 

FOR Oft=1 TO 26 

[ 708 ] 

1250 

PRINT 

[ 361 ) 

1260 

NEXT 

[350 ] 

1270 


[117] 

1280 


[ 1495 ] 

1290 


[117] 

1300 

'*** Init 

[483] 

1310 


[117] 

1320 

sc 1 = 0 : sc2 = 0 

[ 743 ] 

1330 

1eve1=1 

[ 567 ] 

1340 


[117] 

1350 

INK 1,0:INK 2,0:INK 3,0 

[ 672 ] 

Listing TRON 



1360 

, 

[117] 

1370 

' 

[117] 

1380 

'♦** Aufbau(Feld) 

[1338] 

1390 

1 

[117] 

1400 

PEN 3 

[ 547] 

1410 

XT 

FOR h=1 TO 21:LOCATE 40,h:PRINT w$:NE 

[2664] 

1420 

XT 

FOR r=35 TO 39:LOCATE r,8:PRINT w$:NE 

[ 1402 ] 

1430 

EXT 

FOR r=35 TO 39:LOCATE r,15:PRINT w$:N 

[1880] 

1440 

EXT 

FOR r = 35 TO 39:LOCATE r,21:PRINT w$ : N 

[2020] 

1450 

XT 

FOR r=34 TO 39:LOCATE r,l:PRINT w$:NE 

[1686] 

1460 

' 

[117] 

1470 

GOSUB 5120 

[891] 

1480 


[117] 

1490 

PEN 1 

[ 549 ] 

1500 

LOCATE 35,2:PRINT"User: 

[1900] 

1510 

LOCATE 35,4:PRINT USING"#####";sei 

[2232] 

1520 

LOCATE 35,5:PRINT 

[1854] 

1530 

LOCATE 35,6:PRINT USING"#####";hisc 1 

[ 12 79 ] 

1540 

PEN 2 

[548 ] 

1550 

LOCATE 35,9:PRINT"Mcp.:" 

[ 2022 ] 

1560 

LOCATE 35,11:PR I NT USING"#####";sc2 

[2304] 

1570 

LOCATE 35,12:PRINT"==-" 

[860] 

1580 

LOCATE 35,13:PRINT USING"#####";hisc2 

[ 2092 ] 

1590 

PEN 3 

[ 547 ] 

1600 

LOCATE 35,16:PRINT'Time 

[ 1640] 

1610 

LOCATE 35,17:PRINT'Bonus" 

[2053] 

1620 


[117] 

1630 

INK 1,21: I NK 2,16:INK 3, 14 

[ 545 ] 

1640 


[117] 

1650 


[117] 

1660 


[117] 

1670 


[117] 

1680 


[1570] 

1690 

1 Hauptprogramm 

[ 1580] 

1700 


[1570] 

1710 


[117] 

1720 

'*** init2 

[469 ] 

1730 


[117] 

1740 

bonus=300 

[815] 

1750 

mov 1 = 1 :mov 2=2 

[1052] 

1760 

tot =0 

[411 ] 

1770 


[117] 

1780 


[117] 

1790 

•*** Level? Bonus? 

[2127] 

1800 


[117] 

1810 

GOSUB 4810 

[960] 

1820 

PEN 1 

[ 549 ] 

1830 

LOCATE 6 ,5 : PRINT"USER" 

[ 1746] 

1840 

LOCATE 6,7 : PRINT"Prog ram" 

[ 3080] 

1850 

PEN 2 

[ 548 ] 

1860 

LOCATE 25,5:PRINT"MCP. " 

[ 1008 ] 

1870 

LOCATE 22,7:PRINT"Program" 

[ 1359] 

1880 

PEN 3 

[ 547] 

1 B90 

LOCATE 16,6:PRINT"and" 

[2135] 

1900 

LOCATE 7,11 : PRINT " You are now enterin 

[ 1814] 

1910 

LOCATE 12,13:PRINT"LEVEL: ";level 

[1210] 

1920 

LOCATE 9,18:PRINT"LEVEL BONUS is :" 

[ 1601 ] 

1930 

TS" 

LOCATE 10,20:PRINT bonus * 1 eve1 ;" POIN 

[ 1945] 

1940 

LOCATE 37,19:PRINT USING"###";bonus 

[3246] 

1950 

LOCATE 35,20:PRINT"*"; ) evel 

[1658] 

1960 

FOR wart=1 TO 4000:NEXT 

[2116] 

1970 

GOSUB 4980 

[935 ] 

1980 

1 

[117] 

1990 


[117] 

2000 

' *** Wegweiser zu den Levels 

[2006] 

2010 


[117] 

2020 

GRAPHICS PEN 2 : PEN 3 

[842] 

2030 

ON 1eve1 GOSUB 3190,3350,3430,3540,36 

[3795] 

70,3810,3960,4140,4260,4400 


2040 

1 

[117] 

2050 

1 

[ 117] 

2060 

"*** Setzen(d.Schiffe ) 

[ 1180] 

2070 

1 

[117] 

2080 

PEN 3 

[ 547] 

2090 

shxl=RND*30+2:shyl=RND*21+2 

[ 1261] 

2100 

LOCATE Shxl,shyl 

[ 1780] 

2110 

IF COPYCHR$ ( #0 ) =w$ THEN 2090 ELSE PEN 

[3355] 

1 : LOCATE shxl,shyl : PRINT shu$ 


2120 

' 

[117] 

2130 

PEN 3 

[ 547 ] 

2140 

shx2=RND*30+2:shy2=RND*21+2 

[1472] 
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2150 LOCATE shx2,shy2 [1610] 

2160 IF COPYCHR$(#0)=w$ THEN 2140 ELSE PEN [3016] 
2:LOCATE shx2,shy2:PRINT shd$ 

2170 ' [117] 

2160 FOR Oft=l TO 6 [621] 

2190 SOUND 1,60,10,15,4 [1418] 

2200 SOUND 1,0,50,0 [1400] 

2210 NEXT [350] 

2220 FOR wart=l TO 1500:NEXT [2568] 

2230 1 [117] 

2240 1 [117] 

2250 ================================= [2058] 

2260 ' [117] 

2270 ' [117] 

2280 '*#* Go!!! (Das Rennen) [1623] 

2290 ' [117] 

2300 IF JOY(0)=1 THEN IF movl<>2 THEN movl [2552] 

=1 ELSE movl=2 

2310 IF JOY (0) =2 THEN IF movlOl THEN movl [ 3848] 
= 2 ELSE mov1 = 1 

2320 IF JOY(0)=4 THEN IF movl<>4 THEN movl [2564] 
=3 ELSE mov1=4 

2330 IF JOY(0)= 8 THEN IF movl<>3 THEN movl [2197] 
=4 ELSE mov1=3 

2340 ' [117] 


2350 

IF INK EY(0)=0 

THEN 

IF 

mov2 <> 2 

THEN 

mo 

[2560] 

v2 = 1 

2360 

ELSE mov2=2 

IF INKEY(2)=0 

THEN 

IF 

mov2 < >1 

THEN 

mo 

[1928] 

v 2 = 2 
2370 

ELSE mov2=l 

IF INKEY(8)=0 

THEN 

IF 

mov2 <>4 

THEN 

mo 

[3710] 

v2 = 3 
2380 

ELSE mov2=4 

IF INKEY(1)-0 

THEN 

IF 

mov2 < > 3 

THEN 

mo 

[2965] 


v2=4 ELSE mov2=3 
2390 ' 

2400 ' 

2410 ' 

2420 IF movl< >1 THEN 2440 ELSE shyl=shyl-l 
:PEN 3:LOCATE shxl,shyl:IF COPYCHR$(#0)=w$ 
THEN tOt=1:GOTO 2650 ELSE PEN 1:LOCATE sh 
xl,shyl:PRINT shu$:PEN 3:LOCATE shxl,shyl+ 
1:PRINT w$ 

2430 1 

2440 IF movl< >2 THEN 2460 ELSE shyl=shyl+l 
:PEN 3:LOCATE shxl,shyl:IF COPYCHR$(#0)=w$ 
THEN tOt=1:GOTO 2650 ELSE PEN 1:LOCATE sh 
xl , shyl:PRINT shd$:PEN 3:LOCATE shxl.shyl- 
1:PRINT w$ 

2450 ' 

2460 IF mov1< > 3 THEN 2480 ELSE shxl = shxl-l 
:PEN 3:LOCATE shxl,shyl:IF COPYCHR$(#0)=w$ 
THEN tot=l:GOTO 2650 ELSE PEN 1:LOCATE sh 
xl,shyl:PRINT shl$:PEN 3:LOCATE shxl+l,shy 
1:PRINT w$ 

2470 1 

2480 IF mo v1< > 4 THEN 2500 ELSE shxl = shxl+l 
:PEN 3:LOCATE shxl,shyl:IF COPYCHR$(#0)=w$ 
THEN tot=1:GOTO 2650 ELSE PEN 1:LOCATE sh 
xl , shyl:PRINT shr$:PEN 3:L0CATE shxl-l.shy 
1:PRINT w$ 

2490 ' 

2500 IF mov2 < >1 THEN 2520 ELSE shy2 = shy2-l 
:PEN 3:LOCAT E shx2,shy2:IF COPYCHR$(#0)=w$ 
THEN tOt=2:GOTO 2650 ELSE PEN 2:LOCATE sh 
x2,shy2:PRINT shu$:PEN 3:L0CATE shx2,shy2+ 
1:PRINT w$ 

2510 1 

2520 IF mOv2 < > 2 THEN 2540 ELSE shy2 = shy2+l 
:PEN 3:LOCATE shx2,shy2:IF C0PYCHR$(#0)=w$ 
THEN tOt=2:GOTO 2650 ELSE PEN 2:LOCATE sh 
x2,shy2:PRINT shd$:PEN 3:L0CATE shx2,shy2- 
lrPRINT w$ 

2530 ' 

2540 IF mov2< >3 THEN 2560 ELSE shx2 = shx2-l 
:PEN 3:LOCATE shx2,shy2:IF COPYCHR$(#0)=w$ 
THEN tOt=2:GOTO 2650 ELSE PEN 2:L0CATE sh 
x2,shy2:PRINT shl$;PEN 3:L0CATE shx2+l,shy 
2:PRINT w$ 

2550 ' 

2560 IF mov2 < > 4 THEN 2590 ELSE shx2 = shx2+l 
:PEN 3:LOCATE shx2,shy2:IF COPYCHR$(#0)=w$ 
THEN t0t=2:GOTO 2650 ELSE PEN 2:LOCATE sh 
x2,shy2:PRINT shr$:PEN 3:L0CATE shx2-l,shy 
2:PRINT w$ 

2570 • 

2580 ' 

2590 PEN 3 

2600 bonus=bonus-l 

2610 LOCATE 35,19:PRINT USING"##### “ ;bonus 
2620 ' 


[117] 

[117] 

[117] 

[9307] 


[117] 

[ 8061 ] 


[117] 

[9774] 


[117] 

[ 10904] 


[117] 

[9093] 


[117] 

[9271] 


[117] 

[12014] 


[117] 

[11456] 


[117] 

[117] 

[ 547 ] 
[881 ] 
[1213] 
[117] 
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2630 GOTO 2290 

[ 345 ] 

2640 1 

[117] 

2650 *- 

[ 1611] 

2660 ' 

[117] 

2670 '*** Kollision 

[ 567 ] 

2680 ' 

[117] 

2690 SOUND 7 + 128,0,400,15 , 2 , ,15 

[2414] 

2700 ' 

[117] 

2710 INK 0,26 

[64] 

2720 FOR wa rt=1 TO 50:NEXT 

[1724] 

2730 INK 0,0 

[53] 

2740 ' 

[117] 

2750 IF tot=l THEN xko=16*shx1:yko=(25-shy 

1)* 16 ELSE xko=16*shx2:yko={25-shy2) * 1 6 

[3817] 

2760 ‘ 

[117] 

2770 FOR far=l TO 4 

[817] 

2780 GRAPHICS PEN far 

[ 1342 ] 

2790 FOR g r = l TO 30 STEP 2 

[ 757 ] 

2800 DEG 

[ 133 ] 

2810 MOVE x ko,yko + a r 

[ 1348] 

2820 FOR a=0 TO 360 STEP 90 

[ 1498 ] 

2830 DRAW xko+gr*COS(a),yko+gr*SIN(a) 

[1931] 

2840 NEXT 

[ 350 ] 

2850 NEXT 

[ 350 ] 

2860 NEXT 

[ 350 ] 

2870 ' 

[117] 

2880 ' 

[117] 

2890 IF tOt=l THEN GRAPHICS PEN 2 ELSE GRA 

[ 1846] 

PHICS PEN 1 

2900 FOR y=272 TO 160 STEP-2 

[1015] 

2910 SOUND 1,956,1,15, , ,1 

[ 1637 ] 

2920 PLOT 190 , y:DRAW 338,y 

[1378] 

2930 NEXT 

[ 350 ] 

2940 1 

[117] 

2950 IF tOt=1 THEN GRAPHICS PEN 1 ELSE GRA 

[ 1852 ] 

PHICS PEN 2 

2960 PLOT 188,158:DRAW 188,274:DRAW 340,27 

[ 3334 ] 

4:ORAW 340,158:DRAW 188,158 

2970 PLOT 192,162:DRAW 192,270:DRAW 336,27 

0:DRAW 336,162:DRAW 192,162 

[3324] 

2980 ' 

[117] 

2990 IF tot=1 THEN PEN 2:LOCATE 15,10:PRIN 
T"MCP.:" ELSE PEN 1:LOCATE 15, 10:PRI NT"USE 

[3382 ] 

3000 PEN 3 

[ 547 ] 

3010 LOCATE 15, 1 2:PRI NT"Bonus" 

[1544] 

3020 LOCATE 16,14:PRINT USING"####";bonus 

[ 1598 ] 

3030 ' 

[117] 

3040 FOR wart=l TO 800:NEXT 

[2043] 

3050 ' 

[117] 

3060 SOUND 1, 1911,750,15,3,2:SOUND 2,956,7 
50,15,3,2:SOUND 4,478,750,15,3,2 

[4655] 

3070 ’ 

[117] 

3080 ' 

[117] 

3090 FOR count=(bonus-1! TO 0 STEP-1 

[2551] 

3100 IF tot=l THEN PEN 2:sc2=sc2+1eve1:LOC 
ATE 35,11:PRINT USING"#####" ; sc2 ELSE PEN 

1:scl=scl+level:LOCATE 35,4:PRINT USING"## 
###" ;sei 

[7032] 

3110 PEN 3 

[ 547 ] 

3120 LOCATE 16,14:PRINT USING"####";count 

[ 1595 ] 

3130 NEXT 

[ 350] 

3140 1 

[117] 

3150 ' 

[117] 

3160 1eve1=1evel+1 

[ 1036] 

3170 GOSUB 5120 

[891] 

3180 IF 1eve1=11 THEN GOTO 4590 ELSE GOTO 
1740 

[3064] 

3190 ' 

[117] 

3200 ' 

[117] 

3210 '- 

[ 1570 ] 

3220 1 

[117] 

3230 '*** Levels(Hintergrundmuster) 

[3224] 

3240 1 

[117] 

3250 '-> 1 

[516] 

3260 * 

[117] 

3270 FOR x=20 TO 508 STEP 8 

[ 1882 ] 

3280 PLOT x,32:DRAW x,382 

[ 876] 

3290 NEXT 

[350] 

3300 FOR y= 32 TO 380 STEP 8 

[2100] 

3310 PLOT 16,y:DRAW 510,y 

[ 181 ] 

3320 NEXT 

[ 350 ] 

3330 RETURN 

[ 555 ] 

3340 ' 

[117] 

3350 '-> 2 

[ 519 ] 

3360 ' 

[117] 

3370 FOR y=382 TO 32 STEP-16 

[ 1636 ] 

3380 PLOT 16,y:DRAW 510,y-8 

[ 260 ] 

3390 NEXT 

[350] 
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3400 

XT 

FOR h= 6 TO 19:LOCATE 17,h:PRINT w$:NE 

[ 3098 ] 

3410 

RETURN 

[ 555 ] 

3420 

' 

[117] 

3430 

'-> 3 

[522 ] 

3440 

' 

[117] 

3450 

FOR x = 16 TO 508 STEP 16 

[ 1404] 

3460 

PLOT x,32:DRAW x,382 

[ 8 76 ] 

3470 

NEXT 

[ 350 ] 

3480 

XT 

FOR r = 13 TO 21:L0CATE r,4:PRINT w$:NE 

[2512] 

3490 

FOR r =7 TO 27:LOCATE r,8:PRINT w$:NEX 

[2133] 

3500 

XT 

FOR r = 7 TO 27:LOCATE r,17;PRINT w$:NE 

[3390] 

3510 

EXT 

FOR r=13 TO 21:LOCATE r,21:PRINT w$:N 

[ 2705 ] 

3520 

RETURN 

[ 555 ] 

3530 


[117] 

3540 

•-> 4 

[ 525 ] 

3550 


[117] 

3560 

y=382:x1=16:x2=510 

[ 1646] 

35 70 

FOR oft=1 TO 22 

[ 696] 

3580 

PLOT 16,y:DRAW xl,32:PL0T 510,y:DRAW 

[1666] 

x2,32 


3590 

y=y-16:xl=xl+16:x2=x2-l6 

[2924] 

3600 

NEXT 

[ 350] 

3610 

FOR Oft=l TO 20 

[ 690 ] 

3620 

r=RND*30+2:h=RND*21+2 

[548] 

3630 

LOCATE r,h:PRINT w$ 

[1646] 

3640 

NEXT 

[ 350] 

3650 

RETURN 

[ 555 ] 

3660 


[117] 

3670 

’-> 5 

[ 528 ] 

3680 

1 

[117] 

3690 

x = 2 64:y = 210 

[ 990 ] 

3700 

FOR gr=0 TO 164 STEP 8 

[1208] 

3710 

MOVE x,y + g r 

[ 1022 ] 

3720 

DEG 

[ 133] 

3730 

FOR a=0 TO 360 STEP 45 

[ 1523 ] 

3740 

DRAW x+gr*SIN(a),y+gr*C0S(a) 

[ 576] 

3750 

NEXT 

[ 350 ] 

3760 

NEXT 

[350] 

3770 

XT 

FOR h=6 TO 19:LOCATE 17,h:PRINT w$:NE 

[ 3098 ] 

3780 

XT 

FOR r=6 TO 28:LOCATE r,12:PRINT w$:NE 

[2198] 

3790 

RETURN 

[ 555 ] 

3800 

' 

[117] 

3810 

'-) 6 

[531 ] 

3820 


[117] 

3830 

FOR Oft=l TO 200 

[ 565 ] 

3840 

x=RND*494+16:y=RND*350+32 

[2873] 

3650 

PLOT x,y:PLOT x+2,y 

[1555] 

3860 

NEXT 

[ 350] 

3870 

FOR r=7 TO 13:LOCATE r,7:PRINT w$:NEX 

[2376] 

3880 

XT 

FOR r=7 TO 13:L0CATE r,18:PRINT w$:NE 

[2308] 

3890 

XT 

FOR r=21 TO 27:LOCATE r,7:PRINT w$:NE 

[3033] 

3900 

EXT 

FOR r = 21 TO 27:LOCATE r,18:PRINT w$:N 

[2740] 

3910 

FOR h = 8 TO 17:LOCAT E 7,h:PRINT w$:NEX 

[3597] 

3920 

XT 

FOR h=8 TO 17:LOCATE 27,h:PRINT w$:NE 

[4163] 

3930 

EXT 

FOR r=1 3 TO 21:LOCATE -r,12:PRINT w$:N 

[2807] 

3940 

RETURN 

[ 555 ] 

3950 

' 

[117] 

3960 

•-> 7 

[534] 

3970 

1 

[117] 

3980 

FOR 0 f t= 1 TO 20 

[ 690] 

3990 

x=RN0*494+16:y=RND*350+32 

[ 2873] 

4000 

x, y 

PLOT 16,382:DRAW x,y:PLOT 510,32:DRAW 

[2903] 

4010 

NEXT 

[ 350] 

4020 

FOR r=8 TO 12:LOCATE r,6:PRINT w$:NEX 

[1679] 

4030 

XT 

FOR r = 22 TO 26:LOCATE r,6:PRINT w$:NE 

[2558] 

4040 

EXT 

FOR r = 2 2 TO 26:LOCATE r,19:PRINT w$:N 

[2374] 

4050 

XT 

FOR r=8 TO 12:LOCATE r,19:PRINT w$:NE 

[ 1995 ] 
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4060 

FOR h= 7 TO 10:LOCATE 12,h:PRINT w$:NE 

[2104] 

XT 

4070 

EXT 

FOR h=15 TO 18:LOCATE 12,h:PRINT w$:N 

[1638] 

4080 

FOR h= 7 TO 10: LOCATE 22,h:PRINT w$:NE 

[1767] 

XT 

4090 

FOR h=15 TO 18:LOCATE 22,h:PRINT w$:N 

[1666] 

EXT 

4100 

EXT 

FOR r=12 TO 22:LOCATE r,ll:PRINT w$:N 

[3766] 

4110 

FOR r=12 TO 22:LOCATE r,14:PRINT w$:N 

[3235] 

EXT 

4120 

RETURN 

[ 555 ] 

4130 

* 

[117] 

4140 

'-> 8 

[505 ] 

4150 

' 

[117] 

4160 

FOR 0ft= 1 TO 100 

[ 729 ] 

4170 

x=RND*478+16:y=RND*334+32 

[2137] 

4180 

PLOT x,y:DRAW x+8,y+16:DRAW x+16,y:DR 

[4939] 

AW x, 

y 


4190 

NEXT 

[ 350] 

4200 

h=11:FOR r= 7 TO 14:L0CATE r,h:PRINT w 

[ 3468 ] 

$: h=h 

-1:NEXT 


4210 

h=14:FOR r=7 TO 14:L0CATE r,h:PRINT w 

[3337] 

$:h=h+1:NEXT 


4220 

h=4:FOR r = 2 0 TO 27:LOCATE r,h:PR I NT w 

[3793] 

$:h=h +1:NEXT 


4230 

h=21:FOR r=20 TO 27:LOCATE r ,h:PRINT 

[2469] 

w$ : h = 

h-1:NEXT 


4240 

RETURN 

[ 555 ] 

4250 


[117] 

4260 

'-> 9 

[ 508] 

4270 

' 

[117] 

4280 

x= 16 : y = 32 

[965 ] 

4290 

FOR o f t=1 TO 31 

[691] 

4300 

PLOT x,382:DRAW x,y:DRAW 510,y 

[ 878] 

4310 

x=x+16:y=y+10 

[993] 

4320 

NEXT 

[350] 

4330 

FOR r= 7 TO 27:LOCATE r,6:PRINT w$:NEX 

[2361] 

4340 

XT 

FOR r= 7 TO 27:LOCATE r,12:PRINT w$:NE 

[2631] 

4350 

FOR r= 7 TO 27:LOCATE r,19:PRINT w$:NE 

[3544] 

XT 

4360 

T 

FOR h= 7 TO 11:LOCATE 7,h:PRINT w$:NEX 

[2379] 

4370 

FOR h=13 TO 18:LOCATE 27,h:PRINT w$:N 

[2571] 

EXT 

4380 

RETURN 

[ 555 ] 

4390 


[117] 

4400 

•-> 10 

[664] 

4410 


[117] 

4420 

xl = 2 60:x2 = 2 60:st = 2 

[1920] 

4430 

FOR 0 ft=1 TO 16 

[ 750] 

4440 

PLOT x1,382:DRAW xl,32:PLOT x2,382:DR 

[2334] 

AW x 2,3 2 


4450 

xl=xl-st:x2=x2+st:st=st+2 

[1060] 

4460 

NEXT 

[ 350] 

4470 

LOCATE 15,17;PRINT w$:LOCATE 26,17:PR 

[ 1822 ] 

INT w$ 


4480 

FOR r=8 TO 13:LOCATE r,7:PRINT w$:NEX 

[2147] 

4490 

FOR h=8 TO 16:LOCATE 8,h:PRINT w$:NEX 

[2447] 

4500 

XT 

FOR r=8 TO 13:LOCATE r,17:PRINT w$:NE 

[2086] 

4510 

FOR h=12 TO 16:LOCATE 13,h:PRINT w$:N 

[3047] 

EXT 

4520 

LOCATE 12,12:PRINT w$ 

[1217] 

4530 

FOR h= 7 TO 17:LOCATE 18,h:PRINT w$:NE 

[2441] 

XT 

4540 

XT 

FOR r=19 TO 23:LOCATE r,7:PRINT w$:NE 

[981] 

4550 

FOR r=19 TO 23:LOCATE r,12:PRINT w$:N 

[ 1585 ] 

EXT 

4560 

FOR r=19 TO 23:LOCATE r,17:PRINT w$:N 

[1807] 

EXT 

4570 

XT 

FOR h=8 TO 16:LOCATE 24,h:PRINT w$:NE 

[2306] 

4580 

RETURN 

[ 555 ] 

4590 


[117] 

4600 


[1570] 

4610 


[117] 

4620 

•*** The End 

[616] 

4630 


[117] 

4640 

GOSUB 4810 

[960] 
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4650 PEN 3 


[ 547 ] 

4660 LOCATE 10,5:PRINT 

GAME OVER" 

[2422] 

4670 LOCATE 10,9:PRINT 

Final Standings:" 

[2434] 

4680 IF scl>sc2 THEN PEN 1:LOCATE 10,11:PR 

[9195] 

INT"1.USER : " ;sc 1:PEN 

2:LOCATE 10,13:PRIN 


T"2.MCP. r " ;sc2 ELSE PEN 2:L0CATE 10,11:P 


RINT"1.MCP. : ";sc2:PEN 1:LOCATE 10,13:PRI 


NT"2.USER : ";scl 



4690 PEN 3 


[ 547 ] 

4700 LOCATE 12 , 16:PRINT"NICE GAME ! " 

[1848] 

4710 LOCATE 3,18:PRINT 

MCP.MAIN PROGRAM is 

[2333] 

golng to" 



4720 LOCATE 3,19:PRINT' 

take the -Progr 

[2563] 

am to the" 



4730 LOCATE 3,20:PRINT' 

ERASING-CENTER." 

[3097] 

4740 LOCATE 3,21:PRINT' 

It is absolute ly us 

[4630] 

e1ess ..." 



4750 IF sc 1< sc2 THEN PEN 1:LOCATE 12,19:PR 

[5000] 

INT"USER" ELSE PEN 2:LOCATE 12,19:PRINT"MC 


4760 ' 


[117] 

4770 IF scl>hiscl THEN 

hi scl = sc 1 

[ 1832 ] 

4780 IF sc2>hisc2 THEN 

hisc2=sc2 

[2089] 

4790 ' 


[117] 

4800 IF INKEY(47)=0 OR 

IN KEY(7 6)=0 THEN GO 

[4169] 

SUB 4980:GOTO 480 ELSE 

4800 


4810 ' 


[117] 

4820 1 


[117] 

[1570] 



4840 ' 


[117] 

4850 *** Info-Wand auf 


[ 673 ] 

4860 ' 


[117] 

4870 SOUND 1,956,280,15 

,,1:SOUND 2,1012,28 

[2178] 

0 , 15 ,, 1 « 



4880 SOUND 1,0,70,15,1, 

, 1 

[ 1685 ] 

4890 ' 


[117] 

4900 GRAPHICS PEN 2 


[ 948 ] 

4910 d=382 


[451] 

4920 FOR up=32 TO 208 STEP 2 

[ 1297] 
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4930 

PLOT 16,up:DRAW 510,up 


[1074] 

4940 

PLOT 16,d:DRAW 510,d 


[ 398] 

4950 

d=d-2 


[ 748 ] 

4960 

NEXT 


[ 350] 

4970 

RETURN 


[ 555 ] 

4980 

' 


[117] 

4990 

’*** Info-Wand ab 


[ 762 ] 

5000 

' 


[117] 

5010 
0,15 

SOUND 1,956,280,15,,1:SOUND 2,1012,28 
, 1 

[2178] 

5020 

5030 

SOUND 1,0,70,15,1,,1 


[1685] 
[117] 

5040 

GRAPHICS PEN 0 


[950] 

5050 

d = 206 


[ 459 ] 

5060 

FOR u p= 2 0 8 TO 382 STEP 2 


[1537] 

5070 

PLOT 16,u p:DRAW 510,up 


[ 1074] 

5080 

PLOT 16,d:DRAW 510,d 


[ 398 ] 

5090 

d=d-2 


[ 748] 

5100 

NEXT 


[350 ] 

5110 

RETURN 


[ 555 ] 

5120 



[117] 

5130 



[117] 

5140 



[ 797 ] 

5150 



[117] 

5160 

' *** Feld rahmen 


[1153] 

5170 



[117] 

5180 

PEN 3 


[ 547 ] 

5190 

FOR h = 1 TO 23:LOCATE 1 ,h : 

PRINT w$:NEX 

[2879] 

5200 

XT 

FOR h = 1 TO 23:LOCATE 33, h 

:PRINT w$:NE 

[2383] 

5210 

T 

FOR r=1 TO 33:LOCATE r,l: 

PRINT w$:NEX 

[2195 ] 

5220 

XT 

FOR r=1 TO 33:LOCATE r,24 

:PRINT w$:NE 

[ 2392 ] 

5230 

XT 

FOR h=1 TO 24:LOCATE 34.h 

:PR I NT w$:N E 

[2066] 

5240 

RETURN 


[ 555 ] 

Listing TRON 




Unter den Sternen 

Kleines Geschicklichkeitsspiel 
für starke Nerven 

Ein fesselndes Spiel muß nicht immer mit einem langen programmierten 
Listing Zusammenhängen. Daß es auch anders geht, beweist uns “Star¬ 
breaker“. 


Ähnlichkeiten mit dem Spiel Arkanoid 
oder Bustout (ein Spiel aus der PC Inter¬ 


national, Ausgabe 12/87) sind vorhanden. 
Sie besitzen fünf Leben, von denen Sie 


eins verlieren, wenn der heruntergefalle¬ 
ne Stern nicht durch eine Abwehrbasis 
zurückkatapultiert wird. Dabei sollte der 
Stern so abgewehrt werden, daß mög¬ 
lichst viele Steine getroffen werden, die 
sich am “Himmel“ tummeln. 

Steuerung 

Die Bewegungen der Abwehrbasis wer¬ 
den durch den Joystick (links/rechts und 
Feuerknopf) ausgeführt. 

(Gottfried Stampel/cd) 


für 464-664-6128 

r~' ' 


10 'STARBREAKER [423] 

20 MODE 1:BORDER 3 [1437] 

30 PEN 2:LOCATE 11,24:PRINT"FIRE TO PLAY" [1407] 

40 IF JOY(0)< >16 THEN 40 [ 1237] 

50 C LS [91] 

60 FOR z=5 TO 36 STEP 3:FOR y =1 T0 8 STEP [4562] 

2:LOCATE z,y:PRINT CHR$(143):NEXT;NEXT 
70 b=9:c=5:d=0 [870] 

80 GOSUB 300 [1016] 

90 f=l:1=1:IF INT(RND*2)=1 THEN f=-f [1719] 

100 GOSUB 310 [1022] 

110 ORIGIN 0,400 [520] 

120 x=b+4:y=ll:g=x:j=y [1324] 

130 g = x+f:j =y + i [670] 

140 IF g=3 OR g=3B THEN f=-f [1277] 

150 GOSUB 280 [925] 
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160 

IF j = 24 AND g > b+1 AND g<b + 6 THEN i=-i: 

[4902] 

j = j 

-2:a=((x>b+5)OR(x<b+2)):IF a=-l THEN f= 


f*a 

g=g+f:j=j+l 


170 

IF j = 2 5 THEN LOCATE x,y:PRINT" ”:GOTO 

[1507] 

260 


180 

GOSUB 310 

[ 1022 ] 

190 

° = TEST((16*g)-l,-(1 6* j ) — 1) 

[1857] 

200 

IF e< >0 THEN i=-i :h=g:k = j :j = j + i :LOCATE 

[1146] 

h , 

<:PRINT " " 


210 

IF e=2 THEN d=d+10:GOSUB 300 

[ 1082 ] 

220 

IF d = 440 THEN 50 ELSE 23'0 

[ 1700 ] 

230 

IF j=l THEN i=1 

[913] 

240 

LOCATE x , y:PRI NT " LOCATE g , j :PR INT 

[2321] 

" * 

: x = g:y = j 


250 

GOTO 130 

[371] 

260 

c=c-l : IF c=0 THEN 30 

[1230] 

270 

GOSUB 300:GOTO 90 

[2018 ] 

280 

IF INKEY{74)=0 AND b>2 THEN b=b-2 ELSE 

[3018] 

IF 

IN KEY{75)=0 AND b<32 THEN b=b + 2:RETURN 


290 

RETURN 

[ 555 ] 

300 

LOCATE 4,25:PRINT"SCORE:";d:LOCATE 30, 

[4205 ] 

25:PRINT"LIVES:";c:RETURN 


310 

LOCATE b,24:PRINT“ "; "-" ; " ” :RETU 

[1576] 

RN 
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Golddukaten und 
Schiffskanonen 

Hanseat - ein Abenteuer im Mittelalter 

Heutzutage mal schnell geschäftlich nach London, Paris, Hongkong oder 
San Francisco zu müssen, ist nur noch für diejenigen unmöglich, die das 
Fliegen nicht vertragen. ’Jetten’ sagt der eingefleischte Devisenjäger dazu. 
Wie müssen sich allerdings die Kaufleute des ausgehenden vierzehnten Jahr¬ 
hunderts gefühlt haben? Wenn Sie in diese Zeit mal reinschnuppern wollen, 
bitte sehr: Hier ist Hanseat, die Handelssimulation. 


Willkommen bei Hanseat, dem Simula¬ 
tionsspiel in BASIC, mit besonders natur¬ 
getreuer Grafikunterstützung. Sie sind 
ein Händler, der 1371 seine Karriere be¬ 
ginnt und versuchen muß, durch ge¬ 
schicktes An- und Verkaufen besonders 
viel Geld zu machen, um in die höheren 


Bevölkerungsschichten vorzudringen. 
Doch das ist gar nicht so einfach: da gibt 
es die bösen Piraten, die sie ständig an¬ 
greifen. Aber mit geschickten Fingern 
auf der SPACE-Taste können Sie sie ab- 
wehren. Wenn Sie es partout nicht lassen 
können, Rauschgiftzu schmuggeln, kön¬ 


nen Sie dies auch tun, allerdings ist das 
Auge des Gesetzes sehr wachsam. 

Das Spiel 

Haben Sie das Spiel abgetippt und mit 

RUN‘‘HANSEAT. BAS" 

gestartet, sehen Sie einen kurzen Text, 
der Sie in das Spiel einführt. Danach ge¬ 
ben Sie bitte Ihren Namen ein. Links un¬ 
ten befindet sich nun das Dialogfenster, 
unten rechts das Grafikfenster, oben 
rechts das Fenster mit den Preisen und 
oben links das Statusfenster. Mit der Ta¬ 
ste “K“ können Sie nun Waren kaufen. 
Dazu brauchen Sie allerdings das nötige 
Kleingeld. Wieviel Siebrauchen, erfah¬ 
ren Sie im Preisfenster. Es kann aller¬ 
dings passieren, daß der Händler Ihnen 
schlechte Waren liefert. Mit der Taste 
“V“ verkaufen Sie Waren, sofern Sie 
welche haben. Drücken Sie die Taste 
“W“, so können Sie in eine andere Stadt 
reisen, indem Sie mit den Cursortasten 
AUF und AB die jeweilige Stadt an wäh¬ 
len und dann die ENTER-Taste drücken. 
Durch das ständige Reisen wird die Qua¬ 
lität Ihres Schiffes auch nicht besser, und 
somit nimmt auch nach jeder Fahrt die 
Tauglichkeit ab. Der Abzug richtet sich 
nach der Anzahl der geladenen Waren 
und der Entfernung. Wenn Ihr Schiff 
völlig unbrauchbar geworden ist, wird 
das Spiel automatisch beendet. Doch Sie 
brauchen keine Angst zu haben, denn Sie 
können zwischendurch immer einmal Ihr 
Schiff reparieren lassen oder ein neues, 
größeres kaufen. Sie können aber auch 
Ihr Geld auf der Bank gut anlegen. Das 
bringt nämlich Zinsen. Bitte drücken Sie 
im Hauptmenü die Taste “B“. Mit der 
Taste “Q “ beenden Sie das Spiel vorzei¬ 
tig. Während dem Spielen gibt es immer 
wieder Ereignisse, die positiv oder nega¬ 
tiv für Sie sind: manchmal können Sie 
sich Ihr Schiff reparieren lassen oder ein 



Hanseat zeichnet sich durch seine grafische Untermalung der einzelnen Schrit¬ 
te aus. Man kann somit jede Handlung genauestens mitverfolgen 



«1 dies Und.,. 500, 

Bankhesitz. 0. 

U?Ter*ert. 0, 

Schiffstauglichkeit, 180/: 

Kancnen... 0 

Schiffsladung. 0 

nax, Schiffsladung.. 2 1 

Braunschueig, Januar 1371 . 


Auswahl per Cursortasten! 
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neues kaufen. Kanonen gibt’s auch 
manchmal zu ersteigern. Und nun noch 
ein paar Worte zu den Piraten: am An¬ 
fang haben diese 100 Prozent Kampf¬ 
energie. Drücken Sie die SPACE-Taste, 
wenn der Balken auf 'Piraten - 50%’ 
steht, dann wird diesen 50 Prozent ihrer 
Energie abgezogen. Entsprechend ist es 
bei den anderen Balken. Treffen Sie z.B. 
auf 'Schiff - 50%’, werden Ihnen 50 Pro¬ 
zent Schiffstauglichkeit abgezogen! 

Das Abtippen 

Bevor Sie Hanseat spielen dürfen, müs¬ 
sen Sie es abtippen oder besorgen Sie 


sich doch einfach die DATABOX! Das 
Spiel besteht aus zwei Teilen: einem Ba- 
sic-Teil und einem Binärteil. Für Disket¬ 
tenbenutzer ist das Abtippen unkompli¬ 
ziert, nur die Kassettenbesitzer haben es 
nicht so leicht: Sie brauchen zwei Kas¬ 
setten. Ich bezeichne sie nun mit Kassette 
eins und zwei, damit es einfacher zu ver¬ 
stehen ist. Hier nun die einzelnen 
Schritte: 

— HAN SEAT. BAS abtippen und auf Kas¬ 
sette eins abspeichern 

—HANSEAT DAT abtippen und auf Kas¬ 
sette zwei abspeichern 


—HANSEAT.DAT starten und Kassette 
eins in den Recorder legen 

— Kassette eins zurückspulen und Spiel 
starten 

Läuft alles ordnungsgemäß, wird die 
Kassette zwei nicht mehr benötigt. 

Bevor Sie sich ans Abtippen machen, 
müssen Sie eines allerdings bedenken: 
Sie sollten weder HANSEAT. BAS noch 
HANSEAT.DAT starten, ohne es vorher 
abgespeichert zu haben! 

So, jetzt heißt es nur noch, Ihnen viel 
Spaß mit Hanseat zu wünschen. 

(Markus Felder/jb) 


für 464-664-6128 

I 



io '********************#****#**# 

20 •* HANSEAT * 

30 ' * * 

40 '* Ve rsion 2 . 1 * 

50 '* * 

60 ' * * 

70 '* CPC-VersIon:Markus Felder * 

BO ' * * 

90 '* Das Vorbild dieses Pro- * 

100 '* gramms ist in der PC- * 

110 '* Databox 7/87 erschienen * 

120 '* Autor:Hartmut Pfarr * 

130 ‘***************************** 

140 ‘ 

150 MODE 2:INK 1,24:PEN 1:INK 0,1:B0RDER 1 
:PAPER 0 

160 MEMORY &5FFF:LOAD"!hanseat.spr " &6000 
170 ' 

180 GOSUB 2870 

190 ‘*** Wlndow's und Umrahmung *** 

200 MODE 2 

210 FOR 1=2 TO 24:LOCATE l,i:PRINT CHR$(14 
9);:LOCATE 80,i:PRINT CHR$(149);:LOCATE 41 
,1:PRINT CHR$(149);:NEXT 

220 FOR i=2 TO 79:LOCATE i,l:PRINT CHR$(15 
4);:LOCATE i,24:PRINT CHR$(154)LOCATE i, 
12:PRINT CHR$(154);:NEXT 

230 RESTORE 230:FOR i=l TO 9:READ sy,x,y:L 
OCATE x,y:PRINT CHR$(sy);:NEXT:DATA 150,1, 

1,156,80,1,151,1,12,157,80,12,147,1,24,153 

,80,24,158,41,1,159,41,12,155,41,24 

240 WINDOW 2,40,13,23:WINDOW41,2,40,2,11 

2 50 WINDOW#2,42,7 9,2,11:WINDOW#3,42,79,13, 

23 

260 '*** Namenseingabe ** 

270 CLS 

280 PRINT"Anmerkung!!!":PRINT:PRINT"Die PC 
-Version dieses Programmes ist unter dem 
Titel '1371' auf der PC-Data-box 7/87 ers 
chienen. Der Autor jenes Programms ist H 
artmut Pf ar r ! " : CALL 8.BB06:CLS 
290 LOCATE 2,3:INPUT"Ihr Name: ",name$ 

300 IF name$="" THEN 290 
310 name$=LEFT$(name$,8) 

320 1 *** Initialisierung *** 

330 DIM stadt$(10),ware$(7).Warenwert!7),w 
are(7),besitz(7) 

340 FOR i=1 TO 10:READ stadt$(1),xstadt(i) 

, yStadt(i):ystadt(1)=ystadt(i )*2: NEXT 

350 DATA Braunschwelg,445,36,Bremen,420,47 

,Hamburg,437,51,Luebeck,463,56,Rostock,492 

,54,Danzig,546,58,Koenigsberg,579,65,Visby 

,543,89,Riga,601,79,Reval,614,92 

360 bankspr=&6050:schiffspr=&6D3A:marktspr 

=&7A24:kartespr=&870E 

370 FOR i=l TO 7:READ ware$(i),warenwert(i 
) :NEXT 

380 DATA Kupfer,2000,Sei de,1500,Stoffe,150 
,Bier,50,Silber,4000,Pelze,1500,Rauschgift 
,10000 


[1143] 

[ 678] 

[175] 

[98] 

[175] 

[175] 

[3190] 

[175] 

[ 2352 ] 

[1493] 

[1991 ] 

[1972] 

[1143] 

[117] 

[2954] 

[1616] 
[117] 
[901 ] 
[2198] 
[513] 

[ 5665 ] 


[7015] 


[8190] 


[3435] 
[2724] 

[ 1332 ] 
[91] 

[19822] 


[2163] 

[317] 

[ 767] 

[ 1272 ] 
[2170] 

[4437] 

[6874] 


[3880 ] 
[1219 ] 
[5021] 


Listing HANSEAT 


390 geld=500:schiff=100;schiff]adung=22:1a 
dungswert= 0 :kanonen= 0 :stadt=l:bank= 0 :jahr= 
1371:in$=CHR$(24):pip$=CHR$(7) 

400 DIM mon$(12):mon=l:FOR 1=1 TO 12:READ 
mon$(i):NEXT:DATA Januar,Februar,Maerz,Apr 
il.Mai.Juni,Juli.August,September,Oktober, 
November,Dezember 

410 GOSUB 1810 '===> Preise definieren 
420 GOSUB 1710 '===> Checkkarte 
430 '*** Hauptmenue *** 

440 CLS 

450 GOSUB 3070:a$=stadt$(stadt):L0CATE#3,I 
NT((38-LEN(a$))/2),10:PRINT#3,in$+a$+in$; 
460 PRINTrPRINT" Bitte waehlen Si 

e:":PRINT 

470 PRINT" K.Waren kauf 

en " 

480 PRINT 11 V.Waren verk 

aufen" 


490 PRINT" 8.Bank besuc 

hen " 

500 PRINT" W.weiterreis 

en“ 


510 PRINT" Q.aufhoeren" 

520 a$= LOWER$(INK£Y$):IF a$="" THEN 520 

530 IF a$ =" k" THEN GOSUB 3HO:GOTO 590 

540 IF a$=“w" THEN 1490 

550 IF a$=" v" THEN GOSUB 3HO:GOTO 890 

560 IF a$="b" THEN CLS#3:CALL £6000,329,10 

3,87,38,bankspr:GOTO 1140 

570 IF a$="q" THEN 3180 

580 GOTO 520 

590 '*** Waren einkaufen *** 

600 CLS 

1 .Kupfer" 

2 .Seide" 

3 .Stoffe" 

4 .Bier" 

5 .Silber" 

6 .Pelze" 

7 .Rauschgi f t" 

0 .zurueck" 


610 PRINT" 

620 PRINT" 

630 PRINT" 

640 PRINT" 

650 PRINT" 

660 PRINT" 

670 PRINT" 

680 PRINT" 

690 PRINT 

700 PRINT" Was wollen Sie kaufen ? " 

710 a$=INKEY$:IF a$="" THEN 710 
720 IF a$="0" OR a$=CHR$(13) THEN 430 
730 IF a$ <"0" OR a$>"7" THEN 710 
740 kauf=VA L(a$) 

750 IF kauf=0 THEN 430 

760 IF wäret kauf)>geld THEN PRINT pip$" So 
viel Geld haben Sie gar nicht!”;:CALL &BB0 
6:GOTO 430 
770 CLS 

780 1 eisten = INT(geld/ware(kauf)) 

790 PRINT“S1e koennen sich"1eisten;:PRINT" 
Stueck davon";:PRINT"1 eisten." 

800 LOCATE 1,6:INPUT"Wievie1 wollen Sie ? 

",stueck 


810 IF stueck>1 eisten OR stueck<0 THEN PRI 
NT CHR$(11);:GOTO 800 

820 IF 1adung+stueck>schiff1adung THEN PRI 
NT"Sie koennen nur "schiff 1adung" Stueck a 
uf Ihr Schiff 1aden!";:CALL &BB06:G0T0 800 
830 geld=geld-(stueck*ware(kauf)) 

840 besitz(kauf)=besitz(kauf)+stueck 
850 1adung=ladung+stueck 


[7520] 


[9311] 


[ 3080 ] 
[1471] 
[ 954] 
[91] 
[5241] 

[3900] 

[3583] 

[3147] 

[2421 ] 

[2083] 

[2485 3 
[ 1526 ] 
[ 1700] 
[1771] 
[3486] 
[4298] 


[ 1525 ] 
[413] 
[1148] 
[91] 

[1650] 
[2309 ] 
[ 1959] 
[1725] 
[2143] 
[2452] 
[2008] 
[1630] 
[361] 
[2177] 
[1211 ] 
[1956] 
[713] 

[1045] 
[320] 

[6433 ] 


[91] 

[ 1326] 
[5818] 

[4378] 

[3023] 

[8176] 


[1554] 
[ 1614] 
[810] 
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Programm/Spiel 


860 GOSUB 2700 

[911] 

870 GOSUB 1870 

[861] 

880 GOSUB 1710:GOTO 600 

[ 1035 ] 

890 ’*** Waren verkaufen *** 

[821] 

900 CLS 

[91] 

910 IF Tadung=0 THEN CLS:LOCATE 7,1:PRINT 
pip$"Sie haben gar keine Waren!":CALL &BB0 

6:GOTO 430 

[5830] 

920 FOR i=1 TO 7 

[447] 

930 PRINT " " ; 1 ; "."USING"###" ; bes 

itz(i);:PRINT" Stueck "ware$(i) 

[3824] 

940 NEXT:PRINT" 0. 

zuruck" 

[2930] 

950 PRINT 

[361] 

960 PRINT“ Was wollen Sie verkaufen ? " 

[3133] 

970 a$=INKEY$:IF a$="" THEN 970 

[1270] 

980 IF a$="0" OR a$=CHR$(13) THEN 430 

[1956] 

990 IF a$ <"1" OR a$>"7" THEN 970 

[2103] 

1000 verkauf=VAL(a$) 

[ 945] 

1010 IF besitztverkauf )<1 THEN LOCATE 4,11 
:PRINT pip$"Sie haben gar keine solche War 
e!"; :CALL &BB06:GOTO 890 

[7584] 

1020 CLS 

[91] 

1030 PRINT’Sie haben"besitz(verkauf)"Stuec 
k "ware$(verkauf)".":PRINT 

[3926] 

1040 LOCATE 1,6 

[ 626 ] 

1050 INPUT"Wievie1 wollen Sie verkaufen? " 

,stueck 

[3375] 

1060 IF stueck>besitz(verkauf) THEN PRINT 
CHR$(11);:GOTO 1050 

[ 3269 ] 

1070 geld=geld+(stueck*ware(verkauf)) 

[ 2723 ] 

1000 besttz(verkauf)=besitz(verkauf)-stuec 

[1984] 

1090 1adung=ladung-stueck 

[ 629 ] 

1100 ladungswert=ladungswert-(stueck*ware( 
verkauf)) 

[2728] 

1110 GOSUB 1870 

[861] 

1120 GOSUB 1710 

[ 869 ] 

1130 GOTO 430 

[ 462 ] 

1140 '*** Bank besuchen *** 

[2366] 

1150 CLS 

[91] 

1160 LOCATE 7,3: PRI NT " E.Geld ei 

nzahlen" 

[4233] 

1170 LOCATE 7,4 : PR I NT " A.Geld ab 

heben" 

[3167] 

1180 LOCATE 7,5: PRI NT " V.Bank ve 

r1assen" 

[3102] 

1190 LOCATE 12,9:PRINT"Bitte wählen Sie!" 

[2776] 

1200 a$=LOWER$(INKEY$):IF a$="" THEN 1200 

[ 1565 ] 

1210 IF a$="e" THEN 1250 

[ 999 ] 

1220 IF a$="a" THEN 1370 

[832] 

1230 IF a$="v" THEN 430 

[ 1283] 

1240 GOTO 1200 

[ 363 ] 

1250 '*** Geld einzahlen *** 

[2072] 

1260 CLS 

[91] 

1270 IF geld<0 OR geld=0 THEN PRINT"Sie ha 
ben gar kein Geld!":CALL &BB06:GOTO 1140 

[5359] 

1280 PRINT“S1e haben "geld" Gulden." 

[2194] 

1290 PRINT:PRINT"Die Bank bietet Ihnen ein 
en Zins von monatlich 1*.":PRINT:PRINT:I 
NPUT"W1eviel wollen Sie einzahlen?",einzah 

[9837] 

1300 IF einzahl>geld THEN 1260 

[1142] 

1310 IF einzahl<0 THEN 1260 

[ 825 ] 

1320 geld=geld-einzahl 

[1417] 

1330 bank=bank+einzahl 

[1329] 

1340 GOSUB 1870 

[ 861 ] 

1350 GOSUB 1710 

[869 ] 

1360 GOTO 1140 

[311] 

1370 ’*** Geld abheben *** 

[1680] 

1380 CLS 

[91] 

1390 IF ban k < = 0 THEN PRINT pip$"Sie haben 
gar kein Guthaben auf der Bank.":CALL & 

BB06:GOTO 1140 

[3991] 

1400 PRINT"Sie haben"bank"Gu1 den auf der B 
ank. " 

[2388] 

1410 LOCATE 1,6:INPUT"Wieviel wollen Sie a 
bheben? ", abheb 

[4341 ] 

1420 IF abheb=0 THEN 1140 

[623] 

1430 IF abheb>bank OR abheb<0 THEN PRINT C 
HR$(11) ; :GOTO 1410 

[885] 

1440 geld=geld+abheb 

[ 1021] 

1450 bank=bank-abheb 

[666] 

1460 GOSUB 1870 

[861 ] 

1470 GOSUB 1710 

[ 869 ] 

1480 GOTO 1140 

[311] 

1490 CLS 

[91] 

1500 y=stadt 

[ 662 ] 

16i0 LOCAIE 8,1:PRINT”Auswahl per Cursorta 
s t e n ! " 

Listing HANSEAT 

[3215] 


1520 WINDOW SWAP 3,0 

1530 a$ = INKEY$: IF a$="" THEN 1530 

1540 yy=y 

1550 IF INKEY(2) = 0 THEN y=y+l 
1560 IF INKEY(0)=0 THEN y=y-l 
1570 IF INKEY(18)=0 OR INKEY(6)=0 THEN 164 
0 

1580 IF y>10 THEN y=l ELSE IF y<l THEN y=l 
0 

1590 xx=xstadt(yy):yy=ystadt(yy):PLOT xx,y 
y,0:GOSUB 3090 

1600 xx=xstadt(y):yy=ystadt(y):PLOT xx.yy, 
1:GOSUB 3090 

1610 LOCATE 6,10:PRINT SPACE$(20);:a$=" "+ 
stadt$(y)+" ":LOCATE ROUND((38-LEN(a$))/2, 
0),10:PRINT 1n$+a$+in$ 

1620 SOUND 1,142,10:S0UND 2,119,10:SOUND 4 
,95,10 

1630 GOTO 1530 

1640 IF y=stadt THEN y=yy:GOTO 1530 

1650 p=SQR(ABS(xstadt(y)-xstadt(Stadt))'2+ 

ABS(ystadt(y)-ystadt(stadt) ) " 2 ) : p=ROUND( p/ 

15,0):GOSUB 3140:stadt=y:mon=mon+1 

1660 IF mon=13 THEN mon=l:jahr=jahr+1 

1670 GOSUB 2780 

1680 WINDOW SWAP 0,3 

1690 IF RND>0.5 THEN GOSUB 2010 

1700 GOTO 410 

1710 '*** Checkkarte *** 

1720 GOSUB 1870 

1730 LOCATE#1,1,1:PRINT#1,“ Geldbestand 

."USING"########. ##“;geld 

1740 PRI NT # 1 , " Bankbesitz."USI 

NG"########.##";bank 

1750 PRINT# 1, " Warenwert."USI 

NG"########.##"; 1adungswert 

1760 PRINT#1,“ Schi ffstauglichkeit."USI 

NG"########";sch1ff;:PRINT#1,"*" 

1770 PRINT#1, " Kanonen.";US 

ING"########";kanonen 

1780 PRINT#1, " Schiffsladung."USI 

NG"########";1adung 

1790 PRINT#1," max. Schiffs1adungUS 
ING"########";schiffladung 

1800 PRINT#1:PRINT#1,CHR$(18)" "stadt$( 
Stadt)", "mon$(mon);jahr".";:RETURN 
1810 '*** Preise definieren *** 

1820 L0CATE#2,1,2:FOR 1=1 TO 7 
1830 ware(i)=warenwert(i)+0.2»warenwert(i) 
*RND-0.2*warenwert(i):ware(1)=ROUND(ware(1 
),2) 

1840 PRINT#2," "ware$(i);STRINGS(15- 

LEN(wa re$(1 )),".");USING"#####.## " ;wäret 1 ) 
1850 NEXT 
1860 RETURN 

1870 '*** Werte runden *** 

1880 1adungswert=0:FOR 1=1 TO 7:ladungswer 
t=ladungswert+(bes1tz(1)*wa re(1)):NEXT 
1890 geld=ROUND(geld,2) 

1900 warenwert=ROUND(warenwert,2) 

1910 bank=ROUND(bank,2) 

1920 IF ach1f f >100 THEN schiff=100 
1930 IF geld>99999999 THEN geld=99999999 
1940 1adungswert=ROUND(ladungswert,2) 

1950 IF ge1d < 0 THEN geld = 0 

1960 IF warenwert<0 THEN warenwert=0 

1970 IF bank<0 THEN bank=0 

I960 IF 1adungswert<0 THEN 1adungswert=0 

1990 RETURN 

2000 GOTO 2170 

2010 ’*** Ereignisse *** 

2020 IF RND>0.B THEN 2690 

2030 a=INT(RND*10)+l 

2040 IF a=2 THEN 2110 

2050 IF a=3 THEN 2350 

2060 IF a=4 THEN 2450 

2070 IF a=5 THEN 2500 

2080 IF a=6 THEN 2590 

2090 IF a=7 OR a=8 THEN 2350 

2100 GOTO 2690 

2110 CLS 

2120 PRINT" Es greift ein Piratenschiff 
an . “ 

2130 plrat=100:LOCATE 10,3:PRINT"Piratensc 
hl ff:100*" 

2140 RESTORE 2140:FOR ww=l TO 6:READ p$(ww 
):LOCATE 13,4+ww:PRINT p$(ww):NEXT:DATA Pi 
raten -10*,Schiff -50*,Piraten -20*,Schif 
f -20X,Piraten -50*,Schiff -10* 


Listing HANSEAT 


[1176] 
[1455] 
[ 552 ] 

[1052] 
[1657] 
[1085 ] 

[1557] 

[4073] 

[4184] 

[4957] 


[2113] 

[ 393] 

[2009] 
[6413] 


[2801] 
[831 ] 

[ 1029 ] 
[1234] 
[450] 
[1179] 
[861] 

[4641 ] 

[3525] 

[4802] 

[4251] 

[2946] 

[3380] 

[4772] 

[3871] 

[2072] 
[ 828] 

[7331] 


[3749] 

[350] 

[ 555] 

[1032] 
[4987] 

[1113] 
[3012 ] 
[1294] 
[ 1210 ] 
[1527] 
[2410 ] 
[910] 

[ 1589 ] 

[1690] 

[2553] 

[ 555 ] 

[361] 

[612] 

[330] 

[1364] 
[473] 
[875] 
[467] 

[ 1016] 
[701] 
[826] 
[393] 
[91] 

[5098] 

[2602] 

[9516] 
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Pro gr amm/ Spiel 


2150 FOR ww =1 TO 6 [498] 

2160 IF wwOl THEN LOCATE 11,3+ww : PRI NT " [ 6252] 

"p$(ww-l) M " ELSE LOCATE 11,10:PRINT" "p 
$ ( 6 ) " “ 

2170 LOCATE 12,4+ww:PRINT in$" M p$(ww)" "i [2459] 
n$ ; 

2180 SOUND 1,10*ww+3p0,2,12:FOR p=0 TO kan [3555] 
onen*10:NEXT:1F INKEY$=" “ THEN 2200 
2190 CALL &BD19:NEXT:GOTO 2150 [1007] 

2200 'Taste gedrueckt [833] 


2210 IF ww=l THEN pirat=pirat-10 ELSE IF w [10469] 
w=2 THEN schlff=sch1ff-50 ELSE IF ww=3 THE 
N pirat=p1rat-20 ELSE IF ww=4 THEN schiff= 
schlff-20 ELSE IF ww=5 THEN pirat=pirat-50 
ELSE IF ww=6 THEN schiff=sch1ff-10 
2220 IF pirat<=0 THEN pirat=0:LOCATE 24,3: [4936] 
PRINT" 0":CALL &BB06:GOT0 2280 

2230 IF schiff<=0 THEN schiff=0:GOSUB 1710 [3339] 

:CALL &BB06:GOTO 2320 

2240 LOCATE 24,3:PRINT USING"###";pirat [2282] 

2250 LOCATE 11,4+ww:PRINT" ”p$(ww)" " [2762] 


2260 GOSUB 1710 [869] 

2270 GOTO 2150 [349] 

2280 'Belohnung [1597] 

2290 CLS:PRINT"Herzlichen Glueckwunsch!" [2160] 


2300 PRINT:PRINT"Sie haben unter Einsatz I [12183] 
hres Lebens die freien Hansestaedte vor 
Piraten ge-schuetztPRINT:PRINT"Dafuer g 
ebuehrt Ihnen Lohn und Dank!" 

2310 belohn=INT(RND*500)+800:PRINT:PRINT"S [10626] 
1e bekommen eine Belohnung in Hoehe von" 
belohn“Gulden.":geld=geld+belohn:CALL &BB0 
6:GOSUB 1710:RETURN 

2320 'Schiff kaputt [1429] 

2330 CLS:PRINT"Tut mir 1 eid!!!":PRINT:PRIN [2748] 

T 

2340 PRINT"Die boesen,boesen Pi raten zerst [ 15031] 
oerten Ihr Schiff! Damit waere jetzt Ihre 
Karriere beendet!":PRINT:PRINT"Auf Wi 
edersehen Im naechsten Spiel!":CALL &BB06: 

GOTO 3180 

2350 '** Schiff reparieren ** [1097] 

2360 CLS [gi] 

2370 a=INT(RND*geld)+geld\2:PRINT"Ein 2imm [11043] 
ermann bietet Ihnen an, fuer einen Lohn 
von"a;:PRINT"Gu1 den, Ihr Schiff";:PRINT"zu 
repar1e ren." 

2380 IF geld < a THEN PRINT:PRINT:PRINT:PRIN [6994] 

T"Ihr Geld reicht aber nicht aus!":CALL &B 


B06:GOTO 2690 

2390 PRINT:PRINT:PRINT:PRINT"Einverstanden [3948] 
(j/n) ?" 

2400 a$=LOWER$(INKEY$):IF a$="" THEN 2400 [1357] 

2410 IF a$="j" THEN 2440 [1372] 

2420 IF a$ ="n" THEN 2690 [882] 

2430 GOTO 2400 [347] 

2440 geld=geld-a:schiff=100:GOSUB 1710:G0T [2360] 

0 2690 

2450 '** Handelspolizei *# [745] 


2460 CLS:PRINT"Die Handelspolizei geht an [7486] 
Bord.Sie untersucht alles gruendlich, " 

2470 IF besitzC 7)=0 THEN PRINT:PRINT:PRINT [ 11204] 
:PRINT"Da Sie kein Rauschgift besitzen, ve 
r- 1aesst sie das Schiff und wuenscht 
Ihnen eine gute Fahrt.":CALL &BB06:GOTO 2 
690 

2480 PRINT:PRINT:PRINT:PRINT"Sie entdeckte [6502] 
bei Ihnen"besitz(7)"Paeckchen":PRINT"Raus 
chgift. Sie wurden verhaftet." 

2490 CALL &BB06:GOTO 3180 [1309] 

2500 '*** neues Schiff kaufen *** [1424] 

2510 b=INT(RND*40)+schiff1adung+1:CLS:PRIN [13752] 
T"Ein alter Schiffsbesitzer bietet Ihnen e 
in nagelneues Schiff fuer"b"Waren-":PRINT" 


einheiten an.":a=INT(RND*geld)+2000+l:PRIN 
T:PRINT“Der Preis betraegt"a"Gu1den." 


2520 IF a>geld THEN PRINT:PRINT"Leider hab [5870] 
en Sie zuwenig Ge 1d!":CALL &BB06:GOTO 2690 
2530 PRINT:PRINT"Nehmen Sie an (j/n) ?" [1918] 

2540 a$=LOWER$(INKEY$):IF a$="" THEN 2540 [1345] 

2550 IF a$="j" THEN 2580 [1440] 

2560 IF a$="n" THEN 2690 [882] 

2570 GOTO 2540 [367] 

2580 geld=geld-a:schiff=100:schiff1adung=b [4480] 
.-GOSUB 1710: GOTO 2690 

2590 ‘** Kanone ** [778] 

2600 CLS [gi] 


Lisling HANSEAT 


2610 preis=INT(RND*geld)+1500:PRINT"Man bi [4923] 
etet Ihnen eine nagelneue Kanone fuer"prei 
s"Gu1 den an." 

2620 IF preis>geld THEN PRINT:PRINT:PRINT" [5906] 
Leider haben Sie zuwenig Ge 1d!":CALL &BB06 
:GOTO 2690 

2630 PRINT:PRINT:PRINT"Wol1en Sie sie habe [3093] 
n (j/n) ?" 

2640 a$=LOWER$(INKEY$):IF a$="" THEN 2640 [1565] 


2650 IF a$="j“ THEN 2680 
2660 IF a$=“n" THEN 2690 
2670 GOTO 2640 

2680 geld=geld-preis:kanonen=kanonen+l:GOS 
UB 1710:GOTO 2690 
2690 RETURN 

2700 '*** Schlechte Ware geliefert *** 

2710 zz = RND:IF ZZ < 0.9 5 THEN 2770 
2720 CLS:PRINT"Der Haendler hat Ihnen schi 
echte Ware geliefert und ist in eine ande 
re Stadt gezogen. Ihre neue Ladung ist des 
halb nichts wert!"; 

2730 1 adungswert=ladungswert-(wäre(kauf)*b 
esitz(kauf)) 

2740 besitz(kauf)=besitz(kauf)-stueck 


[ 1452 ] 

[ 882 ] 

[ 363] 

[3329] 

[ 555 ] 

[2786] 

[2772] 

[ 12632 ] 


[3812] 
[1963] 


2750 1adung=ladung-stueck [629] 

2760 CALL &BB06 [393] 

2770 RETURN [555] 

2780 '*** Zinsen und Schiffstauglichkeit * [ 2373 ] 

#* 

2790 bank=bank+(bank/100) [1452] 

2800 m=R0UND((RND*5)*(1adung/schi ff 1 adung) [ 1975 ] 

, 0 ) 

2810 schiff=schiff-m-CINT(p/4):GOSUB 1710 [3098] 

2820 IF schiff<=0 THEN 2840 [1024] 

2830 RETURN [555] 

2840 WINDOW SWAP 3,0:CLS [1571] 

2850 PRINT"Ihr Schiff ist total kaputt!" [2824] 

2860 CALL &BB06:GOTO 3180 [1309] 

2870 '**# Eroeffnung *** [743] 

2880 WINDOW#1,1,80,1,25 [988] 

2890 WINDOW 2,79,2,23 [982] 


2900 FOR i=2 TO 2 4:LOCATE#l,l,i :PRINT#1,CH [5121] 
R$(149);:LOCATE#1,80,i;PRINT#1,CHR$(149);: 

NEXT 

2910 FOR i=2 TO 79:LOCATE#1,i,1:PRINT#1,CH [5149] 
R$(154);:L0CATE#1,i,24:PRINT#1,CHR$(154):: 

NEXT 

2920 RESTORE 2920:F0R 1=1 TO 4:READ x.y.sy [4456] 

:LOCATE#l,x,y:PRINT#l,CHR$(sy);:NEXT:DATA 

1,1,150,80,1,156,1,24,147,80,24,153 

2930 '* Grafik * [1229] 

2940 MOVE 10,350:DRAWR 10,-50:DRAWR 10,50: [3733] 

DRAWR 10,-50:DRAWR 10,50 

2950 MOVE 11,350:DRAWR 10,-50:DRAWR 10,50: [5379] 

DRAWR 10,-50:DRAWR 10,50 

2960 LOCATE 35,1:PRINT CHR$(24);" HANSEAT [6462] 

";CHR$(24)i:LOCATE 56,1:PRINT"von Markus F 
el der ";CHR$(164) n DMV"; 

2970 WINDOW 8,79,4,8 [1019] 

2980 PRINT"1r schreiben das Jahr 1371. E [19189] 
s ist die Bluetezeit der deutschen Hanse.S 
1e haben die Aufgabe, als kleiner Kaufman 
n mit einem geringen Anfangs-kapital viel 
Geld zu verdienen und damit in die hoeher 
en Bevoe1kerungs-schichten vorzudringen. " 

2990 WINDOW 2,79,8,23 [996] 

3000 PRINT"Das ist natuerlich nicht Teich [21793] 
t. Sie muessen von Stadt zu Stadt reisen, 
Warenkaufen bzw. verkaufen,die Bank besuch 
en, gegen Pi raten kaempfen und so weiter.A 
uch muessen Sie sich gegen jegliche 
Betruegereien seitens der Haendler"; 

3010 PRINT"schuetzen. Es kommt auf Ihre G [23152] 
eschleklichkeit an, ob Sie die Piraten abw 
ehrenkoennen. Haben Sie zittrige Haende 
oder aehnliches, dann geht das eben aufK 
osten Ihres Schiffes. Ist es kaputt, da 
nn ist das Spiel eben beendet."; 

3020 PRINT"Allerdings koennen Sie waehr [24214] 
end des Spiels oefters Ihr Schiff repar 
ierenlassen und auch ein neues kaufen. La 
ssen Sie sich aber nicht von der Handels-p 
olizei erwischen waehrend Sie Rauschgift 
transportieren. Es waere schade um"; 

3030 PRINT"Ihre Karriere." [2312] 

3040 PRINT:PRINT:PRINT" Ich [7952] 

wuensche Ihnen viel Spass mit diesem Spiel 
! " 
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3050 LOCATE 29,16:PRINT"Bitte Taste drueck 
en" ; 

3060 FOR ww=l TO 100:CALL &BB09:NEXT:CALL 
&BB06:RETURN 

3070 'Karte+Stadt zeichnen 

3080 CLS#3:CALL &6000,329,102,87,38,kartes 
pr:xx=xstadt(stadt):yy=ystadt(stadt) 

3090 PLOT xx-1,yy+2:DRAWR 4,0:DRAWR 0,-2:0 
RAWR -4,0:DRAWR 0,-2:DRAWR 4,0 
3100 RETURN 
3110 'Markt anzeigen 

3120 CLS#3:CALL &6000,329,103,87,38,markts 
Pr 

3130 a$=" Marktplatz von "+stadt$(stadt)+" 
":LOCAT E# 3,ROUND((38-LEN(a$))/2,0),ll:PRI 
NT#3,in$+a$+in$;:RETURN 
3140 'Schiff darstellen 

3150 CLS:CALL &6000,329,103,87,38,schiffsp 


3160 FOR t=l TO ROUNDCp/2,0):FOR w=l TO 15 
:SOUND 1,0,7,w,,,3:NEXT:FOR w=15 TO 1 STEP 
-1:SOUND 1,0,7,w,,,3:NEXT w,t 
3170 RETURN 

3180 '*** Ende, Bewertung *** 

3190 CLS 

3200 ege1d=ge1d+bank+(1adungswert/5) 

3210 IF egeld<1000 THEN rang$="kl einer Kau 
fmann":zie 1 = 0:GOTO 3270 

3220 IF egeld<10000 THEN rang$="mittlerer 
Kaufmann":ziei=2:GOTO 3270 

3230 IF egeld<30000 THEN rang$="Grosshaend 
1e r":zie1=3:GOTO 3270 

3240 IF eg e1d < 5 0000 THEN rang$="Patriz1er" 
: zie1=4:GOTO 3270 

3250 IF egeld<100000 THEN rang$="Patrizier 
und kaiserlicher Hof1ieferant“:ziei=5:GOT 
0 3270 

3260 IF ege 1d >100000 THEN rang$= "Maechtigs 
ter Mann des Staates nach dem Kaiser":ziel 
= 6 

3270 PRINT name$",":PRINT"Ihr Rang ist: 
rang$ 

3280 PRINT:PRINT:PRINT 

3290 IF z1e1=0 THEN PRINT"Sie haben Ihr Zi 


ei nicht erreicht!" 

3300 IF ziei=1 THEN PRINT"Sie haben Ihr Zi 
ei kaum erreicht!" 

3310 IF zie1=2 THEN PRINT"Sie haben Ihr Zi 


ei nur bedingt erreicht!" 

3320 IF zie1=3 THEN PRINT"Sie haben Ihr Zi 
ei mit Aussnahmen voll erreicht!“ 

3330 IF zie1=4 THEN PRINT”Sie haben Ihr Zi 
ei voll erreicht!" 

3340 IF zie1=5 THEN PRINT"Sie haben Ihr Zi 
ei viel zu niedrig gestellt!" 

3350 IF zie1=6 THEN PRINT"GRATULIERE!!! S 
ie haben Ihr Ziel hervorragend erreicht!!! 


[3598] 

[2403] 

[1157] 

[5316] 

[3577] 

[ 555 ] 

[1733] 

[2358] 

[ 6739 ] 


[1470] 
[1521] 

[8779 ] 


[ 555 ] 
[2165] 
[91] 
[2519] 
[2051] 

[4064] 

[3157] 

[3047] 

[6346 ] 


[7966] 


[ 2871 ] 

[1082 ] 
[5288] 

[3603] 

[5293] 

[7446] 

[4922 ] 

[5169] 

[7484] 


3360 score=(((geld+bank+1adungswert)/(kano [5938] 
nen+1))):score=ROUND(score,0) 

3370 PRINT"PUNKTEscore [1824] 

3380 PRINT:PRINT"Neues Spiel (j/n) ?" [1813] 

3390 FOR 1=0 TO 35 STEP 5:SOUND 1,70-1,10, [5753] 
12:SOUND 2,100-i,10,12:SOUND 4,120-i,10,12 
:FOR t=l TO 10:NEXT t,i 

3400 a$=LOWER$(INKEY$):IF a$="" THEN 3400 [1349] 


3410 IF a$="j" THEN RUN [1227] 

3420 IF a$= "n" THEN 3440 [860] 

3430 GOTO 3400 [497] 

3440 MODE 2:END [1120] 


10 '************************* [894] 

20 '»HANSEAT * [ 678 ] 

30 '* * [175] 

40 '* erzeugt: HANSEAT.SPR * [2714] 

50 ’* * [175] 

60 '* Autor: Markus Felder * [955] 

70 1 ************************* [894] 


80 MODE 2:PRINT"Der Datalader beschreibt n [ 16920 ] 
un den Bildschirm. Bitte Datentraeger einl 
egen und Taste druecken !!!":CALL &BB06:CL 
S:adr=&C000:FOR zei1e=120 TO 8430 STEP 10: 

READ b$,check$ 

90 summe=0:FOR w=0 TO 15:b=VAL("&"+MID$(b$ [7714] 
,w*2 + l,2)):P0KE adr,b:summe=summe + b:adr = ad 
r+1:NEXT w 
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100 IF summe<>VAL("&"+check$) THEN CLS:PRI 
NT CHR$(7)"Datafehler in Zei1e"zei1e". Bit 
te korrigieren und neu starten!!!":END 
110 NEXT zei1e:SAVE"!hanseat.spr",b,&C000, 
&33F8:CLS:PRINT CHR$(7)"Fertig.“:END 
120 DATA DD6EOODD6601224760DD7E02324960DD, 
66D 

130 DATA 7E04324A60DD6E06DD6607DD5E08DD56, 
66F 

140 DATA 09CD1DBCED4B49 60E D5 B4 760C5E51AAE, 
7F1 

150 DATA 7723130D20F8E17CF6COC60867300401, 
64F 

160 DATA 50C009C110E6C9000000000000000000, 

399 

170 DATA FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF, 
FFO 

180 DATA FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF, 
FFO 

190 DATA FFFFFFFFFFFF80000000000000000000, 
6 7 A 

200 DATA 00000000000000000000000000000000, 
000 

210 DATA 00000000000000000000000180000000, 
081 

220 DATA 00000000000000000000000000000000, 
000 

230 DATA 00000000000000000000000000000000, 
000 

240 DATA 00018000000000000000000000000000, 
081 

250 DATA 00000000000000000000000000000000, 
000 

260 DATA 00000000000000018000000000000000, 
081 

270 DATA 00000000000000000000000000000000, 
000 

280 DATA 00000000000000000000000000018000, 
081 

290 DATA 00000000000000000000000000000000, 
000 

300 DATA 00000000000000000000000000000000, 
000 

310 DATA 00000001800000000000000000000000, 
081 

320 DATA 00000000000000000000000000000000, 
000 

330 DATA 00000000000000000001800000000000, 
081 

340 DATA 00000000000000000000000000000000, 
000 

350 DATA 00000000000000000000000000000001, 
001 

360 DATA 80000000000000000000000000000000, 
080 

370 DATA 00000000000000000000000000000000, 
000 

360 DATA 00000000000180000000000000000000, 
081 

390 DATA 00000000000000000000000000000000, 
000 

400 DATA 00000000000000000000000180000000, 
081 

410 DATA OOOOOOOOOOOOOOOOOOOOOOOOOOOOOFF8, 
107 

420 DATA 00000000000000000000000000000000, 
000 

430 DATA 00018000000000000000000000000000, 
081 

440 DATA OOOOOO 3 FFF 7 FFEOOOOOOOOOOOOOOOOOO, 
2BB 

450 DATA 00000000000000018000000000000000, 
081 

460 DATA OOOOOOOOOOOOOOOO 7 FDF 8 CI 8 FDFFOOOO, 
3FE 

470 DATA 00000000000000000000000000018000, 
081 

480 DATA OOOOOOOOOOOOOOOOOOOOOOOOOOFF83EO, 
262 

490 DATA 300603EOFF8000000000000000000000, 
298 

500 DATA 00000001800000000000000000000000, 
081 

510 DATA OOO 3 FFOO 7 COOCOOIOOIFOO 7 FEOOOOOOO, 
3BD 

520 DATA 00000000000000000001800000000000, 
081 

530 DATA 00000000000007FCO00F80030000C000, 
255 
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[5334] 
[2071] 
[2629] 
[2299] 
[1704] 
[1765] 
[3602] 
[3602] 
[3134] 
[2181] 
[1862] 
[2181] 
[2181] 
[1584] 
[2181] 
[1710] 
[2181] 
[2115] 
[2181] 
[2181] 
[1774] 
[2181] 
[1894] 
[ 2181 ] 
[2168] 
[1274] 
[2181 ] 
[1870] 
[2181 ] 
[1862] 
[2371] 
[2181 ] 
[1584] 
[1129] 
[1710] 
[2154] 
[2115] 
[1941] 
[2428] 
[1774] 
[2526] 
[1894] 
[1446] 
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540 

20C 

DATA 

FC001FF0000000000000000000000001, 

[1680] 

550 
27 A 

DATA 

800000000000OOOOOOOOOOOFF 8 OOO 3 FO, 

[1834] 

560 

2 2 A 

DATA 

OOOCOOOO 3 OOOO 3 EOOOOFFCOO00000000, 

[3099 ] 

570 

081 

DATA 

00000000000180000000000000000000, 

[1870] 

580 

1 E 6 

DATA 

SFFOOOOOTCOOOOlOOOOOOCOOOOlFOOOO, 

[ 1811 ] 

590 

182 

DATA 

03FEOOOOOOOOOOOOOOOOOOO180000000, 

[ 1866 ] 

600 

22E 

DATA 

OOOOOOOOOOTFCOOOOOOFeOOOOOeOOOOO, 

[1900] 

610 

1FF 

DATA 

03000000FCO00001FF00000000000000, 

[2348 ] 

620 

2F2 

DATA 

OOOI 8 OOOOOOOOOOOOOOIFF 8 OOOOOOIFO, 

[1773] 

630 

2E3 

DATA 

0O0O018000000O80O00O03E00O0000FF, 

[1245] 

640 

242 

DATA 

CO0000000000000180000000000003FE, 

[2021] 

650 
0 A4 

DATA 

000000003E0000000600000000600000, 

[ 1449 ] 

660 

1BF 

DATA 

001F000000003FE00000000000018000, 

[ 1662 ] 

670 

1EA 

DATA 

00000007FCOOOOOOOOOFCOOOOOOO1800, 

[2242] 

680 

223 

DATA 

OOOOOOI 8 OOOOOOOOFCOOOOOOOOIFFOOO, 

[1842] 

690 

289 

DATA 

00000001800000001FF80000000001FO, 

[1824] 

700 

149 

DATA 

000000006000000000060000000003E0, 

[1686] 

710 

380 

DATA 

OOOOOOOOOFFCOOOOOOOlSOOOOOOSFFFF, 

[919] 

720 

FFO 

DATA 

FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF, 

[3602] 

730 

CE5 

DATA 

FFFFFFFFFFFFFFFFFFFFFFFFF0000001, 

[3006] 

740 

C77 

DATA 

80000003FFFFFFFFFFFFFFFFFFFFFFFF, 

[ 2459 ] 

750 

FFO 

DATA 

FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF, 

[3602] 

760 

95D 

DATA 

FFFFF000000180000003FFFFFFFFFFFO, 

[3204] 

770 

A14 

DATA 

0003FFFFFFF0001FFFFFFEOOFCOFFFFF, 

[1774] 

780 

74C 

DATA 

FC01C01FFFFFFFFFF000000180000003, 

[1613] 

790 

B28 

DATA 

FFFFFFFFFFF007007FFFFF803803FFFF, 

[2950] 

800 

AEE 

DATA 

FEOOFCOFFFFFFCOOOOFFFFFFFFFFFOOO, 

[1461] 

810 

7F4 

DATA 

000180000003FFFFFFFFFFF007007FFF, 

[2585] 

820 

SEI 

DATA 

FF803803FFFFFE001COFFFFFFC0007FF, 

[2267] 

830 

96C 

DATA 

FFFFFFFFF000000180000003FFFFFFFF, 

[2738] 

840 

8 7 D 

DATA 

FFF0OOO3FFFFFF8O0O03FFFFFEOOOOOF, 

[ 1952 ] 

850 

9A5 

DATA 

FFFFFO003FFFFFFFFFFFF00000018000, 

[2605 ] 

860 

920 

DATA 

0003FFFFFFFFFFF007007FFFFF803803, 

[2304] 

870 
BE 7 

DATA 

FFFFFE00E00FFFFFFC0007FFFFFFFFFF, 

[ 2959 ] 

880 

766 

DATA 

F000000180000003FFFFFFFFFFF00700, 

[1597] 

890 

A39 

DATA 

7FFFFF803803FFFFFE00FC0FFFFFFC00, 

[3004] 

900 

860 

DATA 

OOFFFFFFFFFFF000000180000003FFFF, 

[1509] 

910 

AA4 

DATA 

FFFFFFF00003FFFFFF803803FFFFFEOO, 

[2037] 

920 

902 

DATA 

FCOFFFFFFCOICOIFFFFFFFFFFOOOOOOI, 

[2777] 

930 

C77 

DATA 

80000003FFFFFFFFFFFFFFFFFFFFFFFF, 

[2459] 

940 

FFO 

DATA 

FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF, 

[3602 ] 

950 

96C 

DATA 

FFFFF000000180000003FFFFFFFFFFFF, 

[3503] 

960 

FFO 

DATA 

FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF, 

[3602] 

970 

96C 

DATA 

FFFFFFFFFFFFFFFFFOOOOOO180000003, 

[2872] 

980 

FFO 

DATA 

FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF, 

[3602] 
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990 

EE2 

DATA 

FFFFFFFFFFFFFFFFFFFFFFFFFFFFFOOO , 

[3086] 

1000 
, 736 

DATA 

0001800000036DB6AAAAAAADB6DAAAAA 

[2993] 

1010 
, B3D 

DATA 

AAEDB6EAAAAAA8B6DBAAAAAAAB6DB6AA 

[2438] 

1020 
, 57E 

DATA 

AAAABB6DB0000001800000036DB75555 

[2229 ] 

1030 
, 82 1 

DATA 

555DB6D05555556DB6D5555555B6DB55 

[2863 ] 

1040 
, 51D 

DATA 

5555576DB75555555B60B00000018000 

[ 1925 ] 

1050 
, 9EC 

DATA 

00036DB6AAAAAAADB6DAAAAAAAEDB6EA 

[2317] 

1060 
, A82 

DATA 

AAAAABB6DBAAAAAAAB6 DB6AAAAAAB86D 

[ 2798 ] 

1070 
, 547 

DATA 

B0000001800000036DB75555555D86DD 

[1862 ] 

1080 
, 74A 

DATA 

5555556DB6D5555555B60B555555576D 

[2264] 

1090 
, 4D5 

DATA 

B75555555B6DB0000001800000036DB6 

[1396] 

1100 
, 87B 

DATA 

AAAAAAAD86DAAAAAAAEDB6EAAAAAABB6 

[1213] 

1110 
, 87E 

DATA 

DBAAAAAAAB6DB6AAAAAABB6D80000001 

[2516] 

1120 
, 602 

DATA 

800000036DB75555555DB6DD5555556D 

[1267] 

1130 
, 794 

DATA 

B6D5555555B6DB555555576DB7555555 

[2088] 

1140 
, 5CA 

DATA 

586DBO000001800000036DB6AAAAAAAD 

[2701] 

1150 
, BA9 

DATA 

B6DAAAAAAAEDB6EAAAAAABB6DBAAAAAA 

[3490] 

1160 
, 628 

DATA 

AB6DB6AAAAAABB6DBOOOOOO180000003 

[2030] 

1170 
, 7B4 

DATA 

6DB75555555DB6DD55555560B6D55555 

[2011] 

1180 
, 6D7 

DATA 

55B6DB55 5555576DB 7555 5 555B6DB000 

[2150] 

1190 
, 736 

DATA 

0001800000036DB6AAAAAAADB6DAAAAA 

[2993] 

1200 
, B3D 

DATA 

AAEDB6EAAAAAABB6DBAAAAAAAB6DB6AA 

[2438 ] 

1210 
, 5 7 E 

DATA 

AAAABB6DB0000001800000036DB75555 

[2229] 

1220 

,821 

DATA 

555DB6DD5555556DB6D5555555B6D855 

[2863] 

1230 
, 5 1 D 

DATA 

5555576DB75555555B6DBOOOOOO18000 

[1925] 

1240 
, 9EC 

DATA 

00036DB6AAAAAAADB6DAAAAAAAEDB6EA 

[2317] 

1250 
, A82 

DATA 

AAAAABB6DBAAAAAAAB6D86AAAAAABB6D 

[2798] 

1260 
, 547 

DATA 

80000001800000036DB75555555DB6DD 

[ 1862 ] 

1270 
, 74A 

DATA 

5555556DB6D5555555B6DB5555555760 

[2264] 

1280 
, 4D5 

DATA 

B75555555B6DB0000001800000036DB6 

[1396] 

1290 
, B7B 

DATA 

AAAAAAADB6 DAAAAAAAEDB6EAAAAAAB8 6 

[ 1213] 

1300 
, 8 7 E 

DATA 

DBAAAAAAAB6DB6AAAAAAB86 DB0000001 

[2516] 

1310 
, 602 

DATA 

800000036DB75555555DB6DD5555556D 

[1267] 

1320 
, 794 

DATA 

B6D5555555B6DB555555576DB7555555 

[2088] 

1330 
, 5CA 

DATA 

5B6DBOOOOOO1800000036DB6AAAAAAAD 

[2701 ] 

1340 
, BA9 

DATA 

B6DAAAAAAAEDB6EAAAAAABB6DBAAAAAA 

[3490] 

1350 
, 628 

DATA 

AB6DB6AAAAAA8B6DB000000180000003 

[ 2030 ] 

1360 
, 7B4 

DATA 

6DB 75555555DB6DD5555556DB6D55555 

[2011] 

1370 
, 607 

DATA 

55B6DB555555576DB75555555B6DB000 

[2150] 

1380 
, 736 

DATA 

0001800000036DB6AAAAAAADB6DAAAAA 

[2993] 

1390 
, B3D 

DATA 

AAEDB6EAAAAAABB6DBAAAAAAAB6DB6AA 

[2438] 

1400 

, 57E 

DATA 

AAAABB6DB0000001800000036DB75555 

[2229 ] 

1410 
, 821 

DATA 

555DB6DD5555556DB6D5555555B60B55 

[2863] 

1420 
, 51D 

DATA 

5555576DB75555555B6DB00000018000 

[ 1925 ] 
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1430 
, 9 EC 

OATA 

1440 
, A82 

DATA 

1450 
, 547 

DATA 

1460 
, 74A 

DATA 

1470 
, 405 

DATA 

1480 

, B7B 

DATA 

1490 
, 8 7 E 

DATA 

1500 

, 602 

DATA 

1510 
, 794 

DATA 

1520 
, 5CA 

DATA 

1530 
, BA9 

DATA 

1540 
, 628 

DATA 

1550 
, 7B4 

DATA 

1560 
, 6D7 

DATA 

1570 
, 736 

DATA 

1580 
, B3D 

DATA 

1590 
, 57E 

DATA 

1600 
, 821 

DATA 

1610 
, 51D 

DATA 

1620 
, 9EC 

DATA 

1630 
, A82 

DATA 

1640 
, 547 

DATA 

1650 
, 74A 

DATA 

1660 
, 4D5 

DATA 

1670 
, B7B 

DATA 

1680 
, 87E 

DATA 

1690 
, 602 

DATA 

1700 
, 794 

DATA 

1710 
, 5CA 

DATA 

1720 
, BA9 

DATA 

1730 
, 628 

DATA 

1740 
, 7B4 

DATA 

1750 
, 6 D 7 

DATA 

1760 
, 736 

DATA 

1770 

,B3D 

DATA 

1780 
, 57E 

DATA 

1790 
, 821 

DATA 

1800 

,510 

DATA 

1810 
, 9 EC 

DATA 

1820 
, A82 

DATA 

1830 
, 547 

DATA 

1840 
, 74A 

DATA 

1850 
, 4D5 

DATA 

1860 
, B7B 

DATA 


00036DB6AAAAAAADB6DAAAAAAAEDB6EA 
AAAAABB6DBAAAAAAAB6 DB6AAAAAABB6 D 
B0000001800000036DB75555555DB60D 
5555556DB6D5555555B6DB555555576D 
S75555555B6DB0000001800000036DB6 
AAAAAAADB6DAAAAAAAEDB6EAAAAAABB6 
DBAAAAAAAB6DB6AAAAAABB6DB0000001 
800000036DB75555555DB6DD5555556D 
B6D5555555B6DB555555576D87555555 
5B6DB0000001800000036DB6AAAAAAAD 
B6DAAAAAAAEDB6EAAAAAABB6D3AAAAAA 
AB6DB6AAAAAABB6DB000000180000003 
6DB75555555DB60D5555556DB6D55555 
55B6DB555555576DB75555555B6DB000 
0001800000036DB6AAAAAAADB6DAAAAA 
AAEDB6EAAAAAABB6DBAAAAAAAB6DB6AA 
AAAABB60B0000001800000036DB75555 
555DB6DD5555556DB6D5555555B6DB55 
5555576DB75555555B6DB00000018000 
00036DB6AAAAAAADB6DAAAAAAAEDB6EA 
AAAAABB6DBAAAAAAAB6DB6AAAAAABB6D 
B0000001800000036DB75555555DB6DD 
5555556DB6D5555555B6DB555555576D 
B75555555B6DB0000001800000036DB6 
AAAAAAADB6DAAAAAAAEDB6EAAAAAABB6 
DBAAAAAAAB6DB6AAAAAABB6DB0000001 
800000036DB75555555DB6DD5555556D 
B6D555555 5B6DB55 5 5 555 76DB75 55555 
5B6DB0000001800000036DB6AAAAAAAD 
B6DAAAAAAAEDB6EAAAAAABB6DBAAAAAA 
AB6DB6AAAAAABB6DBOOOOOO180000003 
6DB 75555555DB6DD5555556 DB6D55555 
55B6DB555555576DB75555555B6DBOOO 
0001800000036DB6AAAAAAADB6DAAAAA 
AAEDB6EAAAAAABB6DBAAAAAAAB6DB6AA 
AAAABB6DB0000001800000036DB75555 
555DB6DD5555556DB6D5555555B6DB55 
5555576DB75555555B6DB00000018000 
00036DB6AAAAAAADB6DAAAAAAAEDB6EA 
AAAAABB6DBAAAAAAAB6DB6AAAAAABB6D 
B0000001800000036DB75555555DB6DD 
5555556DB6D5555555B6DB555555576D 
B75555555B6DB0000001B00000036DB6 
AAAAAAADB6DAAAAAAAEDB6 EAAAAAABB6 


[2317] 
[2798] 
[ 1862 ] 


226 

4] 

139 

6] 

121 

3] 

25 1 

6] 

126 

7] 

208 

8] 

270 

1] 

349 

0] 

203 

0] 

201 

1] 

215 

0] 

299 

3] 

243 

8] 

222 

9] 

286 

3] 

192 

5] 

231 

7] 

279 

8] 

1862 ] 


[2264] 
[1396] 
[1213] 
[2516] 
[1267] 
[2088 ] 
[2701] 
[3490] 
[2030] 
[ 2011 ] 
[2150] 
[2993] 
[2438] 
[2229 ] 
[2863] 
[ 1925 ] 
[2317] 
[2798] 
[1862] 
[2264] 
[1396] 
[1213] 
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1870 
, 87E 
1880 
, 602 
1890 
, 794 
1900 
, 5CA 
1910 
, BA9 
1920 
, 628 
1930 
, 7B4 
1940 
, 6 D 7 
1950 
, 736 
1960 
, B3D 
1970 
, 7B8 
1980 
, FFO 
1990 
,873 
2000 
,010 
2010 
,000 
2020 
, 0E3 
2030 
,000 
2040 
, 182 
2050 
, 000 
2060 
, 041 
2070 
, 081 
2080 
,000 
2090 
, 7 A1 
2100 
, FFO 
2110 
, ASS 
2120 
,000 
2130 
, 006 
2140 
, 0A1 
2150 
, 000 
2160 
, 1C2 
2170 
, 000 
2 1 BO 
, 142 
2190 
, 000 
2200 
, 000 
2210 
, C15 
2220 
, FFO 
2230 
, FFO 
2240 
, FFO 
2250 
, FFO 
2260 
, 080 
2270 
, 000 
2280 
, 081 
2290 
, 000 
2300 
> 141 
2310 
, 000 


DATA DBAAAAAAAB6DB6AAAAAABB6DB0000001 
DATA 800000036DB75555555DB6DD5555556D 
DATA B6D5555555B6D8555555576DB7555555 
DATA 5B6DBOOOOOO1800000036DB6AAAAAAAD 
DATA B6DAAAAAAAEDB6EAAAAAABB6DBAAAAAA 
DATA AB6DB6AAAAAABB6DBOOOOOO180000003 
DATA 60B75555555DB6DD5555556DB6D55555 
DATA 55B60B5555555760B75555555B6D8000 
DATA 0001800000036DB6AAAAAAADB6DAAAAA 
DATA AAED86EAAAAAABB6DBAAAAAAAB6DB6AA 
DATA AAAABB6DBOOOOOO18000000FFFFFFFFF 
DATA FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF 
DATA FFFFFFFFFFFFFFFFFFFFFCOOOOO18000 
DATA OOIOOOOOOOOOOOOOOOOOOOOOOOOOOOOO 
DATA 00000000000000000000000000000000 
DATA 02000001800000600000000000000000 
DATA 000000000000 000000 00000000 000 000 
DATA 00000000000001800001800000800000 
DATA 00000000000000000000000000000000 
DATA 00000000000000000000000000400001 
DATA 80000100000000000000000000000000 
DATA 00000000000000000000000000000000 
DATA 000000200001800007FFF FFF FFF FF FFF 
DATA FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF 
DATA FFFFFFFFFFFFFFFFFFF8000180001800 
DATA 00000000000000000000000000000000 
DATA 00000000000000000000000000000006 
DATA 00018000200000000000000000000000 
DATA 00000000000000000000000000000000 
DATA 00000000000180018000000000000000 
DATA 00000000000000000000000000000000 
DATA 0000000000000000000000OOCOO18001 
DATA 00000000000000000000000000000000 
DATA 00000000000000000000000000000000 
DATA 00002001FFFFFFFFFFFFFFFFFFFFFFFF 
DATA FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF 
DATA FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF 
DATA FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF 
DATA FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF 
OATA 80000000000000000000000000000000 
DATA 00000000000000000000000000000000 
DATA 00000000000180000000000000000000 
DATA 00000000000000000000000000000000 
DATA C0000000000000000000000180000000 
DATA 00000000000000000000000000000000 


Listing HANSEAT 


[2516] 
[ 1267 ] 
[2088] 
[2701 ] 
[3490] 
[2030] 
[ 2011 ] 
[2150] 
[2993] 
[2438] 
[2902] 
[3602] 
[3035] 
[ 1343 ] 
[2181 ] 
[ 1890] 
[2181 ] 
[1744] 
[2181] 
[2184] 
[946] 

[2181 ] 
[2713] 
[3602 ] 
[2809 ] 
[2181] 
[2286] 
[2109] 
[2181] 
[2061] 
[21813 
[2203] 
[2181] 
[2181 ] 
[2329 ] 
[3602 ] 
[3602] 
[3602] 
[3602] 
[1274] 
[2181 ] 
[ 1870 ] 
[2181] 
[ 2220 ] 
[2181 ] 


8’89/90 Sonderheft 


CPC 77 









Programm/Spiel 


2320 

DATA 

, OCO 
2330 

DATA 

,081 

2340 

DATA 

, 141 
2350 

DATA 

, 081 
2360 

DATA 

, OCO 
2370 

DATA 

,579 

2380 

DATA 

,000 

2390 

DATA 

, 0A2 
2400 

DATA 

, 081 
2410 

DATA 

,936 

2420 

DATA 

,270 

2430 

DATA 

, 045 
2440 

DATA 

, 67C 
2450 

DATA 

, 083 
2460 

DATA 

, B82 
2470 

DATA 

, 081 
2480 

DATA 

, 7 F A 
2490 

DATA 

, 43E 
2500 

DATA 

, 5FA 
2510 

DATA 

, 9B3 
2520 

DATA 

,081 

2530 

DATA 

,C58 

2540 

DATA 

, 081 
2550 

DATA 

, AED 
2560 

DATA 

, 65C 
2570 

DATA 

, 413 
2580 

DATA 

, BEI 
2590 

DATA 

, 081 
2600 

DATA 

, DF9 
2610 

DATA 

, 2 70 
2620 

DATA 

,817 

2630 

DATA 

, 7EA 
2640 

DATA 

, 2BD 
2650 

DATA 

, 006 
2660 

DATA 

, 081 
2670 

DATA 

, B1F 
2680 

DATA 

, 2CB 

2690 

DATA 

, 6B9 
2700 

DATA 

, 4C1 
2710 

DATA 

, 180 
2720 

DATA 

,858 

2730 

DATA 

, 081 
2740 

DATA 

, 6C6 
2750 

DATA 

, 0C3 

Listing HANSEAT 


[1484 ] 
[ 1584 ] 
[1081 ] 
[1710] 
[2131] 
[2773] 
[2181 ] 
[1161 ] 
[1774] 
[2230] 
[1780] 
[ 1842 ] 
[I960] 
[1296] 
[2918] 
[ 1870 ] 
[ 2382 ] 
[1699] 
[2639] 
[ 1660] 
[ 1584 ] 
[2700] 
[1710] 
[2044] 
[ 2802 ] 
[ 1885 ] 
[2317] 
[1774] 

[3163] 
[ 1 780 ] 
[2628] 
[2796] 

[1365] 
[2984] 
[1870] 
[2590] 

[2350] 

[2004 ] 

[1809] 

[1367] 

[1067] 
[1710] 

[1862] 

[1879] 


2760 
, 37B 

DATA 

2770 
, 183 

DATA 

2780 
, 081 

DATA 

2790 
, 1FB 

DATA 

2800 
, 081 

DATA 

2810 
, 0C6 

DATA 

2820 
, 043 

DATA 

2830 
, 084 

DATA 

2840 
, 104 

DATA 

2850 
, 081 

DATA 

2860 
. 4E1 

DATA 

2870 
, 5 3 D 

DATA 

2880 
, 084 

DATA 

2890 
, 83C 

DATA 

2900 
, 081 

DATA 

2910 
, DF2 

DATA 

2920 
, 081 

DATA 

2930 
, 7B8 

DATA 

2940 
, 67B 

DATA 

2950 
, 1C2 

DATA 

2960 
, BEC 

DATA 

2970 
, 100 

DATA 

2980 
, FA8 

DATA 

2990 
, 27F 

DATA 

3000 
, 97D 

DATA 

3010 

,879 

DATA 

3020 
, 4 8 B 

DATA 

3030 
, DE2 

DATA 

3040 
, 081 

DATA 

3050 
, D81 

DATA 

3060 
, 4FD 

DATA 

3070 
, 734 

DATA 

3080 
, 9E6 

DATA 

3090 
, 2FE 

DATA 

3100 
, 808 

DATA 

3110 
, 141 

DATA 

3120 
, 439 

DATA 

3130 
, 0C3 

DATA 

3140 

,183 

DATA 

3150 
, 084 

DATA 

3160 
, 08D 

DATA 

3170 
, 10B 

DATA 

3180 
, 081 

DATA 


0000000000000000000001FFFE0481F8 
0003FE40000000024000000000000000 
00000001800000000000000000000000 
O3F00004800000000240000000024000 
00000000000000000001800000000000 
00000000000000000004800000000240 
00000002400000000000000000000001 
80000000000000000000000000000004 
80000000024000000002400000000000 
00000000000180000000000000000000 
00000000000480000000025FFFFFFFFF 
FFFFFFFFCOOOOOOOOOOOOOO180000000 
00000000000000000000000480000000 
0243FFFFFFFFFFFFFFFEOOOOOOOOOOOO 
00018000000000000000000000000000 
0004FFFFFFFFFFFBFFFFFFFFFFFFFFFF 
00000000000000018000000000000000 
00000000000000048FFFFFFFFFFBFFFF 
FFFFFFFFFFFF00000000000000018000 
0000000000000000000000000004BFFF 
FFFFFFF7FFFFFFFFFFFFFFFFOOOOOOOO 
0000000180000000000000000000007F 
FFFFFFFFBFFFFFFFFFF7FFFFFFFFFFFF 
FF FF000000000000000180000 0000000 
OOOOOOOOOOOFFFFFFFFF7FFFFFFFFFF7 
FFFFFFFFFFFFFFFF8000000000000001 
80000000000000000000000FFFFFFFFF 
7FFFFFFFFFEFFFFFFFFFFFFFFFFF8000 
00000000000180000000000000000000 
001FFFFFFFFF7FFFFFFFFFEFFFFFFFFF 
FF FFFFFF800000000000000180000000 
OOOOOOOOOOOOOOSFFFFFFFFEFFFFFCOO 
3FEFFFFFFFFFFFFFFFFFCOOOOOOOOOOO 
000180000000000000000000007FFFFF 
FFFEFFFE0000024FFFFE0002 4000 7FFF 
COOOOOOOOOOOOOO18000000000000000 
0000007FFFFC007EFF00000002400000 
00024000000000000000000000018000 
000000000000000000FF000000048000 
00000240000000024000000000000000 

000000018000000oooooooooocoooooo 

00000004800000000240000000024300 

00000000000000000001800000000000 


Listing HANSEAT 


[2524] 
[ 1854] 
[1774] 
[2534] 
[1894] 
[ 2112 ] 
[1359] 
[1334] 
[2064] 
[1870] 
[2207] 
[2173] 
[ 1984] 
[3283] 
[1584] 
[2861] 
[1710] 
[2424] 
[ 2626 ] 
[ 1744 ] 
[2176] 
[1722] 
[3710] 
[ 1083 ] 
[2765] 
[3047] 
[ 1632 ] 
[ 2670] 
[1870] 
[3399] 
[1523] 
[ 1928 ] 
[2806] 
[1770] 
[1399] 
[2141] 
[1336] 
[ 1879 ] 
[1596] 
[ 1632 ] 
[2045 ] 
[1449] 
[1894] 


78 CPC 


Sonderheft 8’89/90 





Programm/Spiel 


3190 
, 18C 

DATA 

000006000000000000048000000003FF 

t 1919] 

3200 
, 8 F 5 

DATA 

FFFFFFFFFFFFFFFFFC00000000000001 

[2102] 

3210 
, 087 

DATA 

80000000000000000300000000000004 

[1575] 

3220 

,909 

DATA 

80000000027FFFFFFFFFFFFFFFFFEOOO 

[1942] 

3230 
, 102 

DATA 

00000000000180000000000000000180 

[2142] 

3240 
, A76 

DATA 

0000000001FFFFFFFFFFFF7FFFFFFFFF 

[2000] 

3250 
, 5 5 D 

DATA 

FFFFFFFFE00000000000000180000000 

[2311] 

3260 

, 904 

DATA 

OOOOOOOOOOCOIFFFFFFFFDFFFFFFFFFF 

[ 1808 ] 

3270 
, A5A 

DATA 

FF7FFFFFFFFFFFFFF3FFFOOOOOOOOOOO 

[1773] 

3280 
, 3E9 

DATA 

00018000000000000000046007FFFFFF 

[2521] 

3290 
, F IC 

DATA 

FDFFFFFFFFFFFF7FFFFFFFFFFFFFADFF 

[1829] 

3300 
, 179 

DATA 

F8000000000000018000000000000000 

[2062 ] 

3310 
, D33 

DATA 

0E3007FFFFFFF8FFFFFFFFFFFEFFFFFF 

[2138] 

3320 
, 70E 

DATA 

FFFFFFFF96FFFC00000000000C018000 

[2112] 

3330 

, 72B 

DATA 

OOOOOOOOOOOOOFI8OFFFFFFFFBFFFFFF 

[ 2633 ] 

3340 
, 865 

DATA 

EOO1FEFFFFFFF0O24O7F5B7FFEO0OO0O 

[1234] 

3350 
, 23A 

DATA 

0000000180000000000000001F8C0FFF 

[2019 ] 

3360 
, 546 

DATA 

FFFE03FF8000000006FF800000024000 

[1291] 

3370 
, 2FC 

DATA 

ED8FFF00000000000001800000000000 

[1433] 

3380 
, 302 

DATA 

00003FE61FF800000004800000000240 

[1985] 

3390 

,210 

DATA 

000000024000EDE00000000000000001 

[1783] 

3400 

. 274 

DATA 

80000000000000007FFl800000000004 

[1786] 

3410 

, 2 E 2 

DATA 

8OOOOOOOO24OOOOOOOO24OOIEDFOOOOO 

[1379] 

3420 
, 1F8 

DATA 

OOOOOOO0000180000000000000007FF8 

[2053] 

3430 
, 6 7 E 

DATA 

C00000000004800000003FFFFFFFFFFF 

[2883] 

3440 
, 567 

DATA 

FFFDEEFDFF000000000000018CCOQOCO 

[1776] 

3450 
, 775 

DATA 

OOOOOOOOFFFC6OOOOOOOIFFFFFFFFFFF 

[1733] 

3460 
, ADB 

DATA 

FBFFFFFFFFFFFFFBEEFEFFOOOOOOOOOO 

[ 1399 ] 

3470 
, 2AF 

DATA 

00018000000000000001FFFE30000000 

[1771] 

3480 
, E5C 

DATA 

03FFFFFFFFFFFBFFFFFFFFFFFFFBEF7F 

[2815] 

3490 
, 183 

DATA 

7F800000000000018OOOOOOOOOOOOOO3 

[2107] 

3500 
, F68 

DATA 

FFFF7FFFFFFFFBFFFFFFFFFFFBFFFFFF 

[2020] 

3510 
, 732 

DATA 

FFFFFFF7DF7FDF800000000000018000 

[2198] 

3520 

,975 

DATA 

000000000003FFFF7FFFFFFFFBFFFFFF 

[ 2466 ] 

3530 
, 033 

DATA 

FFFFF7FFFFFFFFFFFFF7DFBFEFC000C0 

[2440] 

3540 
, 483 

DATA 

000000018000000000000007FFFEFFFF 

[2050] 

3550 
, F DO 

DATA 

FFFFF7FFFFFFFFFFF7FFFFFFFFFFFFEF 

[2832 ] 

3560 
, 3D6 

DATA 

DFBFF7C0000000000001800000000000 

[2357] 

3570 
, DFO 

DATA 

OOOFFFFEFFFFFFFFF7FFFFFFFFFFF7FF 

[ 1532 ] 

3580 

,966 

DATA 

FFFFFFFFFFEFDFBFFDE0000000000001 

[2936 1 

3590 
, 885 

DATA 

800000000000001 FFFFDFFFFFFFFEFFF 

[1494] 

3600 
, F68 

DATA 

FFFFFFFFF7FFFFFFFFFFFFDFDFDFFEE0 

[1937] 

3610 
, 29C 

DATA 

000000000001800000000000001FFFFD 

[ 2238 ] 

Listing HANSEAT 




3620 
, FD8 

DATA 

FFFFFFFFEFFFFFFFFFFFF7FFFFFFFFFF 

[ 2367 ) 

3630 
, 5 BC 

DATA 

FFDFDFDFFF 7000000000000180000000 

[2122] 

3640 
, B90 

DATA 

0000003FFFFBFFFFFFFFDFFFFFFFFF80 

[2098] 

3650 
, A45 

DATA 

OFFFFFFFFFFFFFBFBFEFFFDOOOOOOOOO 

[3526] 

3660 

,578 

DATA 

0001800000000000007FFFFBFFFF8000 

[1547] 

3670 
, B9 3 

DATA 

1FFFFFFC00001FFFFFFFFFFFFFBFBFE3 

[1810] 

3680 
, 367 

DATA 

FFE800000000000180000000000000FF 

[2350] 

3690 
, 7B2 

DATA 

FFF8018000003FFFE00000001FFFFFFF 

[2849 ] 

3700 
, 4D3 

DATA 

F801207F8FFC3FF00000000000018000 

[ 1905 ] 

3710 
, 569 

DATA 

0OOO00O000FFFFF7F180O00C7F048000 

[ 1 779 ] 

3720 
, 62A 

DATA 

00003FFFFEOOOOO1201FFOFFC3FCOOOO 

[2006 ] 

3730 
, 4E0 

DATA 

0000000180000000000001FFFFEFF180 

[ 1593 ] 

3740 

,265 

DATA 

00008004800000007FC0000000012001 

[1537] 

3750 
, 2BD 

DATA 

FF0FFC32OOOOOOO00001800000000000 

[1694] 

3760 
, 504 

DATA 

001FFFEFF18000008004800000004240 

[1411] 

3770 
, 3DF 

DATA 

OOOOOOO120003FF0FFCFC00000000001 

[3147] 

3780 

,314 

DATA 

80000000000000003FDFF1B000010004 

[1145] 

3790 
, 2BE 

DATA 

80000000824000000001200007FFOF46 

[ 1202 ] 

3800 

, 1BC 

DATA 

000000000001800000000000007COOBF 

[2088] 

3810 
, 2B9 

DATA 

F1800001000480000000824000000001 

[1863] 

3820 
, 30B 

DATA 

2000007FF3F800000000000180000000 

[ 2272 ] 

3830 
, 3 7A 

DATA 

00000043FF41F1800002000480000000 

[1343] 

3840 

,470 

DATA 

82400000000I2OOOFFCFFFCOOOOOOOOO 

[ 1532 ] 

3850 
, 2BE 

DATA 

0001800000000000007C013FFD800004 

[1613] 

3860 
, 422 

DATA 

000480000001024000001FFFFFFF003F 

[1966] 

3870 
, OA 7 

DATA 

03000000000000018000000000000023 

[1779] 

3880 
, 784 

DATA 

FFC003FFFE040004800000013FFFFFFF 

[2073] 

3890 
, 324 

DATA 

EOOOOOOOFFCOOAOOOOO0000000018000 

[ 1842 ] 

3900 
, 4C6 

DATA 

000000000010003FFC0001FFFFFC8000 

[2150] 

3910 
, 562 

DATA 

7FFFC000000OlFFFFFFFOOOOO8000000 

[2928] 

3920 
, 1EB 

DATA 

000000018000000000000008600003FF 

[2556] 

3930 
, 7 9 F 

DATA 

FEOOOOO7FFFF8OOO3FFFFFFFEOOOOOOO 

[ 2280 ] 

3940 
, 191 

DATA 

60803000000000000001800000000000 

[1645] 

3950 
, 5FD 

DATA 

OOO8OO6O6OOOOIFFFFF8OOOO7FFFCOOO 

[1917] 

3960 
■ 1F 1 

DATA 

00000060606008884000000000000001 

[2336] 

3970 
, 14B 

DATA 

80000000000000040000006060000007 

[1664] 

3980 
, 512 

DATA 

FFFF8000006060606000000004908000 

[1400] 

3990 
, 083 

DATA 

00000000000180000000000000020000 

[2078] 

4000 
, 1E0 

DATA 

00000060606000000060600000000000 

[2607] 

4010 
, 0E5 

DATA 

00000361000000000000000180000000 

[ 1948] 

4020 
, 121 

DATA 

00000001000000000000000060606000 

[ 1669 ] 

4030 
, 002 

DATA 

00000000000000000002000000000000 

[1626] 

4040 
, 101 

DATA 

00018000000000000000800000000000 

[1654] 

Listing HANSEAT 



8’89/90 Sonderheft 


CPC 79 





Programm/Spiel 


4470 

,014 

DATA 

00000000000000000000140000000000 

[1969] 

4480 
, 080 

DATA 

00000020204000000000000000000000 

[1479] 

4490 

,081 

DATA 

00000001800000000000000000000000 

[1774] 

4500 
, 148 

DATA 

2AOO0O0OOOO1OO0OO3811D7COOOOOOOQ 

[1958] 

4510 

,081 

DATA 

00000000000000000001800000000000 

[1894] 

4520 

,210 

DATA 

00000000000055000004009134003FB3 

[ 1948] 

4530 
, 16E 

DATA 

39DC4B10000000000000000000000001 

[2232] 

4540 
■ 14F 

DATA 

800000000000000000000000AB0OOO24 

[1642] 

4550 
, 54C 

DATA 

048FFB03FFFB7BEE5800000000000000 

[1873] 

4560 

,081 

DATA 

00000000000180000000000000000000 

[1870] 

4570 
, 99F 

DATA 

0O00D5800059 44EFBB93F 3 FBDFF FE4C0 

[2819] 

4580 
, 081 

DATA 

00000000000000000000000180000000 

[1862] 

4590 
, 40E 

DATA 

0000000000000001AAC00170A76C9E81 

[1902] 

4600 
, 4B0 

DATA 

FFA37FFFEEA200000000000000000000 

[1445] 

4610 

,139 

DATA 

00018000000000000000000000035560 

[1475 ] 

4620 

,614 

DATA 

O0OO026D681O55FFEFFFA5C3O3BOO0OO 

[1895] 

4630 

,081 

DATA 

00000000000000018000000000000000 

[1710] 

4640 
, 657 

DATA 

00000006AAB00000009F3C48D7FFFFFF 

[2004] 

4650 
, 2CA 

DATA 

4BAE1AD0240022200000000000018000 

[2307] 

4660 
, 0C5 

DATA 

00000000000000000000555800000008 

[1394] 

4670 
, 547 

DATA 

2A003B633EED1055C1116FC540117028 

[2549] 

4680 
, 123 

OATA 

8008000180000000000000000000001A 

[1788] 

4690 
, 46A 

DATA 

AAAC000000101020010010E088908843 

[2148] 

4700 
, 349 

DATA 

7F8D7999882002000001800000000000 

[2043] 

4710 
, ODE 

DATA 

00000000003555540000000000000000 

[2094] 

4720 
, 344 

DATA 

000008880C819C12004BOCA081000001 

[2136] 

4730 
, 23E 

DATA 

BOOOOOOOOOOOOOOOOOOOQO 6 AAAAAOOOO 

[2149] 

4740 

,230 

DATA 

00000000000000000080900070800000 

[2458] 

4750 

,081 

DATA 

00000000000180000000000000000000 

[1870] 

4760 
, 17F 

OATA 

00D55555000000000000000000000000 

[1412] 

4770 
, 081 

DATA 

00000000000000000000000180000000 

[1862] 

4780 
, 27F 

DATA 

00000000000001AAAAAA800000000000 

[1788] 

4790 

,000 

DATA 

oooooooooooooooooooooooooooooooo 

[2181] 

4800 
, 181 

DATA 

00018000000000000000000001555555 

[1619] 

4810 
, 040 

DATA 

40000000000000000000000000000000 

[1446] 

4820 
, 081 

DATA 

00000000000000018000000000000000 

[1710] 

4830 
, 2AO 

DATA 

000002AAAAAAAOOOOOOOOOOOOOOOOOOO 

[2072] 

4840 
, 081 

DATA 

00000000000000000000000000018000 

[2115] 

4850 

,170 

DATA 

00001C000000000005 5 55 5 55 50000000 

[1274] 

4860 

,018 

DATA 

00180000000000000000000000000000 

[2079] 

4870 

,220 

DATA 

00000001800000006B80000000000AAA 

[2358] 

4880 
, 2 7A 

OATA 

AAAAA600000000 7EOOQOOOOOOOOOOQOO 

[1621] 

Listing 

HANSEAT 



4050 
, 004 

DATA 

00000000000000000000000000000004 

[2003] 

4060 
, 18C 

DATA 

000000000000000180000FFCOOOOOOOO 

[1978] 

4070 
, 1 BF 

DATA 

9FFOOOOOOOOOOOOOOOOOOO0000000000 

[1769] 

4080 
, 3E5 

DATA 

00003FFE0008000000003FE0000181FF 

[ 1878 1 

4090 
, 5B5 

DATA 

F557F800001FF55FFOOOOOOOQOOOOFFF 

[2262] 

4100 
, 5F2 

DATA 

FCQ0000000003FFFD555FF90000000FF 

[1902] 

4110 
, A9C 

DATA 

D55FE001FEAAAAAAAFE01FEAAAAAAFF0 

[820] 

4120 
, A61 

DATA 

000FFFFFFAAAABFFE0003FFFEAAAAAAA 

[2050] 

4130 
, 9B1 

DATA 

AAFFE003FFAAAAAABFE1D5555555555F 

[2105] 

4140 
, 7F8 

DATA 

F5555555555FFFF55555555555555FFF 

[1931] 

4150 
, 68C 

DATA 

D5555555555555555FFD55555555555F 

[2231] 

4160 
, AAO 

DATA 

AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA 

[2236] 

4170 
, AAO 

DATA 

AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA 

[2236] 

4180 
, 7CF 

DATA 

AAAAAAAAAAABD5555555555555555555 

[28531 

4190 

,550 

DATA 

55555555555555555555555555555555 

[2522] 

4200 
, 6A4 

DATA 

555555555555555555555555AAAAAAAA 

[2130] 

4210 
, AAO 

DATA 

AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA 

[2236] 

4220 
, AAO 

DATA 

AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA 

[2236] 

4230 
, 67B 

DATA 

AAABD555555555555555555555555555 

[2408] 

4240 
, 550 

DATA 

55555555555555555555555555555555 

[2522] 

4250 
, 7F8 

DATA 

5555555555555555AAAAAAAAAAAAAAAA 

[2266] 

4260 
, AAO 

DATA 

AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA 

[2236] 

4270 
, B4B 

DATA 

AAAAAAAAAAAAAAAAAAAAAAAAAAABFFFF 

[21191 

4280 
, FFO 

DATA 

FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF 

[3602] 

4290 
, FFO 

DATA 

FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF 

[3602] 

4300 
, FFO 

DATA 

FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF 

[3602] 

4310 
, FFO 

DATA 

FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF 

[3602] 

4320 
, A76 

DATA 

FFFFFFFFFFFFFFFFFFFF800000000000 

[2485] 

4330 
, 000 

DATA 

00000000000000000000000000000000 

[2181] 

4340 
, 001 

DATA 

00000000000000000000000000000001 

[2168] 

4350 
, 080 

DATA 

80000000000000000000000000000000 

[1274] 

4360 
, 000 

DATA 

00000000000000000000000000000000 

[2181] 

4370 
, 081 

DATA 

00000000000180000000000000000000 

[1870] 

4380 
, 000 

DATA 

00000000000000000000000000000000 

[2181] 

4390 
, 081 

DATA 

00000000000000000000000180000000 

[1862] 

4400 
, 000 

DATA 

00000000000000000000000000000000 

[2181] 

4410 
, 000 

DATA 

00000000000000000000000000000000 

[2181] 

4420 

,081 

DATA 

00018000000000000000000000000000 

[1584] 

4430 

,000 

DATA 

00000000000000000000000000000000 

[2181] 

4440 
, 081 

DATA 

00000000000000018000000000000000 

[1710] 

4450 

,008 

DATA 

00000000080000000000000000000000 

[1702] 

4460 

,081 

DATA 

00000000000000000000000000018000 

[21153 

Listing 

HANSEAT 



80 CPC 
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Programm/Spiel 


4890 
. 1B7 

DATA 

0000000000000000000180000001D560 

[ 1905 ] 

4900 
, 286 

DATA 

00000000155555555800000001998000 

[2146] 

4910 

,001 

DATA 

00000000000000000000000000000001 

[2168] 

4920 

, 4C0 

DATA 

80000006AABC000000002AAAAAAAAC00 

[2174] 

4930 
, 07E 

DATA 

00000618600000000000000000000000 

[2054] 

4940 
, 1EA 

DATA 

00000000000180000030555780000000 

[2086] 

4950 
, 1F2 

DATA 

55555555560000001818180000000000 

[2187] 

4960 
, 16B 

DATA 

000000000000000000000001800000EA 

[ 1986 ] 

4970 
, 5FF 

DATA 

AAAAEOOOOOOOAAAAAAAAABOOOOOO 6 OI 8 

[2132 ] 

4980 

DATA 

07FFFFFFFFFFOOOOOOOOOOOOOOOOOOOO 

[ 1782] 

4990 
, 334 

DATA 

00018000035555555C00000155555555 

[2356] 

5000 

,418 

DATA 

55800001801801D55555555580000000 

[2143] 

5010 

DATA 

OOOOOOOOOOOOOOOISOOOOFFFFFFFFFOO 

[2543] 

5020 
, 956 

DATA 

0002AAAAAAAAAAC00007FFFFFFEAAAAA 

[1105] 

5030 
, 255 

DATA 

AAAA8000000000000000000000018000 

[2663] 

5040 

,258 

DATA 

30000000030000035555555555600019 

[2504] 

5050 
, 2 AF 

DATA 

007E009D555555554000000000000000 

[ 1827] 

5060 

, 35B 

DATA 

0000000I 8 OOOCOOOOOOOOOCOOOO 6 AAAA 

[1893] 

5070 
, 7E7 

DATA 

AAAAAAA0006101998086AAAAAAAAAOOO 

[2336] 

5080 
, 2C0 

DATA 

000000000000000000018003003FFFFE 

[2054] 

5090 
, 3B7 

DATA 

0030000D555555555550018106186081 

[2416] 

5100 
, 8EC 

DATA 

D555555563FFFFB0003FFFF80003FFFF 

[2129] 

5110 

,512 

DATA 

800C00222222000C001AAAAAAAAAAAA8 

[2751] 

5120 
, 61B 

DATA 

0601181818806AAAAAAAB3BBBB80003B 

[2074] 

5130 
, 424 

DATA 

BB880003BBBB8010002222220003003F 

[1419] 

5140 
, 82A 

DATA 

FFFFFFFFFFFC1801601806801D555555 

[2880] 

5150 
, 79B 

DATA 

5AEEEE80002EEEE80002EEEF80600022 

[2585] 

5160 
, 1E5 

DATA 

22220000802000000000000860018018 

[1917] 

5170 
, 5CB 

DATA 

018006AAAAAAAF777780003777780003 

[2033] 

5180 
, 55A 

DATA 

777781800022222200006027FE01FF80 

[1354] 

5190 
, CD 1 

DATA 

FFC9FFFFFFFFFFFFFFD5555557DDDD80 

[1624] 

5200 
, 49B 

DATA 

003DDDD80003DDDD8600002222220000 

[1656] 

5210 
, A02 

DATA 

1824620118808C47FFFFFFFFFFFFFFFF 

[2237 ] 

5220 
, 71A 

DATA 

FFFFFF77778000377778000377779800 

[ 1782 ] 

5230 
, 439 

DATA 

OO3FFFFE0OOOO62462O1188O8C4COO0O 

[2102] 

5240 
, 473 

DATA 

000000400000000007DDDD80003DDDD8 

[2770] 

5250 
, 444 

DATA 

0003DDDDE00000000000000001A7FE01 

[3205] 

5260 
, BDE 

DATA 

FF80FFCCFF FE00FFFE4FF FEOOFFFE777 

[2140] 

5270 
, 908 

DATA 

77800037777800037777FFFFFFFFFFFF 

[2870] 

5280 
, 702 

DATA 

FFPFFFE4620118808C4C810200810248 

[1496] 

5290 
, 658 

DATA 

1020081027DDDD80003DDDD80003DDDD 

[2147] 

5300 
, 31A 

DATA 

80000060000300000064620118808C4C 

[ 1424] 

5310 
, 5AO 

DATA 

81020081024810200810277777FFFFF7 

[ 1564] 
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5320 
, 9C9 

DATA 

777FFFFF777783FFFF9000047FFFF064 

[2279] 

5330 
, 369 

DATA 

620118808C4C81020081024810200810 

[2229] 

5340 
, AB5 

DATA 

27DDDDDDDDDDDDDDDDDDDDDD8201008C 

[3808] 

5350 
, 824 

DATA 

001840101067FE01FF80FFCCFFFE00FF 

[1542] 

5360 
, D7E 

DATA 

FE4FFFE00FFFE6EEEEEEEEEEEEEEEEEE 

[2601] 

5370 
, 7AC 

DATA 

EEEF820101FFFFFFC010106606018180 

[1976] 

5380 
, 5 7A 

DATA 

C0CC8102008102481020081027BBBBBB 

[1381] 

5390 
, 8 6C 

DATA 

BBBBBBBBBBBBBBBB8201008180C04010 

[1660] 

5400 
, 32C 

DATA 

106198006600330C8102008102481020 

[ 1371] 

5410 
, 7EE 

DATA 

O81027777777777FFFF77777777783FF 

[3047] 

5420 
, 5Al 

DATA 

FF8041007FFFF060600018000COC8102 

[1518] 

5430 
, 60F 

DATA 

008102481020081027DDDDDDDFE0007F 

[2445] 

5440 
, 606 

DATA 

DDDDDDDD820100803600401010619800 

[2618] 

5450 
, 97D 

DATA 

6600330CFFFEOOFFFE4FFFEOOFFFE7BB 

[1480] 

5460 
, 60D 

DATA 

BBBBE00000007BBBBBBB820100800800 

[2261] 

5470 
, 532 

DATA 

401010660601818000CCC00600C0064C 

[2306] 

5480 
, 706 

DATA 

00600C0066EEEEEF800000001EEEEEEF 

[1795] 

5490 
, 80F 

DATA 

8201008036004010107FFFFFFFFFFFFC 

[ 1601] 

5500 
, 40D 

DATA 

3018003018430180030187BBBBB80000 

[1615] 

5510 
, 6F2 

DATA 

000001BBB8BB820100FFFFFFCO 101060 

[1905] 

5520 
, 2B0 

DATA 

OOOOOOOOOOOCOC 6 OOOOC 6 O 4 OC 6 OOOOC 6 

[2273] 

5530 
, 91A 

DATA 

06EEEFE000000000007EEEEFFFFFFFFF 

[3020] 

5540 
, ABI 

DATA 

FFFFFFFFFFE7FE01FF80FFCC03800003 

[2891] 

5550 
, 2C4 

DATA 

8040380000380777778000000000001F 

[ 1827] 

5560 
, 4FB 

DATA 

77778303C08000006078106462011880 

[1366] 

5570 
, 53E 

DATA 

8C4C06C00006C0406C00006C07DDDEOO 

[2324] 

5580 
, 3DF 

DATA 

000000000007DDDD8 0CC3300000 0 1986 

[2343] 

5590 
, 3EB 

DATA 

6064620118808C4C1830001830418300 

[ 1825 ] 

5600 

,310 

DATA 

01830777760000000000000777778030 

[2312 ] 

5610 
, 5AF 

DATA 

OC00000006018067FE01FF80FFCC600C 

[2070] 

5620 
, 3FA 

DATA 

OO 6 OOC 46 OOCOO 6 OOC 7 DDDEOOOOOOOOOO 

[1008 ] 

5630 
, 506 

DATA 

0007DDDD80CC33000000198660646201 

[2095] 

5640 
, CDF 

DATA 

18808C4FFFFFFFFFFFFFFFFFFFFFFF77 

[2724] 

5650 
, 331 

DATA 

760000000000000777778303CO800000 

[2478] 

5660 
, 491 

DATA 

60781064620118808C4C8A2880000040 

[2189] 

5670 
, 383 

DATA 

0000000007DDDE00000000000007DDDD 

[2532] 

5680 
, BAE 

DATA 

FFFFFFFFFFFFFFFFFFE4620118808C4C 

[3369] 

5690 
, 7A3 

DATA 

514500FFFE4FFFEOOFFFE77776000000 

[ 2601 ] 

5700 
, 23F 

DATA 

00000007777780000060000300000067 

[2097] 

5710 
, 7DA 

DATA 

FE01FF80FFCCFFFF8081024810200810 

[1416] 

5 720 
, 6B4 

DATA 

27DDDE00000000000007DDD083FFFF90 

[2369 ] 

5730 
, 683 

DATA 

00047FFFF06606018180C0CC5145008 1 

[18233 

5740 
, 29A 

DATA 

02481020081026EEEE00000000000006 

[2524] 
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5750 DATA EEEFB201008C0O184010106198006600 [1834] 


6200 DATA AAAAAAABD55555555555555555555555 [880] 

i 4C3 


■ 725 

5760 DATA 330C8A28808102481020081027BBBE00 [1938] 


6210 DATA 55555555555555555555555555555555 [2522] 

,424 


, 550 

5770 DATA 000000000007BBBB820101FFFFFFC010 [2159] 


6220 DATA 55555555555555555555AAAAAAAAAAAA [3082] 

, 5CE . 


, 7 4E 

5780 DATA 106060001BOOOCOCO14000FFFE4FFFEO [3334] 


6230 DATA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA [2236] 

, 56C 


, AAO 

5790 DATA OFFFE777760000000000000777778201 [1591] 


6240 DATA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAB [2224] 

i 45A . 


, AA 1 

5800 DATA 008180C0401010619800660033OCO550 [1251] 


6250 DATA D5555555555555555555555555555555 [2329] 

, 414 


, 5D0 

5810 DATA 008102481020081027DDDE0000000000 [1651] 


6260 DATA 55555555555555555555555555555555 [2522] 

, 2F5 


,550 

5820 DATA 0007DDDD83FFFF8041007FFFFO660601 [2164] 


6270 DATA 555555555555AAAAAAAAAAAAAAAAAAAA [3094] 

, 7DE 


, 8A2 

5830 DATA 8180C0CC1554008102481020081027BB [2314] 


6280 DATA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA [2236] 

, 4EB 


, AAO 

5840 DATA BEOO000000000007BBBB820100803600 [2086] 


6290 DATA AAAAAAAAAAAAAAAAAAAAAAABD5555555 [1864] 

,374 


, 9CD 

5850 DATA 4010107FFFFFFFFFFFFC155400810248 [2806] 


6300 DATA 55555555555555555555555555555555 [2522] 

, BOA 


,550 

5860 DATA 1020081026EEEE00000000000006EEEF [2507] 


6310 DATA 55555555555555555555555555555555 [2522] 

, 42D 


,550 

5870 DATA 820100800800401010600000000OOOOC [2319] 


6320 OATA 55 5 5AAAAAAAAAAAAAAAAAAAAAAAAAAAA [2314] 

, 1D7 


, 9F6 

5880 DATA 555500FFFE4FFFEOOFFFE7BBBEOOOOOO [2974] 


6330 DATA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA [2236] 

, 843 


, AAO 

5890 DATA 00000007BBBB82010080360040101060 [2586] 


6340 DATA AAAAAAAAAAAAAAABFFFFFFFFFFFFFFFF [2851] 

, 376 


, D49 

5900 DATA F083FFC1FFCC5555OOCOO64C0060OCOO [2285] 


6350 DATA FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF [3602] 

, 726 


, FFO 

5910 DATA 66EEEE00000000000006EEEF820100FF [1680] 


6360 DATA FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF [3602] 

, 5 A 7 


, FFO 

5920 DATA FFFFCO101063FC4518A28C4C55550030 [1931] 


6370 DATA FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF [3602] 

, 6EE 


, FFO 

5930 DATA 18430180030187777600000000000007 [2161] 


6380 DATA FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF [3602] 

, 25B 


, FFO 

5940 DATA 7777FFFFFFFFFFFFFFFFFFE7FE291894 [3117] 


6390 DATA FFFFFFFFAAAAAAAAAAAAAAAAAAAAABOO [3323] 

, C9F 


, B4B 

5950 DATA 8C4C5555000C6040C60000C607DDDEOO [2931] 


6400 DATA 0000000007AAAC0000000000000006AA [1395] 

, 57C 


, 20D 

5960 DATA 000000000007DDDD8303C08000006078 [2101] 


6410 DATA AAAAAAB80001FAAAAAABD55555555555 [1373] 

, 45F 


, 8 2 E 

5970 DATA 1067FE11FF88FFCC7FFFOOO380403800 [2385] 


6420 DATA 555555555580000000003D5556000000 [2408] 

, 751 


,311 

5980 DATA 003807777600000000000007777780CC [1635] 


6430 DATA 000000000D5555555556003F55555555 [2191] 

, 3 6 D 


, 34A 

5990 DATA 3300000019866067FE2918948C4C7FFF [1991] 


6440 DATA AAAAAAAAAAAAAAAAAAAAAA6000000001 [2569] 

, 5C2 


, 7CF 

6000 DATA OOO 6 CO 4 O 6 COOOO 6 CO 7 DDDEOOOOOOOOOO [2267] 


6450 DATA EAAAABOOOOOOOOOOOOOOOEAAAAAAAAAB [1457] 

, 3AO 


, 5AO 

6010 DATA 0007DDDD80300C000000060180647E45 [2259] 


6460 DATA 87EA AAAA AAABD5555555555555555555 [1710] 

, 42B 


, 7EC 

6020 DATA 18A28C4C555500183041830001830777 [1581] 


6470 DATA 55700OOOCO1F555555COOOOOOOOOOOOO [1138] 

, 4 4 A 


, 2A3 

6030 DATA 760000000000000777778OCC33000000 [2063] 


6480 DATA 01D5555555557D5555555555AAAAAAAA [2054] 

, 2EA 


, 6 F 8 

6040 DATA 19866067FE83FFC1FFCC555500600C46 [1854] 


6490 DATA AAAAAAAAAAAAAAAFCO000OEAAAAAAABE [3072] 

, 7CE 


, 9BB 

6050 DATA OOC00600C7DDDE00000000000007DDDD [1234] 


6500 DATA 000000000000006AAAAAAAAAAAAAAAAA [859] 

, 509 


, 58A 

6060 DATA 8303C080000060781067FEO0000000OC [1317] 


6510 DATA AAA8D555555555555555555555557E0O [2375] 

, 41F 


, 6 4 F 

6070 DATA 55550000004000000000077776000000 [2024] 


6520 DATA 07555555555600000000000000055555 [1532] 

, IDE 


, 330 

6080 DATA 000000077777FFFFFFFFFFFFFFFFFFE7 [1775] 


6530 DATA 5555555555555555AAAAAAAAAAAAAAAA [2266] 

, AD3 


, 7 F 8 

6090 DATA FEO0OOOOOOOC55550000004000000000 [1368] 


6540 DATA AAAAAAAAABF8 7AAAAAAAAAAE00000000 [ 3563 ] 

, 1F 4 


, 81B 

6100 DATA 07DDDE00000000000007DDDDFFFFFFFF [1384] 


6550 DATA OOOOOFAAAAAAAAAAAAAAAAABFFFFD555 [1677] 

, 7 7 F 


,932 

6110 DATA FFFFFFFFFFFFFFFFFFFFFFFFD555FFFF [2978] 


6560 DATA 555555555555555555555557D5555555 [2329] 

, F1C 


, 5D2 

6120 DATA FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF [3602] 


6570 DATA 5557000000000001F555555555555555 [2572] 

, FFO 


, 3F5 

6130 DATA FFFFAAAAAAAAAAAAAAAAAAAAAAAAAAAA [2427] 


6580 DATA 55 7E0001AAAAAAAAAAAAAAAAAAAAAAAA [2108] 

, B4A 


, 8CC 

6140 DATA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA [2236] 


6590 DATA AAAAAAAAAAAAAAAB000000000002AAAA [3463] 

, AAO 


, 6 A 7 

6150 DATA AAAAAAAAAAAAAAABD555555555555555 [2751] 


6600 DATA AAAAAAAAAAAABF800001D55555555555 [2350] 

, 879 


, 7BA 

6160 DATA 55555555555555555555555555555555 [2522] 


6610 DATA 55555555555555555555555555550000 [2555] 

, 550 


, 4A6 

6170 DATA 5555555555555555555555555555AAAA [1869] 


6620 DATA 000000055555555555555555EOOO0001 [1797] 

, 5 F A 


, 3 8 E 

6180 DATA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA [2236] 


6630 DATA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA [2236] 

, AAO 


, AAO 

6190 DATA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA [2236] 


6640 OATA AAAAAAAA80000000000AAAAAAAAAAAAA [2839] 

, AAO 


, 72E 
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6650 

DATA 

, 528 
6660 

DATA 

, 3B1 
6670 

DATA 

, 503 


6680 

DATA 

, A98 
6690 

DATA 

, 668 
6700 

DATA 

, 527 
6710 

DATA 

, 3D4 
6720 

DATA 

, 724 
6730 

DATA 

, 8 7 F 
6740 

DATA 

, 701 
6750 

DATA 

, 502 
6760 

DATA 

, 5C6 
6770 

DATA 

, 8CE 
6780 

DATA 

, 774 
6790 

DATA 

, 7A5 
6800 

DATA 

, 6B3 
6810 

DATA 

, 463 
6820 

DATA 

, A4F 
6830 

DATA 

, 8B5 
6840 

DATA 

, 6 9 A 
6850 

DATA 

, 522 
6860 

DATA 

, 6 5 B 
6870 

DATA 

,939 

6880 

DATA 

, 78C 
6890 

OATA 

, 4F9 
6900 

DATA 

, 383 
6910 

DATA 

, 67E 
6920 

DATA 

, 6BE 
6930 

DATA 

, 6CF 
6940 

DATA 

, 4CF 
6950 

DATA 

, 3FC 
6960 

DATA 

, 7F9 
6970 

DATA 

, 697 
6980 

DATA 

, 525 
6990 

DATA 

, 524 
7000 

DATA 

, 422 
7010 

DATA 

, 7F9 
7020 

DATA 

, A17 
7030 

DATA 

, 3D3 
7040 

DATA 

, 4F9 
7050 

DATA 

, 4B2 
7060 

DATA 

, 7E4 
7070 

DATA 

, 756 
7080 

DATA i 

,470 

7090 

DATA i 

, 402 

Listing HANSEAT 


[ 1449 ] 
[ 2089 ] 
[ 2007 ] 
[ 1785 ] 
[ 2284 ] 
[ 2749 ] 
[2230 ] 
[ 2486 ] 
[ 3234 ] 
[ 2201 ] 
[ 2051 ] 
[ 205 7 ] 
[ 1359 ] 
[ 3251 ] 
[ 2068 ] 
[ 2741 ] 
[ 1309 ] 
[ 2446 ] 
[ 2792 ] 
[1851 ] 
[ 2241 ] 
[ 2827 ] 
[ 2103 ] 
[ 2502 ] 
[ 2366 ] 
[ 2086 ] 
[2602 ] 
[ 2476 ] 

[1919 ] 
[2108] 

[2347] 
[2527] 

[ 1622 ] 
[2164] 
[2115] 

[3051 ] 
[2536] 
[1957] 

[1871 ] 
[2274] 

[3515 ] 

[2685] 

[ 2449 ] 
[2716] 
[1333] 


7100 
, 5 F 6 

DATA 

5550000000000001AAAAAAAAAAAAAAAA 

[ 1260] 

7110 

, 66C 

DATA 

AAAAABAB000000006AAAAA0006AAAAAA 

[ 1909 ] 

7120 
, 681 

DATA 

AAAAAAAAAAAAAAB0000000000001D555 

[2957] 

7130 
, 500 

DATA 

555555555555555557D400000003D555 

[2401] 

7140 
, 40C 

DATA 

55000D55555555555555555555580000 

[2106] 

7150 
, 7FD 

DATA 

00000001AAAAAAAAAAAAAAAAAAAAAAAE 

[3040] 

7160 
, 725 

DATA 

00000006AAAAABOO7AAAAAAAAAAAAAAA 

[2841] 

7170 
, 525 

DATA 

AAAAAAA8000000000001D55555555555 

[2164] 

7180 
, 5CE 

DATA 

555555555556000000055557F5FFD555 

[2408] 

7190 
, 352 

DATA 

55555555555555555554000000000001 

[ 1782 ] 

7200 
, 81A 

DATA 

AAAAAAAAAAAAAAAAAAAAAAAE0000001E 

[2000] 

7210 
, A75 

DATA 

AAA81AAAAAAAAAAAAAAAAAAAAAAABFFC 

[2075] 

7220 
, 3D3 

DATA 

000000000001D5555555555555555555 

[1871] 

7230 
, 3C3 

DATA 

57500000001555500D57555555555555 

[ 1877 ] 

7240 
, 43D 

DATA 

555555554000000000000001AAAAAAAA 

[2141] 

7250 
, 7 7 D 

DATA 

AAAAAAAAAAAAAB800000000EAAA81AAC 

[2714] 

7260 
, 7B4 

DATA 

FAAAAAAAAAAAAAAAAAAACOOOOOOOOOOO 

[1478] 

7270 
, 488 

DATA 

0001D5555555555555555555556000C0 

[2595] 

7280 
, 50A 

DATA 

000D5557F55807555555555555555555 

[2792] 

7290 
, 5 B 1 

DATA 

6000000000000001AAAAAAAAAAAAAAAA 

[ 1804 ] 

7300 

,867 

DATA 

AAAAABAOOOOOOOOEAAAAAABFFFAAAAAA 

[ 1285 ] 

7310 
, 608 

OATA 

AAAAAAABEAAAA000000000000001D555 

[2353] 

7320 
, 40A 

DATA 

55555555555555555760000000015555 

[2491 ] 

7330 
, 48F 

DATA 

5555555555555555555E1F55COOOOOOO 

[ 2572 ] 

7340 
, 7FO 

DATA 

00000001AAAAAAAAAAAAAAAAAAAAABAO 

[2626] 

7350 
, 830 

DATA 

00000002AAAAAAAAAAAAAAAAAAAAAAEO 

[2228] 

7360 
, 37B 

DATA 

01FB0000000000000001D55555555555 

[1099] 

7370 
, 3E8 

DATA 

55555555554000000001555555555555 

[2342] 

7380 
, IBA 

DATA 

555555555700000E0000000000000001 

[2335] 

7390 

,812 

DATA 

AAAAAAAAAAAAAAAAAAAAAECOOOOOOOOO 

[2459] 

7400 
, 81C 

DATA 

EAAAAAAAAAEAAAAAAAAAF80000000000 

[ 1 783] 

7410 
, 3D3 

OATA 

000000000001D5555555555555555555 

[ 1871 ] 

7420 
, 4FB 

DATA 

5D40000000003FF5555555D555555557 

[2595] 

7430 
, 329 

DATA 

800000000000000000000001AAAAAAAA 

[1172] 

7440 
, 694 

DATA 

AAAAAAAAAAAAAA8000000000001AAAAA 

[2005] 

7450 
, 432 

DATA 

BEBAAAAAAABCOOOOOOOOOOOOOOOOOOOO 

[ 1952 ] 

7460 
, 4C8 

DATA 

0001D555555555555555555575800000 

[2736] 

7470 
, 464 

DATA 

0OOO0O055555E1F5555555EOOOO0OOOO 

[2274] 

7480 

,551 

DATA 

0000000000000001AAAAAAAAAAAAAAAA 

[1195] 

7490 
, 4FO 

DATA 

AAAA8800000000000006AABE001FAAAA 

[1578] 

7500 
, 1D9 

DATA 

AE00000000000000000000000001D555 

[1270] 

7510 
, 307 

DATA 

55555555555555555CO0000000000003 

[ 1621 ] 

7520 

,377 

DATA 

D5EOOOOOFD5570000000000000000000 

[1813] 

7530 
, 755 

DATA 

00000001AAAAAAAAAAAAAAAAAAAABOOO 

[2758] 

7540 DATA 0000000000007E00000007AF80000000 
, 1B4 
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7550 DATA 00000000000000000001D55555555555 [ 2325 ] 

, 27F 

7560 DATA 55555555600000000000000020000000 [2599] 

, 1D4 

7570 DATA 00780000000000000000000000000001 [1924] 
,079 

7580 DATA AAAAAAAAAAAAAAAAAAAF800000000000 [2553] 

, 729 

7590 DATA 00000000000000000000000000000000 [2181] 

, 000 

7600 DATA 000000000001D55555555555505D57F8 [2012] 

, 488 

7610 DATA 00000000000000000000000000000000 [2181] 

, 000 

7620 DATA 000000000000000000000001AAAAAAAA [2738] 

, 2A9 

7630 DATA AAAAEAAAB80000000000000000000000 [1565] 

, 3AO 

7640 DATA 00000000000000000000000000000000 [2181] 

, 000 

7650 DATA 0001D55F7FDF5DD557FD400000000000 [2841] 

, 559 

7660 DATA 00000000000000000000000000000000 [2181] 

, 000 

7670 DATA 0000000000000001AABAAAAAAAAFF806 [2226] 
,510 

7680 DATA 80000000000000000000000000000000 [1274] 

, 080 

7690 DATA 0000000000000000000000000001D57D [2264] 

, 153 

7700 DATA 555557F8000380000000000000000000 [1609] 
, 2 7C 

7710 DATA 00000000000000000000000000000000 [2181] 
,000 

7720 DATA 00000001AA87AAAAF800000100000000 [2340] 
, 37F 

7730 DATA 00000000000000000000000000000000 [2181] 
, 000 

7740 OATA 00000000000000000001D500D5558000 [1861] 

, 280 

7750 DATA 00000000000000000000000000000000 [2181] 
, 000 

7760 DATA 00000000000000000000000000000001 [2168] 
, 001 

7770 DATA AAOOAAAAOOOOOOOOOOOOOOOOOOOOOOOO [2797] 
. 1 F E 

7780 DATA 00000000000000000000000000000000 [2181] 
, 000 

7790 DATA 000000000001D4015554000000000000 [2217] 
, 17F 

7800 DATA 00000000000000000000000000000000 [2181] 
,000 

7810 DATA 000000000000000000000001A802EAB8 [2414] 
, 24D 

7820 DATA 00000000000000000000000000000000 [2181] 
, 000 

7830 DATA OOOOOOOOOOOOOOOOOOOOOOOOQOOOOOOO [2181] 
, 000 

7840 DATA 0001D003576000000000000000000000 [2053] 

, 18B 

7850 DATA 00000000000000000000000000000000 [2181] 
, 000 

7860 DATA OOOOOOOOOOOOOOOIAOO 2 AECOOOOOOOOO [2457] 
,211 

7870 DATA 00000000000000000000000000000000 [2181] 
, 000 

7880 DATA 0000000000000000000000000001COO5 [2157] 
, 0C6 

7890 DATA 55800000000000000000000000000000 [453] 

, 0D5 

7900 DATA 00000000000000000000000000000000 [2181] 
,000 

7910 DATA O0O00OO18OO3FEOOQ0OO0O0OOOQOOOO0 [1272] 
, 182 

7920 DATA 00000000000000000000000000000000 [2181] 
, 000 

7930 DATA 00000000000000000001800000000000 [1894] 
,081 

7940 DATA OOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOO [2181] 
,000 

7950 DATA 00000000000000000000000000000001 [2168] 
, 001 

7960 DATA 80000000000000000000000000000000 [1274] 
,080 

7970 DATA 00000000000000000000000000000000 [2181] 
,000 

7980 DATA 00000000000180000000000000000000 [1870] 
,081 

7990 DATA 00000000000000000000000000000000 [2181] 
,000 
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8000 

,081 

DATA 

00000000000000000000000180000000 

[1862J 

8010 

,000 

DATA 

00000000000000000000000000000000 

[2181] 

8020 
, 000 

DATA 

00000000000000000000000000000000 

[2181] 

8030 

,081 

DATA 

00018000000000000000000000000000 

[1584] 

8040 
, 000 

DATA 

00000000000000000000000000000000 

[2181] 

8050 

,081 

DATA 

00000000000000018000000000000000 

[1710] 

8060 

,000 

DATA 

00000000000000000000000000000000 

[2181] 

8070 
, 081 

OATA 

00000000000000000000000000018000 

[2115] 

8080 
, 000 

DATA 

00000000000000000000000000000000 

[2181] 

8090 
, 000 

DATA 

00000000000000000000000000000000 

[2181] 

8100 
, 081 

DATA 

00000001800000000000000000000000 

[1774] 

8110 
, 000 

DATA 

00000000000000000000000000000000 

[2181] 

8120 

,081 

DATA 

00000000000000000001800000000000 

[1894] 

8130 
, 000 

DATA 

00000000000000000000000000000000 

[2181 ] 

8140 

,001 

DATA 

00000000000000000000000000000001 

[21681 

8150 
, 080 

DATA 

80000000000000000000000000000000 

[12741 

8160 
, 000 

DATA 

00000000000000000000000000000000 

[2181] 

8170 
, 081 

DATA 

00000000000180000000000000000000 

[18703 

8180 
, 000 

DATA 

00000000000000000000000000000000 

[21811 

8190 
, 081 

DATA 

00000000000000000000000180000000 

[1862] 

8200 
, 000 

DATA 

OOOOOOOOO00000000000000000000000 

[2181] 

8210 

,000 

DATA 

00000000000000000000000000000000 

[2181] 

8220 
, 081 

DATA 

00018000000000000000000000000000 

[1584] 

8230 
, 000 

DATA 

00000000000000000000000000000000 

[2181] 

8240 
, 6 3 E 

OATA 

00000000002000018CC3CCC3CDC3CFE0 

[ 2282 ] 

8250 
, 262 

DATA 

OOOOOOOOCOOOOIEOOOCOO10000000000 

[1607] 

8260 
, IDO 

DATA 

03300002000000077001003000018C66 

[2432] 

8270 

,596 

DATA 

6E666E666BA0000003E005E00335E003 

[1911] 

8280 
, 8A9 

DATA 

E1800433E5E007F3C2E64211-E00393E1 

[2 603 3 

8290 
, 701 

DATA 

83B3E2E18C6C6E66260C618003F00630 

[3180] 

8300 
, 56F 

DATA 

C770031630C631800634777006B46736 

[1627] 

8310 
, 6C9 

DATA 

863310030631847637318FEFED63C7CF 

[1565] 

8320 
, 7B0 

DATA 

E1800 7E00 7 E0C6 3 001E610C7E1800666 

[ 1981] 

8330 
, 675 

DATA 

363006B666170631E003E7E18677E611 

[1650] 

8340 
, 4D0 

DATA 

8C6C6CE4660C618000000600C6300237 

[1657] 

8350 
, 43D 

DATA 

30C601800367163006366606C7743003 

[2102] 

8360 
, 4DB 

DATA 

0601863606018C6E6CEC6E6E63800000 

[1806] 

8370 
, 745 

DATA 

03EOE2200636EOE3E1C00183E2200733 

[2007] 

8380 
, 80B 

DATA 

B20663D3E00703E1C3F3E20186666667 

[3055] 

8390 
, 3DB 

DATA 

CDC6630000000000400003E200400080 

[1650] 

8400 
, 0B9 

DATA 

00000000033000000000000600008000 

[2101 ] 

8410 
, DF3 

DATA 

0001 FF FFF FF FFF FFF FFFFFFFFFFF FFFF 

[2004] 

8420 
, FFO 

DATA 

FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF 

[3602] 

8430 
, 7F8 

DATA 

FFFFFFFFFFFFFFFFOOOOOOOOOOOOOOOO 

[2646} 

Listing HANSEAT 
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Programm/Spiel 


Ran an die Kisten 

Fesselndes Denkspiel 

Bei Let’s work braucht man eine Portion Geschicklichkeit und logisches 
Denken. Das Spiel ist eine Umsetzung des MS-DOS-Spiels “Soko-Ban“. 


In dem Spiel muß die Spielfigur namens 
Pit in einem Neubauhaus mit verschiede¬ 
nen Stockwerken, in dem die Bauarbei¬ 
ter Unordnung hinterlassen haben, auf- 
räumen, indem er die herumstehenden 
Kisten auf markierte Plätze schiebt. Das 
klingt zwar einfach, ist jedoch relativ 
schwer. Das Denkspiel ist eine interes¬ 
sante Abwechslung, wenn man Baller¬ 
spiele satt hat oder man keine Datenver¬ 
arbeitung mehr sehen kann. 

Pit muß in einem Neubauhaus mit ver¬ 
schiedenen Stockwerken (Levels), die in 
der Draufsicht dargestellt sind, Kisten auf 
gekennzeichnete Plätze schieben. Er hat 
aber nicht die Kraft, zwei Kisten auf ein¬ 
mal zu schieben, sondern kann immer 
nur eine bewegen. Auch kann er die Ki¬ 
sten nur schieben, nicht ziehen oder tra¬ 
gen. In manchen Stockwerken breitet 
sich zusätzlich noch eine Flüssigkeit 
(Waber) aus, mit der Pit nicht in Berüh¬ 
rung kommen darf. Die Flüssigkeit kann 
sich nur auf freien Stellen ausbreiten, 
also nicht auf Mauern, gekennzeichneten 
Stellen oder Kisten. Wenn das Waber ein¬ 
mal eingesperrt ist, breitet es sich nicht 
mehr weiter aus, auch wenn es wieder die 
Möglichkeit dazu hätte, zum Beispiel 
weil eine Kiste, die das Ausbreiten ver¬ 
hindert hatte, weggeschoben wurde. 
Wichtig ist, daß nur alle gekennzeichne¬ 
ten Plätze mit Kisten bedeckt sein, nicht 
aber alle Kisten auf markierten Plätzen 
stehen müssen! Das ist vor allem in den 
Levels wichtig, in denen es verschieden 
viele Kisten und gekennzeichnete Plätze 


gibt. Wenn dann alle gekennzeichneten 
Plätze mit Kisten bedeckt sind, kommt 
man in den nächsten Level. Wenn man 
den letzten Level geschafft hat, kommt 
man wieder in den ersten. Es gibt keine 
Punktewertung oder Highscoretabelle, es 
geht nur darum, den nächsten Level zu 
erreichen. Das Programm besteht aus 
vier Listings: 

1. LETSWORK.BAS: das Hauptpro¬ 
gramm 

2. LWBINLAD.DAT: Datalader, der den 
Maschinenspracheteil “ LETSWORK. 
BIN“ des Spiels erzeugt und speichert 

3. CLBINLAD.DAT: zweiter Datalader, 
der COMPLEVE.BIN mit 30 kompri¬ 
mierten Levels erzeugt und speichert 

4. ENTCOMP.BAS: Programm,dasaus 
den komprimierten Levels normale er¬ 
zeugt und unter “LEVEL.LET“ spei¬ 
chert 

Kassettenbetrieb 

Bei Kassettenbetrieb muß man darauf 
achten, daß zuerst das BASIC-Programm 
auf der Kassette gespeichert ist, dann der 
Maschinenspracheteil, der vom BASIC- 
Programm automatisch nachgeladen 
wird, und danach dann die Levelda- 
tei(en). Bei Kassettenbetrieb ist folgen¬ 
des Vorgehen beim Abtippen empfeh¬ 
lenswert: 

1. Abtippen des BASIC-Programms und 
Speichern auf Kassette A unter dem Na¬ 
men “LETSWORK.BAS“ 


2. Abtippen des Dataladers “LWBIN¬ 
LAD.DAT“ und Speichern auf Kassette 
B mit dem Namen “LWBINLAD.DAT“ 

3. An das Ende von “LETSWORK.BAS“ 
gespulte Kassette A einlegen und im 
Speicher befindliches “LWBIN¬ 
LAD.DAT“ starten (“LETS- 
WORK.BIN“ wird dann automatisch 
hinter “LETSWORK.BAS“ gespei¬ 
chert.). 

4. Abtippen des Dataladers “CLBIN¬ 
LAD.DAT“ und auf Kassette B spei¬ 
chern, noch nicht starten! 

5. “ENTCOMP.BAS“ abtippen und auf 
Kassette B hinter “CLBINLAD.DAT“ 
speichern, ebenfalls noch nicht starten! 

6. “CLBINLAD.DAT“ laden, Kassette B 
an das Ende von “ENTCOMP.BAS“ spu¬ 
len und im Speicher befindliches Pro¬ 
gramm “CLBINLAD.DAT“ mit RUN 
starten. Es wird nun die Binärdatei 
“COMPLEVE.BIN“ erzeugt und hinter 
“ENTCOMP.BAS“ gespeichert 

7. “ENTCOMP.BAS“ starten. Es wird 
“COMPLEVE.BIN“ nachgeladen. Auf 
Aufforderung die an das Ende von 
“LETSWORK.BIN“ gespulte Kassette A 
einlegen (“LEVEL.LET“ wird dann 
automatisch hinter “LETSWORK.BIN“ 
gespeichert.). Dies sieht viel komplizier¬ 
ter aus, als es ist. Selbst Anfänger müß¬ 
ten mit dieser Anleitung zurecht¬ 
kommen. 

Diskettenbenutzer 

Für Diskettenbenutzer ist es nicht ganz so 
kompliziert wie beim Kassettenbetrieb. 
Hier muß man nur beachten, daß man, 
bevor man “ENTCOMP.BAS“ startet, 
“CLBINLAD.DAT“ abgetippt und ge¬ 
startet hat. Wenn man mit dem Abtippen 
fertig ist und getestet hat, ob das Spiel 
läuft, braucht man nur noch folgende Da¬ 
teien auf der Diskette bzw. Kassette 
haben: 



Bis zu 80 verschiedene Level können zusätzlich zum Editor im Spiel verwen¬ 
det werden. 



Im ersten Level... 
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Programm/Spiel 




... doch das zweite folgt zu gleich 


Unlösbar erscheinen manche Spielstufen , aber mit einigem Geschick läßt 
sich die Lage klären 


1. LETSWORK. BAS 

2. LETSWORK. BIN 

3. LEVEL.LET 

Die anderen Dateien können dann ge¬ 
löscht werden. Beim Abtippen kann man 
sämtliche REM-Zeilen weglassen. 

Spielstart 

Gestartet, wird das Spiel mit: run“lets- 
work“. Der Speicher sollte möglichst leer 
sein, deshalb ist ein Reset des Computers 
vor dem Start des Spiels günstig. Es er¬ 
scheint dann das Titelbild und das Menü 
mit den Funktionen Game, Joystick, Ta¬ 
statur, Load, Save, Editor und BASIC. 
Um eine Funktion anzuwählen, muß der 
erste Buchstabe der Funktion, der auch 
in einer anderen Farbe dargestellt ist, ein¬ 
gegeben werden. 

GAME: Spielstart. Hierzu muß sich min¬ 
destens ein Level im Speicher befinden, 
anderenfalls passiert nichts. Dann wird 
das Level mit den Cursortasten auf (Le¬ 
vel erhöhen) und ab (Level erniedrigen) 
oder dem Joystick (oben und unten) aus¬ 
gewählt. Wenn man sich für ein Level 
entschieden hat, drückt man die 
RETURN- bzw. die große ENTER-Taste 
(Tastennummer 18) oder den Feuerknopf 
des Joysticks. Jetzt erscheint das Level, 
und man kann das Männchen, je nach 
Einstellung mit den Cursortasten oder 
dem Joystick, bewegen. Das Spiel kann 
jederzeit mit der Escape-Taste beendet 
werden. Das ist oft nötig, wenn man sich 
in eine Situation manövriert hat, in der 
man das Level nicht mehr schaffen kann. 
JOYSTICK: Dieser Menüpunkt schaltet 
von Tastatursteuerung auf Joysticksteue¬ 
rung um. Das zeigt sich nur während des 
Spieles, nicht aber bei der Leveiauswahl 
oder im Editor. 

TASTATUR: Hier wird auf Tastatursteu¬ 
erung umgeschaltet. Dies wirkt sich wie¬ 
derum nur auf das Spiel aus. 

LOAD: Hiermit kann man Level von Dis¬ 
kette (oder Kassette) laden. Die Leveida¬ 


teien haben die Extension “.LET“. Zuerst 
muß der Name der zu ladenden Levelda- 
tei eingegeben werden. Eine Leereinga¬ 
be (RETURN) bewirkt einen Rück¬ 
sprung ins Hauptmenü. Danach wird mit 
den Cursortasten oder dem Joystick und 
RETURN oder Feuer das Level ausge¬ 
wählt, an den die neuen Level hingeladen 
werden sollen. 

SAVE: Mit dieser Funktion kann man Le- 
vels aus dem Speicher auf Diskette ab¬ 
speichern. Zuerst den Namen eingege¬ 
ben, RETURN bewirkt auch hier einen 
Rücksprung zum Hauptmenü. Als näch¬ 
stes wählt man, wie auch bei der LOAD- 
Funktion, das Level aus, ab dem gespei¬ 
chert werden soll, danach das Level, bis 
zu dem gespeichert werden soll. 
EDITOR: Diese Funktion ist zum Ändern 
und Neuerstellen von Bildern. Man wählt 
das zu bearbeitende Level aus. Dann 
kann man mit den Cursortasten ein Kreuz 
über den Bildschirm bewegen. Mit 
Druck auf die Taste “M“ erscheint eine 
Mauer an der Stelle des Kreuzes. “K“ 
setzt eine Kiste, “N“ definiert den Unter¬ 
grund als normal, “G“ als gekennzeich¬ 
net. Wenn bei den Funktionen N und G 
eine Kiste an der Position des Kreuzes 
steht, wird diese nicht gelöscht! Der mar¬ 
kierte bzw. normale Untergrund wird 
dann nicht gezeichnet und ist nur sicht¬ 
bar, falls man die Kiste wieder löschen 
sollte. Dies läßt sich mit der Taste “L“ 
machen. Übrig bleibt nur noch die Taste 
“C“, die den ganzen Bildschirm löscht. 
Hat man das Bild entworfen, drückt man 
die RETURN-Taste. Nun muß festgelegt 
werden, an welcher Stelle Pit am Anfang 
stehen soll. Wurde diese Stelle schon ein¬ 
mal festgelegt, kann sie mit RETURN 
übernommen werden. Anderenfalls be¬ 
wegt man wieder das Kreuz über den 
Bildschirm und setzt mit Druck auf die 
Leertaste Pit an die momentane Position. 
Hat man sich für eine Position entschie¬ 
den, drückt man RETURN. Nun wählt 
man die Position des Wabers aus, falls 


Waber erwünscht ist. Wenn nicht, kann 
man bei neuen Levels einfach RETURN 
drücken. Bei alten Levels kann vorhan¬ 
denes Waber mit der DEL-Taste gelöscht 
werden. Um Waber an die momentane 
Kreuzposition zu setzen, drückt man die 
Leertaste. Wenn man zufrieden ist, 
kommt man mit RETURN wieder ins 
Hauptmenü zurück. Es ist möglich, etwa 
80 Levels gleichzeitig im Speicher zu ha¬ 
ben. Man sollte beim Entwerfen von Le¬ 
vels darauf achten, daß um jedes Bild ein 
Rahmen, bestehend aus Mauerstücken, 
ist. 

BASIC: Das Programm wird hiermit 
beendet und kehrt zum BASIC-Direkt- 
modus zurück. Ein Neustart des Pro¬ 
gramm ist zwar möglich, sollte jedoch 
vermieden werden. Einige der abge¬ 
druckten Levels sind wohl kaum auf An¬ 
hieb lösbar, es sind jedoch keine unmög¬ 
lichen Levels dabei. 

(Stefan Diem/cd) 


Variablenliste 

VAL(a&) basis : Basisadresse der Levels 
i: Zählvariable 

iflg : Rag, ob Mann/Whber schon einmal gesetzt worden 
ist (Editor) 

lev: Level, das gespielt wird, an den Level geladen wer¬ 
den sollen, bis zu dem Level gespeichert werden sollen, 
der editiert werden 

levl : Level, ab dem gespeichert werden soll 
maxlev: momentane Anzahl der Levels 
neuflg: Flag, ob Level, das editiert werden soll, neu ist 
s: Zufallzahl, die den nächsten Dreiklangton für die Ti¬ 
telmelodie auswählt (s: 0-4) 
x: Zählvariable / x-Position des Kreuzes im Editor 
xa : Zählvariable 

xe : x-Position des Kreuzes im Editor 

xm : Zählvariable / x-Position des Mannes im Editor 

xw: x-Position des Wibers 

y : Zählvariable / y-Position des Kreuzes im Editor 
ya: Zählvariable 

ye: y-Posinon des Kreuzes im Editor 
ym : Zählvariable / y-Position des Mannes im Editor 
yw : y-Position des Wabers 
zZählvariable 

f(m,n): Wert der Bildposition m,n des im Editor gerade 
behandelten Bildes; m: 0-19 (x-Position), n: 0-11 (y-Po- 
sition) 

s(m,n): m-ter Dreiklangton des n-ten Dreiklangs (Titel¬ 
melodie); m: 1-3, n; 0-4 

so(m) : Adresse der Daten des m-ten Shapes; m: 
0,1,2,128,129 

( 3 $ : Zeichen von der Tastatur 

n$ : Name des zu ladenden / speichernden Programms 
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Programm/Sp iel 


für 464-664-6128 



10 REM 

20 REM Letswork Basic Programm 
30 REM 

40 IF PEEK(8,9E77)<>33 THEN MEMORY 8,3FFF:LO 
AD" 1 etswork.bin" 

50 POKE 8.9838,0 : POKE 8.9BE6,2 : POKE 8.9997,8: 

POKE &9A45,1:DEFINT a-z 

60 ENT-2,3,3,3,3,-3,3:ENV 2,7,1,1 

70 s(l,0)=239:s(l,l)=213:s(l,2)=190:s(l,3) 

=179:s(l,4)=159:s(2,0)=190:s(2,l)=169:s(2, 

2)=159:s(2,3)=142:s(2,4)=127:s(3,0)=159:s( 

3,l)=142:s(3,2)=127:s(3.3)=119:s(3,4)=106: 

DIM f(19,11),so(129) 

80 so( 0 )=8.A480: so (2 ) = 8,A200 : so ( 1)=&A240 : so ( 
128 ) = &A4C0 : SO ( 129 ) = 8.A240 
90 'Titelbildaufbau 

100 WHILE INKEY$<>"":WEND:MODE 1:BORGER 0: 
INK 0,0:INK 1,0:INK 2,0:INK 3,0:PAPER 0:CA 
LL 8.BD19 

110 LOCATE 29,15:PEN 3:PRINT CHR$(164)" by 
":LOCATE 27,17:PRINT"Stelo 1988" 

120 LOCATE 4,12:PEN 1:PRINT"G";:PEN 2:PRIN 
T"ame" 


130 LOCATE 6,14: PEN 1 : PRINT " J " ; : I F PEEK ( 8.9 
838)=0 THEN PEN 2 ELSE PEN 3 
140 PRINT"oystick" 

150 LOCATE 8,16 : PEN 1 : PRI NT " T " ; : I F PEE K ( 8.9 
838) THEN PEN 2 ELSE PEN 3 
160 PRINT"astatur" 

170 LOCATE 10,18:PEN 1:PR I NT"E"; :PEN 2:PRI 
NT"ditor" 

180 LOCATE 12,20:PEN 1:PRINT"L"; :PEN 2:PRI 
NT"oad" 

190 LOCATE 14,22:PEN 1:PRINT"S " ; : PEN 2:PRI 
NT"ave" 

200 LOCATE 16,24:PEN 1:PRINT"B"; :PEN 2 : PRI 
NT"asic" 

210 INK 1,26:INK 2,15:INK 3,2:SOUND l,s(l, 
0),50,4,2,2:SOUND 2,s(2,0),50,4,2,2:SOUND 
4,s(3,0),50,4,2,2:SOUND 1,s(1,1),50,4,2,2: 
SOUND 2 , s(2,1) ,50,4,2,2:SOUND 4,s(3,l),50, 
4,2,2 

220 SOUND 1,s(1,2),50,4,2,2:SOUND 2,s(2,2) 
,50,4,2,2: SOUND 4 , s ( 3,2 ) , 50,4,2,2 : CALL 8.9E 
77 

230 WHILE 1 :s = RND*4:SOUND 1 , s(1,s) ,50,4,2, 
2:SOUND 2 , s(2,s) ,50,4,2,2:SOUND 4,s(3,s),5 
0,4,2,2 

240 a$ = LOWER$(INKEY$):IF a$=""THEN 320 


'THEN GOSUB HOO:GOTO 340 
'THEN 440 
'THEN 460 

'THEN GOSUB HOO:GOTO 480 
THEN GOSUB HOO:GOTO 540 
THEN GOSUB HOO:GOTO 720 
'THEN MODE 1:PEN 1:GOSUB 1100 


250 IF a$="g 
260 IF a$="t 
270 IF a$="j 
280 IF a$="1 
290 IF a$ = " s 
300 IF a$="e 
310 IF a$="b 
ENO 
320 WEND 
330 'Spiel 

340 IF max1e v = 0 THEN 230 
350 IF maxlev=l THEN lev=l:GOTO 370 
360 PEN 2:LOCATE 20,21:PRINT"Leve1 :";:ma 
!ev=maxlev-1:GOSUB 680:max1ev=max1ev+1 
370 basi s = 8,3FOB+1 ev*246 : FOR i=&9696 TO &9 
85:POKE i.PEEK(basis):basis=basis+l:NEXT: 
OKE &9 786, (PEEK(basis)-l)/2:basis = basi s+1 
POKE 8.9787 , (PEEK(basis)-l)/2:basis = basis + 

: POKE 8.9788,0 

380 IF PEEK( basi s )< >255 THEN POKE 8.9 788,1 
POKE 8.9DF0, (PEEK(basis)-l)/2:basis = basis + 
:POKE 8.9DF 1 ,( PEEK ( basi s )-1 )/2 : POKE 8.9696 + 
PEEKCbasis-1)-l)/2 + (PEEK(basis)-l)/2 * 2 0,5 
390 FOR i =8.9DF2 TO 8,9DF5:POKE i,0:NEXT:PO 
E 8.9789,0 

400 CALL &BB48:CA L L 8.978B:CALL 8.BB45 : GOSUI 
1100: IF PEEK(8.9789) = 123 THEN FOR i = 1500 ' 
0 2000 STEP 70:SOUND 1,1,20:NEXT;WHILE SQ 
1)<>4:WEND:GOTO 100 

410 FOR i=200 TO 100 STEP -10:SOUND 1,1,5 
NEXT;1ev=1ev+1:IF 1ev>maxlev THEN lev=l 
420 GOTO 370 
430 'Tastatur-Steuerung 


[ 272 ] 

[ 1606] 

[ 272 ] 

[ 389 7 ] 

[4507] 

[1931 ] 

[10107] 


[ 2679 ] 

[ 1256 ] 
[ 6796 ] 

[5407] 

[ 1 750 ] 

[ 3891 ] 

[ 1035 ] 
[4580] 

[ 1299 ] 
[ 3295 ] 

[1717] 

[3344] 

[2727] 

[8385] 


[5224] 


[4992] 


[ 1486 ] 
[1613] 
[ 886 ] 
[1310] 
[1980] 
[ 2564 ] 
[ 1944 ] 
[2123] 

[390] 

[141] 

[464] 

[ 1564 ) 
[5168] 

[9342] 


[9616 ] 

[2474] 
[9018] 

[6389 ] 

[ 466] 

[1293] 


Listing LETSWORK 


440 POKE 8.9838,0 : POKE 8.98E6,2 : POKE 8,9997,8 
: POKE 8.9A45,1 : LOCATE 6,14:PEN 1:PRINT"J";: 
PEN 2:PRINT"oystick":LOCATE 8,16:PEN 1:PRI 
NT"T";:PEN 3:PRINT"astatur":GOTO 230 
450 'Joystick-Steuerung 

460 POKE 8.9838,72 : POKE 8.98E6,73 : POKE 8,9997 
, 74 : POKE 8.9A45,75 : LOCATE 8,16:PEN 1:PRINT" 

T";:PEN 2:PRINT"astatur":LOCATE 6,14:PEN 1 
:PRINT"J“;:PEN 3:PR I NT"oystick":GOTO 230 
470 ‘Level 1aden 

480 GOSUB 610 : IF n$=""THEN LOCATE 20,21:PR 
INT SPACE$(19):GOTO 230 

490 IF maxi e v = 0 THEN LOAD n$+1 et ", 8.4000 : 
GOTO 520 

500 LOCATE 17,21:PRINT"an Level :";:GOSUB 
1120:GOSUB 680 

510 LOAD n$ + " . let" , 8.3FOA+1 ev*246 
520 i =8.4000+246*maxl ev : z = 0 : WHI LE PEEK(i) = l 
:i=i+246:z=2+l:WEND:maxlev=maxlev+z:LOCATE 
17,21:PRINT SPACE$(18);:GOTO 230 
530 'Level speichern 
540 IF maxiev=0 THEN 230 

550 GOSUB 610: IF n$='' "THEN LOCATE 20,21:PR 
INT SPACE$(19).GOTO 230 

560 IF max1ev=1 THEN 1ev1 = 1 :1ev= 1 :max1ev=m 
ax1ev-1:GOTO 590 

570 LOCATE 16,21:max1ev=max1ev-1:PRINT"von 
Level :";:GOSUB 1120:G0SUB 680 
580 1evl=lev:LOCATE 16,21:PEN 2:PRINT"bis 
Level :";:GOSUB 1120:GOSUB 680:IF levl>lev 
THEN PRINT CHR$(7);:GOTO 570 
590 maxi ev=maxl ev+1: SAVE n$+ " . 1 e t “ , b , 8.3F 0 A 
+246*1ev1,(lev-levl+l)*246:LOCATE 16,21rPR 
INT SPACE$(20);:GOTO 230 
600 'Nameneingabe 

610 LOCATE 20,21:PEN 1:PRINT"N ame : "; :PEN 

2:PRINT" ."; :LOCATE 27,21:n$="":FOR 

i=1 TO 8 

620 a$=LOWER$(INKEY$):IF a$=""THEN 620 

630 IF a$=CHR$(13)THEN RETURN 

640 IF a$ = CHR$(12 7)AND LEN(n$)<>0 THEN n$ = 

LEFT$(n$,LEN(n$)-l):PRINT CHR$(8)"."CHR$(8 

);:i = i — 1:GOTO 620 

650 IF a$ <“0"OR a$>"2"THEN 620 

660 PRINT a$n$=n$+a$:NEXT:RETURN 

6 70 'Leve1 eingabe 

680 PEN 3:PRI NT" 001 ": 1ev=1:WHI LE INKE 

Y(18)AND JOY(O)<>16:IF(NOT INKEY(0)OR JOY( 
0)=1)AND lev<maxlev+l THEN 1ev=lev+1:LOCAT 
E 28,21:PRINT RIGHT$("00”+RIGHT$(STR$(1ev) 

,LEN(STR$(1ev))-1),3) 

690 IF(NOT INKEY(2)OR JOY(0)=2)AND lev>l T 
HEN 1ev=lev-1:LOCATE 28,21:PRINT RIGHT$("0 
0"+RIGHT$(STR$(lev),LEN(STR$(lev))-l),3) 
700 FOR i=1 TO 100:NEXT:WEND:SOUND 1,50,5: 
RETURN 
710 'Editor 

720 IF maxlevOO THEN LOCATE 20,21 : PR I NT " L 
evel :";:GOSUB 680 ELSE lev=l 
730 neuflg=0:IF lev>maxlev THEN neuflg=-l 
740 PEN 1:basis=&3F0A+1ev*246+l:FOR y = 0 TO 
11:FOR x=0 TO 19:f(x,y)=PEEK(basis):basis 
=basis+1:CALL &9F00,x,y,so(f(x,y)):NEXT:NE 
XT:xm=0:ym=0:xw=0:yw=0 
750 x=l : y=l :xe = 0:ye = 0:GOSUB 1130 
760 GOSUB 1000 

770 IF NOT INKEY(18 )THEN SOUND 1,50,5:CALL 
&9F00,xe,ye,so(f(xe,ye)):basi s = 8.3F0A+l ev* 
246:POKE basis,1:basis=basis+1:FOR ym=0 TO 
ll:FOR xm=0 TO 19:POKE basis,f(xm,ym):bas 
is=basis+1:NEXT:NEXT:GOTO 850 
780 IF NOT I NKEY ( 38 ) THEN f ( xe , ye ) =2 : CA LL 8, 
9F00 , xe , ye , 8.A200 : GOTO 760 

790 IF NOT INKEY(37)THEN f(xe,ye)=f(xe,ye) 
AND 128 OR 1 : CALL 8.9 F00 , xe , y e , 8.A240 : GOTO 7 
60 

800 IF NOT INKEY(46)THEN f(xe,ye ) = f(xe,ye) 
AND 1 : CA L L 8.9F00 , xe , y e , so ( f ( xe , ye ) ) : GOTO 7 
60 

810 IF NOT INKEY(52)THEN f(xe,ye ) = f(xe,ye) 
AND 1 OR 128:CALL &9F00,xe,ye,so(f(xe,ye)) 

:GOTO 760 

820 IF NOT INKEY(62)THEN FOR xa=0 TO 19:FO 
R ya=0 TO 11:f(xa,ya)=0:CALL &9FOO,xa,ya,& 
A480:NEXT:NEXT:GOSUB 1130:G0SUB 1120:GOTO 
760 


[8933] 


[ 1869 ] 
[9854] 


[ 1862 ] 
[3635] 

[2453] 

[3718 ] 

[1837] 
[ 6907 ] 


[2030] 
[464] 

[ 3635 ] 

[ 3232 ] 

[4718 ] 

[5505] 


[5943] 


[ 797 ] 
[5552] 


[ 1538 ] 
[ 1139 ] 
[4577] 


[ 1452 ] 
[1372] 

[ 2251 ] 
[12808] 


[ 8666 ] 


[2339 ] 

[ 630] 

[3240] 

[2610 ] 
[8367] 


[2216] 
[851] 
[10065] 


[5313] 
[3585 ] 

[5921] 

[6288] 

[8580] 
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830 IF NOT INKEY(36)THEN IF f(xe,ye)<>l AN 
D f(xe,ye) <>129 THEN 760 ELSE f(xe,ye)=f(x 
e,ye)AND 128:CALL S9F00,xe,ye,so(f(xe,ye)) 

:GOTO 760 
840 GOTO 760 

850 x=l:y=l:xe=0:ye=0:xm=0:ym=0:GOSUB 1130 
:if1g=0:IF PEEK(basis)<>0 THEN xm=PEEK(bas 
is):ym=PEEK(basis+1):CALL &9F00, (xm-l)/2, ( 
ym-1)/2,&A2C0:iflg=-l 
860 GOSUB 1000 

870 IF NOT INKEY(47)THEN IF iflg THEN CALL 
&9F00,(xm-l)/2,(ym-1)/2,so(f((xm-1)/2,(ym 
— 1 ) /2 ) ):CALL &9FOO,xe,ye,&A2CO:xm=x:ym=y:G 
OTO 860 ELSE if1g=-l:CALL &9F00,xe,ye,&A2C 
0:xm=x:ym=y:GOTO 860 

880 IF INKEY(18)0R NOT iflg THEN 860 

890 IF xmOx OR ymOy THEN CALL &9F00,xe,y 

e,so(f(xe,ye)) 

900 f((xm-l)/2,(ym-l)/2)=0:P0KE &3F0A+1ev* 
246+1+((ym-1 )/2)*20+(xm-1)/2,0:POKE basis, 
xm:basis=basis+l:POKE basis,ym:basis=basis 
+l:x=l:y=l:xe=0:ye=0:xw=0:yw=0:GOSUB 1130: 
if1g=0 

910 GOSUB 1120:IF(PEEK(basiS)<>0 AND PEEK( 
basis) < >255)THEN xw = PEEK(basis) :yw=PEEK(ba 
si s+ 1 ) : CALL 8.9FOO , (xw-1 )/2 , ( yw-1 )/2 ,&A280: 

1f1g=-l 

920 GOSUB 1000 

930 IF NOT INKEY(47)AND(x<>xm OR y<>ym)THE 
N IF iflg THEN CALL &9F00, (xw-1)/2, (yw- 1 )/ 
2,so(f((xw-l)/2, (yw-1)/2 >):CALL &9F00,xe,y 
e , 8.A280 : xw=x : yw=y : GOTO 920 ELSE iflg=-l:CA 
LL &9F00,xe,ye,&A280:xw=x:yw=y:GOTO 920 
940 IF NOT INKEY(79)AND iflg THEN iflg=0:C 
ALL &9F00,(xw-1)/2,(yw-1)/2,so(f((xw-1)/2, 
(yw-1)/2)):xw=0:yw=0:GOSUB 1130 
950 IF INKEY(18)THEN 920 

960 IF NOT iflg THEN POKE basis,255:basis= 
basis+l:POKE basis,255:basis=basis+1 ELSE 
POKE basis,xw:basis=basis+1:POKE basis.yw: 
basis=basis +1 

970 IF neuflg THEN maxiev-max1ev+1 

980 GOTO 100 

990 'Kreuzsteuerung 

1000 IF NOT INKEY (0) AND yOl THEN GOSUB 10 

60 : y = y-2:ye = ye-l:GOSUB 1130 

1010 IF NOT INKEY(2)AND y<>23 THEN GOSUB 1 

060:y=y+2:ye=ye+1:GOSUB 1130 

1020 IF NOT INKEY( 8) AND xOl THEN GOSUB 10 

60:x=x-2:xe=xe-l:GOSUB 1130 

1030 IF NOT INKEY(1)AND x<>39 THEN GOSUB 1 
060:x=x+2:xe=xe+l:GOSUB 1130 
1040 RETURN 

1050 'Untergrund zurueckschreiben 

1060 IF x= xm AND y = ym THEN CALL &9F00,xe,y 

e,&A2C0:RETURN 

1070 IF x=xw AND y=yw THEN CALL &9F00,xe,y 
e,&A280:RETURN 

1080 CALL &9FOO,xe,ye,so(f(xe,ye)):RETURN 

1090 'Kontrol1sound 

1100 SOUND 135,50,5:RETURN 

1110 'Verzoegerungsschleife+Tastaturpuffer 
leeren 

1120 FOR i=1 TO 150:NEXT:WHILE INKEY$<>"": 
WEND:RETURN 

1130 LOCATE x,y:PRINT"\/";:LOCATE x,y+l:PR 
INT"/\”;:RETURN 


[7427] 


[413] 

[8244] 


[851] 

[ 13307 ] 


[1095 ] 
[2914] 

[ 9530 ] 


[ 8472 ] 


[851] 

[ 1 1827 ] 


[8870] 


[ 1248] 
[8843] 


[1506] 
[417] 
[1573] 
[4162] 

[3643 ] 

[3825] 

[ 3401 ] 

[ 555 ] 

[2564] 
[3414] 

[ 2935 ] 

[3523] 
[ 929 ] 

[1488] 
[2279] 

[1646] 

[4549 ] 


100 *********************************** [1460] 

101 '* LWBINLAD - DATA-Lader von 'CPC' * [2108] 

102 '*********************************** [1460] 

103 1 [117] 


104 DATA 9696 
0 , 00 , 00 , 00,00 

105 DATA 9 6A6 
0 , 00 , 00 , 00,00 

106 DATA 96B6 
0 , 00 , 00 , 00,00 

107 DATA 9 6C6 
0 , 00 , 00 , 00,00 

108 DATA 96D6 
0 , 00 , 00 , 00,00 

109 DATA 9 6 E 6 
0 , 00 , 00 , 00,00 

110 DATA 96F 6 
0 , 00 , 00 , 00,00 

Listing LETSWORK 


00 , 00 , 00 , 00 , 
00 , 00,0000 
00 , 00 , 00,00 
00 , 00,0000 
, 00 , 00 , 00,00 
00 , 00,0000 
00 , 00 , 00,00 
00 , 00,0000 
00 , 00 , 00,00 
00 , 00,0000 
00 , 00 , 00,00 
00 , 00,0000 
00 , 00 , 00,00 
00 , 00,0000 


00 , 00 , 00,00 
00 , 00 , 00,00 
00 , 00 , 00,00 
00 , 00 , 00,00 
00 , 00 , 00,00 
00 , 00 , 00,00 
00 , 00 , 00,00 


00,0 

[830] 

00,0 

[3033] 

00,0 

[ 2249 ] 

00,0 

[3166 ] 

00,0 

[2124] 

00,0 

[1984] 

00,0 

[3147] 


111 DATA 9706,00,00,00,00,00,00,00,00,00,0 
0 , 00 , 00 , 00 , 00 , 00 , 00,0000 

112 DATA 9716,00,00,00,00,00,00,00,00,00,0 
0 , 00 , 00 , 00 , 00 , 00 , 00,0000 

113 DATA 9726,00,00,00,00,00,00,00,00,00,0 
0 , 00 , 00 , 00 , 00 , 00 , 00,0000 

114 DATA 9736,00,00,00,00,00,00,00,00,00,0 
0 , 00 , 00 , 00 , 00 , 00 , 00,0000 

115 DATA 9746,00,00,00,00,00,00,00,00,00,0 
0 , 00 , 00 , 00 , 00 , 00 , 00,0000 

116 DATA 9756,00,00,00,00,00,00,00,00,00,0 
0 , 00 , 00 , 00 , 00 , 00 , 00,0000 

117 DATA 9766,00,00,00,00,00,00,00,00,00,0 
0 , 00 , 00 , 00 , 00 , 00 , 00,0000 

118 DATA 9776,00,00,00,00,00,00,00,00,00,0 
0 , 00 , 00 , 00 , 00 , 00 , 00,0000 

119 DATA 9786,00,00,00,00,00,21,F6,9D,3E,0 

1, CD,BC,BC,21,FD,9D,FC22 

120 DATA 9796,3E,01,CD,BF,BC,DD,21,2B,98,0 
1,00,00,CD,18,9B,C5,A730 

121 DATA 97A6,B7,20,06,21,80,A4,C3,04,9B,F 
E,02,20,06,21,00,A2,3200 

122 DATA 97B6,C3,04,9B,FE,8O,20,06,21,C0,A 
4,C3,04,9B,21,40,A2,F826 

123 DATA 97C6,C3,04,9B,CI,OC,79,FE,14,20,D 
2,OE,00,04,78,FE,0C,B90F 

124 DATA 9706,20,CA,ED,4B,86,97,DD,70,02,D 
D,71,04,11,C0,A2,CD,0C1D 

125 DATA 97E6,00,9F,3A,88,97,B7,28,30,3A,F 
0,9D,32,26,9D,3A,F1,366F 

126 DATA 97F6,9D,32,8B,9D,97,32,F2,9D,3C,3 

2, F3,9D,ED,4B,FO,9D,BB56 

127 DATA 9806,DD, 71,04,DD, 70,02,11,80,A2 , C 

D, 00,9F,01,OF,00,11.D1E9 

128 DATA 9816,14,00,21,5F,9E,CD,E9,BC,21,9 
6,96,7E,FE,80,28,09,5F84 

129 OATA 9826,23,7D,FE,86,20,F5,C3,6B,9E,3 
A,89,97,FE,7B.CA,68,0729 

130 DATA 9836,9E,3E,48,CD,1E,BB,CA,E5,98,3 
A,88,97,87,28,14,ED,626B 

131 DATA 9846,4B,86,97,05,CD,18,9B,FE,05,2 
0.08.3E,7B,32,89,97,7AE4 

132 DATA 9856,C3,6B,9E,3A,87,97,3D,CA,47,9 

E, 47,3A,86,97,4F,CD,FD12 

133 DATA 9866,18,9B,32,89,97,FE,02,CA,47,9 
E,E6,7F,28,06,78,FE,8045 

134 DATA 9876,02,DA,47,9E,05,CD,18,9B,32,8 
A,97,E6,7F,28,08,3A,1347 

135 DATA 9886,89,97,E6,7F,C2,47,9E,3A,89,9 
7,E6,7F,28,08,3A,8A,0192 

136 DATA 9896,97,FE,02,CA,47,9E,21,86,97,4 
E,23,46,DD,71,06,DD,3B85 

137 DATA 98A6,70.04,CD,18,9B,E6,80,DD,77,0 
2,3A,89,97,E6,7F,DD,8EF4 

138 DATA 98B6,77,00,C4,54,9E,CD,83,A0,3A,8 
7,97,3D,32,87,97,47,0035 

139 DATA 98C6,3A,86,97,4F,CD,18,98,32,89,9 
7,E6,7F,CA,1E,98,3A,E17F 

140 DATA 98D6,89,97,E6,FE, 77,05,CD,18,9B , F 
6,01,77,C3,1E,98,3E,3E4E 

141 DATA 98E6,49,CD,1E,BB,CA,96,99,3A,88,9 
7,B7,28,14,ED,4B,86,C6BE 

142 DATA 98F6,97,04,CD,18,9B,FE,05,20,08,3 
E,7B,32,89,97,C3,6B,AA6C 

143 DATA 9906,9E,3A,87,97,FE,0A,CA,47,9E,3 
C,47,3A,S6,97,4F,CD,5621 

144 DATA 9916,18,9B,32,89,97,FE,02,CA,47,9 

E, £6,7F,CA,28,99,78,86A5 

145 DATA 9926,FE,0A,D2,47,9E,04,CD,18,9B,3 
2,8A,97,E6,7F,28,08,8DC2 

146 OATA 9936,3A,89,97,E6,7F,C2,47,9E,3A,8 

9.97, E6,7F,28,08,3A,0091 

147 DATA 9946,8A,97,FE,02,CA,47,9E , 21,86,9 
7,4E,23,46,DD,71,06,1DE9 

148 DATA 9956,DO,70,04,CD,18,9B,E6,80,DD,7 
7,02,3A,89,97,E6,7F,477A 

149 DATA 9966,DD,77,00,C4,54,9E,CD,1A,Al,3 

A, 87,97,3C.32,87,97,1F5F 

150 DATA 9976,47,3A,86,97,4F,CD,18,9B,32,8 

9.97, E6,7F,CA,IE,98,7081 

151 DATA 9986,3A,89,97,E6,FE,77,04,CD,18,9 

B, F6,01,77,C3,1E,98,1025 

152 DATA 9996,3E,4A,CD,IE,BB,CA,44,9A,3A,8 
8,97,87,28,14,ED,4B,0402 

153 DATA 99A6,86,97,OD.CD,18,9B,FE,05,20,0 
8,3E,7B,32,89,97,C3,F541 

154 DATA 99B6,6B,9E,3A,86,97,3D,CA,47,9E,4 

F, 3A,87,97,47,CD,18,E8CE 
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[2755] 

[2029 ] 
[2118] 
[2794] 
[3093] 
[3124] 

[ 2822 ] 
[1243] 
[1808] 
[3176] 
[2383] 
[3122 ] 
[3016] 
[3468] 
[2847] 
[ 3621 ] 
[1775] 
[ 2211 ] 
[ 5003 ] 
[ 355 1 ] 
[ 2596 ] 
[2038] 
[2660] 
[2358] 
[2882] 
[2592 ] 
[3540] 
[2992] 
[ 2429 ] 
[ 3620 ] 
[4073] 
[3241] 
[2749] 
[3260] 
[3086] 
[4065] 
[1818] 
[2371] 
[2984] 
[3475] 
[2265] 
[ 2372 ] 
[ 3622 ] 
[2758 ] 
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155 DATA 9906,9B,32,89,97,FE,02,CA,47,9E,E 
6 , 7F,28,06, 79,FE,02,0095 

[2994] 

156 DATA 99D6,DA,47,9E,OD,CD,18,9B,32,8A,9 
7,E6,7F,28,08,3A,89,A605 

[3181] 

157 DATA 99E6,97,E6,7F,C2,47,9E,3A,89,97,E 
6,7F,28,08,3A,8A,97,033A 

[3193] 

158 DATA 99F6,FE,02,CA,47,9E,21,86,97,4E,2 
3,46,DD,71,06,DD,70,77ED 

[4394] 

159 DATA 9A06,04,CD,18,9B,E6,80,DD,77,02,3 
A,89,97,E6,7F.DD,77,IDEE 

[3549] 

160 DATA 9A16,00,04,54,9E,CD,E7,9F,3A,86,9 
7,3D,32,86,97,4F,3A,F4BE 

[ 2941 ] 

161 DATA 9A26,87,97,47,CD,18,9B,32,89,97,E 
6,7F.CA,1E,98,3A,89,424D 

[2466] 

162 DATA 9A36,97,E6,FE,77,00,CD,18,9B,F6,0 
1,77,03,IE,98,3E,4B,3C5E 

[2468] 

163 DATA 9A46,CD,IE,BB,CA,F4,9A,3A,88,97,B 
7,28,14,ED,4B,86,97,91A0 

[3646] 

164 OATA 9A56,OC,CD,18,9B,FE,05,20,08,3E,7 
B,32,89,97,03,6B,9E,54D4 

[2541] 

165 DATA 9A66,3A,86,97,FE,12,CA,47,9E,30,4 
F,3A,87,97,47,CD,18,2EF4 

[ 2902 ] 

166 DATA 9A76,9B,32,89,97,FE,02,CA,47,9E,E 

6, 7F,28,06,79,FE,12,0085 

[2697] 

167 DATA 9A86,D2,47,9E,00,CD,18,9B,32,8A,9 
7,E6,7F,28,08,3A,89,B601 

[3573] 

168 DATA 9A96,97,E6,7F,C2,47,9E,3A,89,97,E 
6,7F,28,08,3A,8A,97,033A 

[4049] 

169 DATA 9AA6,FE,02,CA,47,9E,21,86,97,4E,2 
3,46,DD,71,06,DD,70,77ED 

[3488 ] 

170 DATA 9AB6,04,CD,18,9B,E6,80,DD,77,02,3 
A,89,97,E6,7F,DD,77,IDEE 

[3228] 

171 DATA 9AC6,00,C4,54,9E,CD,53,9F,3A,86,9 
7,30,32,86,97,4F,3A,249C 

[ 4648 ] 

172 DATA 9AD6,87,97,47,CD,18,9B,32,89,97,E 
6,7F,CA,IE,98,3A,89,424D 

[2935] 

173 DATA 9AE6,97,E6,FE,77,OC,CD,18,9B,F6,0 
1,77,C3,1E,98,3E,42,3457 

[2895] 

174 DATA 9AF6,CD,IE,BB,CA,IE,98,3E,7B,32,8 
9,97,C3,6B,9E,DD,75,7207 

[3449] 

175 DATA 9806,00,5D,DD,74,01,54,DD,70,02,D 
0,71,04,CD,00,9F,C3,ODBE 

[2306] 

176 DATA 9B16,C9,97,C5,3E,EC,04,C6,14,10,F 
C, 81,5F,16,00,21,96,CAE8 

[3842] 

177 DATA 9B26,96, 19,7E,C1,C9,65, 74,00,12,0 
0,E2,18,01,CO,69,62,B331 

[2818] 

178 DATA 9B36.6C,6F,63,6B,20,64,77,20,30,0 
0,0C,00,EC,18,01,CO,5065 

[2884] 

179 DATA 9B46,64,77,20,32,30,00,OC,00,F6,1 
8,01,CO,64,77,20,31,0884 

[2714] 

180 DATA 9B56,35,00,OB,00,00,19,01,CO,64,7 
7,20,3Q,00,0B,00,0A,6EFD 

[2454] 

181 DATA 9B66,19,01,CO,64,62,20,30,00,OD,0 
0,14,19,01,00,64,62,7623 

[2719] 

182 DATA 9B76,20,26,38,31,00,10,00,1E , 19,0 

1,C0,64,77,20,61,75,DF12 

[3099] 

183 DATA 9B86, 73, 77,61,62,00,1A,00,28,19,0 

1,CO,69,6E,74,6F,75,1075 

[2705] 

184 DATA 9B96,74,20,6C,64,20,68,6C,2C,69,6 
2,60,6F,63,68,00,11,Bl EC 

[4204] 

185 DATA 9BA6,00,32,19,01,C0,63,61,60,60,2 
0,26,62,63,65,63,00,ACA2 

[2451] 

186 DATA 9BB6,13,00,30,19,01,CO,60,64,20,6 
8,6C,2C,69,62,6C,6F,233B 

[2169] 

187 DATA 9BC6,63,6B,00,OF,00,46, 19,01,CO , 6 
A,70,20,26,62,63,66,EDB2 

[3372] 

188 DATA 9BD6,38,00,00,00,1A,00,00,00,00,0 
0,00,00,00,00,00,00,0010 

[3546] 

189 DATA 9BE6,00,00,00,00,00,00,00,00,00,0 
0,00,00,00,00,00,00,0000 

[3936] 

190 DATA 9BF6,00,00,00,00,00,00,00,A6,13,0 

1,C0,63,61,6C,6C,20,B3B0 

[3438] 

191 DATA 9006,76,00,10,00,BO,13,01,CO,60,6 
4,20,61,20,28,79,76,2268 

[3714] 

192 DATA 9016,29,00,OC,00,BA, 13,01,CO,69 , 6 
E,63,20,61,00,00,00,7060 

[2536] 

193 DATA 9C26,C4,13,01,CO,3E,01,CD,AD,BC,E 
6,07,28,20,3A,46,9E,4770 

[ 3075 ] 

194 DATA 9036,3C,FE,05,20,01,97,32,46,9E , 1 
6,00,5F,62,6B,29,29,1B96 

[3394] 

195 DATA 9046,29,19,11,07,9E,19,DD,E5,CD,A 

A,BC,DD,El,3A,F5,9D,0BD2 

[2355] 

196 DATA 9056,3C,32,F5,90,FE,09,00,97,32,F 
5,9D,3A,F2,9D,47,3A,0213 

[2111 ] 

197 DATA 9C66,F3,9D,B8,C8,3A,F2,9D,5F, 16,0 
0,21,26,90, 19,7E,32,3444 

[2526] 

198 DATA 9076,FO,9D,3A,F2,9D,5F,16,00,21,8 
B,9D,19,7E,32,F1,9D,BA65 

Listing LETSWORK 

[ 3630 ] 


199 DATA 9C86,3A,F2,9D,3C,FE,64,20,01,97,3 
2,F2,9D,3A,F0,9D,3D,92B0 

200 DATA 9C96,32,FO,9D,CD,04,90,3A,FO,9D,3 

C, 3C,32,F0,9D,CD,C4,E5B4 

201 DATA 9CA6.9C,3A,FO,9D,3D,32,FO,9D,3A,F 
1,9D,3D,32,F1,9D,CD,3FC4 

202 DATA 9CB6,04,90,3A,Fl,9D,30,30,32,Fl,9 

D, CD,04,90,09,ED,4B,4E3C 

203 DATA 9CC6,FO,90,CD,18,9B,B7,CO,3A,86,9 

7, B9,20,0D,3A,87,97,ACB9 

204 DATA 9CD6,B8,20,07,Dl,3E,7B,32,89,97,C 
9,DD,71,04,DD,70,02,679F 

205 DATA 9CE6,11,80,A2,05,CD,00,9F,CI,CD,1 
8,9B,36,05,3A,F3,9D,7600 

206 DATA 9CF6,5F,16,00,21,26,9D,19,3A,FO,9 
0,77,3A,F3,9D,5F,16,0B6F 

207 DATA 9D06,00,21,8B,9D,19,3A,Fl,9D,77,3 
A,F3,9D,3C,FE,64,20,8F51 

208 DATA 9D16,01,97,32,F4,9D,47,3A,F2,9D,B 

8, C8,78,32,F3,9D,C9,4FB6 

209 DATA 9D26,6E,6F,6E,69,74,20,60,64,20,2 
8,69,78,2B,34,29,20,1D72 

210 DATA 9036,63,00,12,00,82,14,01,00,60,6 
4,20,28,69,78,2B,32,697B 

211 DATA 9D46,29,20,62,00,12,00,80,14,01 ,C 
0,60,64,20,64,65,20,6724 

212 DATA 9D56,26,61,32,38,30,00,OE,00,96,1 
4,01,00,70,75,73,68,5CF5 

213 DATA 9D66,20,62,63,00,11,00,AO,14,01.C 
0,63,61,60,60,20,26,0443 

214 DATA 9D76,39,66,30,30,00,OD,00,AA,14,0 
1,CO,70,6F,70,20,62,89DA 

215 DATA 9D86,63,00,OE,00,B4,14,01,CO,63,6 
1,60,60,20,71,75,00,509B 

216 DATA 9D96,10,00,BE,14,01,CO,60,64,20,2 
8,68,60,29,20,35,00,244F 

217 DATA 9DA6,10,00,08,14,01,CO,6C,64,20,6 
1,20,28,7A,32,29,00,F819 

218 DATA 9DB6,OD,00,D2,14,01,CO,6C,64,20 , 6 
5,20,61,00,OD,00,DC,3E26 

219 DATA 9DC6,14,01,CO,60,64,20,64,20,30,0 
0,0F,00,E6,14,01,00,DA55 

220 DATA 9DD6,60,64,20,68,60,20,78,61,00,1 
0,00,FO,14,01,C0,61,CB6B 

221 DATA 9DE6,64,64,20,68,60,20,64,65,00,1 
0,00,00,00,00,00,00,F92A 

222 DATA 9DF 6,02,08,01,01,05,FF,02,03,02,0 
2,02,02,FE,02,0A,05,E509 

223 DATA 9E06,01,01,01,01,DE,01,02,08,1E,0 
0,01,01,01,AA,01,00,0594 

224 DATA 9E16,06,1E,00,01,01,01,7B,01,01,0 
6 , IE,00,01,01,01,AA,6960 

225 DATA 9E26,01,00,06,1E,00,01,01,01,DE,0 
1,00,06,IE,00,02,00,0805 

226 DATA 9E36,00,00,00,01,0A,1A,00,02,00,0 
0,00,00,14,00,05,00,2A9A 

227 DATA 9E46,00,21,3D,9E,DD,E5,CD,AA,BC,D 

D, E1,03,1E,98,DD,E5,369D 

228 DATA 9E56,21,34,9E,CD,AA,BC,DD,E1,09,0 
0,00,14,00,OF,00,00,OEF8 

229 DATA 9E66,00,00,81,2A,90,21,5F,9E,CD,E 
C,BC,21,5F,9E,C3,F8,8DF8 

230 DATA 9E76,BC,21,A7,Al,06,06,ES,11,EO,0 
1,CD,99,9E,11,EO,09,1684 

231 DATA 9EB6.CD,99,9E.CD,BF,9E,El,10,ED,1 
1,14,00,19,70,FE,F7.F22E 

232 DATA 9E96,20,E2,09,05,06,0A,3E,01, 32 , F 
F,9E,4E,C5,3A,FF,9E,A37D 

233 DATA 9EA6,A1,0E,00,28,02,0E,F0,79,12,3 
A,FF,9E,87,32,FF,9E,2540 

234 DATA 9EB6,C1,13,20,E8,23,10,DF,C1,09,C 
5,11,00,CO,21,00,08,B6C2 

235 DATA 9EC6,01,50,00,E5,ED,BO,D1,62,6B,3 

E, 08,84,67,30,08,3E,6888 

236 DATA 9ED6,50,85,6F,3E,CO,80,67,FE,09,2 
0,E5,7D,FE,E0,20,E0,3323 

237 DATA 9EE6,21,DO,02,11,DO,CA,01,50,00,E 
5,ED,B0,D1,6B,62,CD,02F5 

238 DATA 9EF6,29,BC,7A,FE,09,20,EF,CI,09,0 
0,D5,DD,6E,02,26,00,87F8 

239 DATA 9F06,29,29,29,29,29,54,5D,29,29,1 
9, 16,00,DD, 7E,0 4,8 7,E086 

240 OATA 9F16,87,5F,19,Dl,EB,01,04,10,05,D 
5,06,00,ED,BO,Dl,CI,6796 

241 DATA 9F26,CD,45,9F,10,F3,09,DD,6E,04,2 
6,00,29,29,29,29,29,40E7 

242 DATA 9F36,54,5D,29,29,19,16,CO,DD,7E,0 
6,87,87,5F,19,09,3E , 181B 


Listing LETSWORK 


[3819] 
[3534] 
[2634] 
[3742] 
[3597] 
[2705] 
[3858] 
[ 2920 ] 
[3055] 
[3066 ] 
[3313] 
[3157] 
[3454] 
[3055] 
[3751] 
[3225 ] 
[ 2495 ] 
[3199 ] 
[ 2240 ] 
[3064] 
[2198 ] 
[3288] 
[ 1609 ] 
[2653] 
[3716] 
[3157] 
[2426] 
[3021] 
[2987] 

[2679] 

[3356] 

[ 4203] 
[4023] 

[1804] 

[ 1873 ] 

[ 2550 ] 

[3868] 

[ 2937 ] 
[3210 ] 

[ 3242 ] 

[2616 ] 
[3750] 
[2388] 

[3839] 
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243 data 9F46,o8,82,57,do,3e,50,83,5f,3e,c [3440] 
0,8A,57,C9,CD,2C,9F,B7A9 

244 DATA 9F56,EB,DD,7E,02,B7,01,80,A4,28,0 [2777] 
3,01,CO,A4,21,81,9F,2490 

245 DATA 9F66,71,23,70,97,32,E5,9F,32,E6,9 [2933] 
F,D5,CD,19,BD,CD,19,793B 

246 DATA 9F76,BD,CD,19,BD,CD,19,BD,CD,19,B [3010] 
D,21,00,00,3A,E6,9F,AD39 

247 DATA 9F86,85,6F,06, 10,7E,12,23,23,23,2 [3218] 

3,CD,45,9F,10,F5,Dl,5C68 

248 DATA 9F96,13,D5,3A,E5,9F,EE,01,32,E5,9 [3911] 
F,21,80,A3,20,03,21.FCED 

249 DATA 9FA6,CO,A3,01,04,10,C5,D5,06,00,E [4044] 
D,BO,Dl,C1,CD,45,9F,BD33 

250 DATA 9FB6,10,F3,DD,7E,00,B7,Dl,D5,28,1 [2322] 
7,13,13,13,13,21,40,3960 

251 DATA 9FC6,A2,01,04,10,C5,D5,06,00,ED,B [2362] 
0,Dl,CI,CD,45,9F,10,FAB7 

252 DATA 9FD6,F3,D1,3A,E6,9F,3C,FE,04,32,E [2563] 
6,9F,C2,70,9F,C9,00,2F6F 

253 DATA 9FE6,00,CD,2C,9F,EB,DD,7E,02,B7,0 [1532] 
1,80,A4,28,03,01,CO,A235 

254 DATA 9FF6,A4,21,1A,AO,71,23,70,97,32,E [1911] 
5,9F,3E,03,32,E6,9F,4293 

255 DATA A006,13,13,13,D5,CD,19,BD,CD,19,B [3917] 
D,CD,19,BD.CD,19,BD,F6A6 

256 DATA AO16,CD,19,BD,21,00,00,3A,E6,9F,8 [3679] 
5,6F,06,10,7E,12,23,804A 

257 DATA A026,23,23,23,CD,45,9F,10,F5,Dl,1 [2832] 
B,1B,1B,1B,D5,3A,E5,1E9C 

258 DATA AO36,9F,EE,01,32,E5,9F,21,00,A4,2 [3052] 
0,03,21,40,A4,01,04,4E94 

259 DATA A046,10,C5,D5,06,00,ED,BO,D1,C1,C [2443] 
D,45,9F,10,F3,DD,7E.D539 

260 DATA A056,00,B7,Dl,D5,28,17,1B,1B,1B,1 [3054] 
B,21,40,A2,01,04,10.8F57 

261 DATA A066,C5,D5,06,00,ED,BO,Dl,C1,CD,4 [2996] 
5,9F, 10,F 3,D1,13,13.AA9A 

262 DATA A076,13,3A,E6,9F,3D,32,E6,9F,3C,C [3859] 
2,09,A0,C9,CD,2C,9F,6309 

263 DATA AO86,CO,29,BC,11,AO,00,AF,ED,52,E [3329] 
B,DD,7E,02,B7,01,80,EEBO 

264 DATA A096,A4,28,03,01,CO,A4,21,FB,AO,7 [2657] 
1 ,23,70,97,32,E5,9F,1359 

265 DATA AOA6,3E,3C,32,E6,9F,D5,CD,19,BD,C [2986] 

D, 19,BD,DD,7E,00,B7,6D89 

266 DATA AOB6,CA,CC,AO,21,40,A2,01,04,10,C [3261] 
5,D5,06,00,ED,BO,Dl,BFC5 

267 DATA A0C6,CI,CD,45,9F,10,F3,D1,D5,21,A [2486] 
0,00,19,EB,3A,E5,9F,94A5 

268 DATA AOD6,EE,01,32,E5,9F,21,00,A3,28,0 [2119] 

3.21.40, A3,01,04,10,9E9F 

269 DATA AOE6,C5,D5.06,00,ED,BO,D1,C1,CD,4 [2073] 
5,9F,10,F3,Dl,D5,21,AB24 

270 DATA A0F6,40,01,19,EB,21,00,00,3A,E6,9 [2833] 
F , 0 6,00,4F,09,01,04,B4 7 6 

271 DATA A106,00,ED,BO,El,CD,29,BC,EB,3A,E [2811] 
6,9F,D6,04,32,E6,9F,349F 

272 DATA A116,D2,AB,AO,C9,CD,2C,9F,EB,DD,7 [3200] 

E, 02,87,01,80,A4,28,2404 

273 DATA A126,03,01,CO,A4,21,3F,A1,71,23,7 [3629] 
0,97,32,E5,9F,32,E6,5E85 

274 DATA A136,9F,D5,CD,19,BD,CD,19,B0,21,0 [2989] 
0,00,3A,E6,9F,4F,06,B590 

275 DATA A146,00,09,01,04,00,ED,BO,D1,D5,C [3486] 
D,45,9F,3A,E5,9F,EE,7E04 

276 DATA A156,01,32,E5,9F,21,00,A3,28,03,2 [3048] 

1.40, A3,01,04,10,C5,3D14 

277 DATA A166,D5,06,00,ED,BO,D1,C1,CD,45,9 [3169] 
F , 10,F3,Dl,D5,DD,7E,5 70A 

278 DATA A176,00,B7 , 28 , 1B,CD,45,9F,21,AO,0 [3188] 
0,19,EB,21,40,A2,01,4FF2 

279 DATA A186,04,10,D5,C5,06,00,ED,BO,C1,D [4049] 
1,CD,45,9F,10,F3,D1,E6AE 

280 DATA A196,CD,45,9F,3A,E6,9F,C6,04,32,E [3306] 
6,9F,FE,40,C2,37,Al,7924 

281 DATA A1A6,C9,87,DF,DF,FD,00,87,FB,F7,E [3108] 

F, 38,BF,1F,07,FC,00,00F9 

282 DATA A1B6,FF,FB,77,EE,3B,87,DF,DF,FD,0 [2595] 
0,87,FB,F7,EF,IC,BF , 9810 

283 DATA A1C6,1F,07,FC,00,FF,FB,77,E7,1C,8 [3484] 
7,03,07,1C,00,87,3B,F310 

284 DATA A1D6,77,EC,OE,87,03,07,EO,00,B7,3 [3849] 
B,F7,EF,0E,87,0F,07,B32D 

285 DATA A1E6,FC,00,87,3B,77,EC,03,87.0F,0 [3335] 
7,FC,00,B7,3B,F7,EF,C4F8 

286 DATA A1F6,03,00,00,00,00,00,00,00,00,0 [3871] 
0,OC,OF,OC,OF,OC,OF,813A 

287 DATA A206,OC,0F,OC,OF,OC,OF,00,00,00,0 [2071] 


Listing LETSWORK 


0,OF,03,OF,03,OF,03,EDBD 

288 DATA A216,OF,03,0F,03,0F,03,00,00,00,0 [3665] 
0,03,OF,03,OF,03,OF,E4BB 

289 DATA A226,03,OF,03,OF,03,OF,00,00,00,0 [2036] 
0,0F,0C,0F,0C,0F,OC,F 5 78 

290 DATA A236,OF,OC,OF,OC,OF,0C,00,OO,OO,O [2628] 
0,00,00,00,00,F5,F5,E91A 

291 DATA A246,F5,F5,FA,FA,FA,FA,3D,F5,F5,F [2621] 
4,9F,FF,FF,F8,3F,FF,C85A 

292 DATA A256,FF , F8,9F,FF,FF,F8,3F,FF,FF,F [ 3538 ] 
8,9F,FF,FF,F8,3F,FF,5050 

293 DATA A266,FF,F8,9F,FF,FF,F8,3F,FF,FF,F [2688] 
8,8F,OF,OF,3C,OF,OF,5950 

294 DATA A276,0F,1E,0F,0F,0F,0F,00,00,00,0 [3630] 
0, IE,FO,OF,OF,78,FO,5885 

295 DATA A286,87,OF,F0,E1,0F,0F,FO,87,OF,1 [3569] 
F,F0,E1,0F,7F,F0,0F,636A 

296 DATA A296,1F,FF,FF,CF,OF,7F,FF,EF,1F,F [4106] 
F,FF,8F,0F,FF,FE,87,E08C 

297 DATA A2A6,0F,3F,FC,E1,OF,1F,F0,FO,87,0 [3120] 
F,F0,E1,0F,0F,F0,0F,95E3 

298 DATA A2B6,OF,OF,3C,87,0F,0F,1E,C3,OF,0 [4573] 

F,00,30,CO,00,00,FO,OABB 

299 DATA A2C6,FO,CO,00,6F,CE,00,00,OB,OA,0 [3741] 
0,00,04,04,00,00,03,8E2B 

300 DATA A2D6,08,00,31,FC,FC,C8,60,FC,FC,6 [2725] 
0,66,F3,F3,66,66,F3,7FC6 

301 DATA A2E6,F3,66,60,FC,FC,60,06,FC,FC,0 [2474] 
6,00,5A,5A,00,00,4A,28DF 

302 DATA A2F6,25,00,00,A4,52,00,03,OE,07,0 [3139] 

C,00,30,CO,00,00,FO,5D6A 

303 DATA A3O6,FO,CO,OO,6F,CE,O0,00,OB,OA,O [2502] 
0,00,04,04,00,00,03,8E2B 

304 DATA A316,OB,00,31,FC,FC,CB,60,FC,FC,6 [3240] 
0,66,F3,F3,66,66,F3,7FC6 

305 DATA A326,F3,66,60,FC,FC,60,06,FC,FC,0 [1572] 
6,00,5A,5A,00,00,A4,2831 

306 DATA A336,25,00,03,OE,52,00,00,00,07,0 [3408] 
C,00,30,CO,00,00,F0,9560 

307 DATA A346,FO,C0,00,6F,CE,00,00,OB,OA,0 [2343] 
0,00,04,04,00,00,03,8E2B 

308 DATA A356,08,00,31,FC,FC,C8,60,FC,FC,6 [3129] 
0,66,F3.F3,66,66,F3.7FC6 

309 DATA A366,F3,66,60,FC,FC,60,06,FC,FC,0 [3678] 
6,00,5A,5A,00,00,A4,2831 

310 DATA A376,25,00,00,4A,07,OC,03,OE,00,0 [2698] 
0,00,10,EO,00,00,70,2666 

311 DATA A386,FO,EO,00,61,6F,00,00,43,OF,0 [2672] 
0,00,43,OF,00,00,01,288C 

312 DATA A396,OC,00,00,10,EC,00,00,30,FC,0 [3373] 
0,00,33,F3,00,00,33,2A9B 

313 DATA A3A6,F3,00,00,30,FC,00,00,30,3C,0 [2912] 
0,00,12,5A,00,00,21,4 DAC 

314 DATA A3B6,A5,00,00,10,4A,00,00,01,OF,0 [3830] 
0,00,10,EO,00,00,70,DOAl 

315 DATA A3C6,FO,EO,00,61,6F,00,00,43,OF,0 [2619] 
0,00,43,OE,00,00,01,2884 

316 DATA A3D6,OC,00,00,10,EC,00,00,30,FC,0 [3265] 
0,00,77,F3,88,00,F3.2C3B 

317 DATA A3E6,F3,CO,11,B8,FC,66,03,30,FC,0 [3236] 
3,00,21,A5,00,00,52,17EC 

318 DATA A3F6,21,80,00,A4,10,48,00,OF,09,0 [1640] 
F,00,70,80,00,70,F0.6B6B 

319 DATA A406,E0,00,00,6F,68,00,00,0F,2C,0 [3214] 

0,00,07,2C,00,00,03,A866 

320 DATA A416,08,00,00,73,80,00,00,F3,CO,0 [2940] 
0,00, FC,CC,00,00,FC,AA5B 

321 DATA A426,CC,00,00,F3,CO,00,00,C3,CO,0 [3031] 
0,00,5A,48,00,00,A5,942A 

322 DATA A436,84,00,00,52,08,00,00,OF,08,0 [2930] 
0,00,70,80,00,70,FO,6857 

323 DATA A446,EO,00,00,6F,68,00,00,OF,2C,0 [3803] 
0,00,07,2C,00,00,03,A866 

324 DATA A456,08,00,00,73,80,00,00,F3,CO,0 [3460] 
0,11,FC,EE,00,30,FC,A90B 

325 DATA A466,FC,00,66,F3,Dl,88,OC,F3,CO,0 [3351] 
C,00,5A,48,00,10,48,D7F1 

326 DATA A4 76,A4,00,21,80,52,00,0F,09,0F,0 [ 2651 ] 
0,00,00,00,00,00,OC,AODO 

327 DATA A486,00,00,00,00,00,66,00,00,00,0 [3228] 
0,60,00,OC,01,00,00,9465 

328 DATA A496,00,CC,00,08,00,00,00,00,00,0 [2130] 
0,00,00,CO,00,03,00,8635 

329 DATA A4A6,00,00,00,00,00,00,00,66,00,0 [1940] 
0,00,00,00,00,00,00,6600 

330 DATA A486,00,80,06,00,00,00,00,00,C8,0 [3298] 
0,F0,F0,F0,F0,78,F0,B160 

331 DATA A4C6,FO,Fl,BC,FO,FO,F2,5E,FO,FO,F [2603] 
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5,AF,F0,F0,FA,5F,78,9F56 

332 DATA A4D6,Fl,F5,AF,BC,F2,FA,5F,5E,F5,F [2969] 
5,AF,AF,7A,FA,5F,4F,2046 

333 DATA A4E6,3D,F5,AF,8F,1E,FA,5F,0F,0F,F [1966] 
5,AF,0F,0F,7A,4F,0F,57EC 

334 DATA A4F6,OF,3D,8F,OF,OF,1E,OF,OF,OF,0 [2466] 
F , 00,00,00,00,00,00,C5 5 9 


335 DATA *£NDE* [502] 

336 adr=&9696:zei1e=104:MEMORY adr-1 [1841] 

337 READ d$:IF d$="*ENDE*"THEN 348 [1116] 

338 pr=0 [117] 

339 FOR i=1 TO 16 [317] 

340 READ a$:a=VAL( M &"+a$) [883] 

341 POKE adr,a: adr = adr+l [717] 

342 pr=pr*2:IF pr>65535 THEN pr=pr-65535 [2485] 

343 pr=UNT(pr)XOR a:IF pr<0 THEN pr=pr+655 [1890] 
36 

344 NEXT i [375] 

345 READ pr$:pr2=VAL("&"+pr$}:IF pr2<0 THE [2610] 
N pr2=pr2+65536 

346 IF pr<>pr2 THEN PRI NT"Pruefsummenfeh1e [3615] 
r in Zei1e";zei1e:STOP 

347 zeile= 2 ei1e+1:GOTO 337 [987] 

348 SAVE"LETSWORK.BIN",B,&9696,&E6A [2430] 

349 PRINT d$:END [346] 


100 ‘*********************************** [1460] 

101 '* CLBINLAD - DATA-Lader von 'CPC' * [2749] 

102 '*********************************** [1460] 

103 ' [117] 


104 DATA 6000,01,DE,15,02,DE,04,00,02,DE,0 [1730] 

D, 00,02,02,DE,04,00,0033 

105 DATA 6010,02,00,02,00,02,01,02,00,00,0 [2726] 

E, 04,02,00,02,02,00,6720 

106 DATA 6020,01,00,00,02,DE,07,00,01,01,0 [3524] 
0,00,02,00,02,02,00,4DAA 

107 DATA 6030,01,00,01,02,00,00,02,00,02,0 [3297] 
0,00,01,00,00,00,02,8512 

108 DATA 6040,00,02,02,02,00,02,DE,OF,00,0 [1915] 
2,02,02,00,02,01,00,5BEB 

109 DATA 6050,02,00,00,DE,04,02,00,00,00,0 [3111] 
2,00,DE,04,02,00,02,0546 

110 DATA 6060,00,02,02,02,DE,06,00.02,00,0 [2686] 
0,02,80,02,02,00,01,025F 

111 DATA 6070,DE,07,00,02,02,DE,04,00,02,8 [2456] 
0,80,02,02,00,02,02,B15B 

112 DATA 6080,02,00,00,02,00,00,00,01,00,0 [2282] 
2,00,00,80,80,80,02,2683 

113 DATA 6090,02,DE,06,00,02,DE,05,00,02,0 [3232] 
0,DE,04,80,DE,15,02,3FE5 

114 DATA 60A0,25,03,FF,FF,00,01,DE,06,00,D [4297] 
E,OD,02,DE,06,00,02,DEE9 

115 DATA 60B0,02,80,80,DE,04,00,01,00,02,0 [2981] 
0,00,02,DE,05,00,02,05FA 

116 DATA 60C0,02,80,80,DE,08,00,01,00,02,D [4376] 
E,04,00,02,02,80,80,95A4 

117 DATA 60D0.DE,04,00,02,02,02,DE,04,00,0 [2372] 
2, DE,04,00,02,80,80,9AE 7 

118 DATA 60E0,DE,04,00,02,00,00,00,02,02,0 [2869] 
0,02,02,00,DE,04,02,2070 

119 DATA 60F0,DE,05,00,02,00,00,01,DE,05,0 [3391] 
0,02,00,02,00,00,02,BEBC 

120 DATA 6100,02,00,00,00,02,00,00,01,00,0 [3090] 
0,01,02,01,00,02,00,1100 

121 DATA 6110,02,DE,04,00,02,00,00,00,DE,0 [3072] 
4,02,00,00,02,00,00,7E7E 

122 DATA 6120,02,00,02,02,02,00,01,DE,04,0 [3630] 
0,02,00,00,02,00,00,AE49 

123 DATA 6130,02,00,00,02,00,00,00,02,00,0 [2535] 
1,02,00,02,01,02,00,2211 

124 DATA 6140,00,02,00,02,02,02,01,02,00,0 [3455] 
0,00,02,00,00,02,DE,B8FA 

125 DATA 6150,09,00,01,00,00,00,02,00,00,D [2430] 
E,12,02,03,OD,FF,FF,90C9 

126 DATA 6160,00,01,DE,15,02,DE,04,00,02,0 [2980] 
0,00,00,02,00,80,80,8089 

127 DATA 6170,00,00,02,00,00,00,02,02,00,0 [3447] 
2,02,00,02,00,01,00,46D2 

128 DATA 6180,00,00,80,80,02,DE,05,00,02,0 [2810] 
2,00,00,02,00,02,DE,6351 

129 DATA 6190,04,00,02,80,80,02,00,01,02,0 [2690] 
1,00,02,02,00,00,02,4870 

130 DATA 61A0,00,02,DE,07,00,02,DE,05,00,0 [3014] 
2,02,00,00,02,00,02,81 DO 

131 DATA 61B0,02,00,DE,04,02,DE,07,00,02,0 [3327] 
2,01,02,DE,OA,00,DE,E19F 

Listing LETSWORK 


132 DATA 6100,05,02,00,02,02,00,02,02,02,0 
0,02,DE,04,00,02,OE,3A5 8 

133 DATA 61D0,07,00,02,02,00,00,02,00,00,0 
1,00,00,01,00,02,00,E44F 

134 DATA 61E0,00,00,01,02,00,00,02,02,01,0 
0,02,00,01,00,02,02,06CE 

135 DATA 61F0,80,DE,04,00,02,00,00,01,00,0 
2,02,00,00,02,00,00, HBF 

136 DATA 6200,00,01,80,80,00,02,DE,07,00,D 
E,15,02,03, 15,FF,FF,C754 

137 DATA 6210,00,01,DE,15,02,DE,06,00,DE,0 
8,80,DE,04,00,02,02,C4DF 

138 DATA 6220,DE,12,00,02,02,DE,05,00,DE,0 
5,01,DE,08,00,02,02,A1AE 

139 DATA 6230,DE,05,00,01,00,01,00,01,DE,0 
8,00,02,02,DE,05,00,3B2C 

140 DATA 6240,DE,05,01,DE,08,00,02,02,DE,0 
5,00,01,00,00,00,01,A832 

141 DATA 6250,DE,08,00,02,02,DE,05,00,DE,0 
5,01,DE,08,00,02,02,21A8 

142 DATA 6260,DE,12,00,02,02,DE,12,00,02,0 
2,DE,04,00,02,DE,05,F7D9 

143 DATA 6270,00,02,DE,07,00,DE,15,02,15,1 
5,FF,FF,00,01,DE,15,7E65 

144 DATA 6280,02,DE,12,00,02,02,00,02,00,0 
2,00,DE,09,02,00,02,0716 

145 DATA 6290,02,00,02,02,00,01,00,02,00,0 
2,DE,08,80,01,00,02,79C7 

146 DATA 62A0,00,02,02,00,02,00,02,00,DE,0 
4,02,00,DE,04,02,00,BCA4 

147 DATA 6280,00,02,00,02,02,DE,10,00,02,0 
0,02,02,00,01,00,00,E967 

148 DATA 62C0,01,DE,04,00,02,00,01,02,00,0 
0,00,02,00,02,02,00,901B 

149 DATA 62D0,02,00,02,DE,05,00,02,01,00,0 
2,80,00,00,02,00,02,9086 

150 DATA 62E0,02,00,02,01,02,01,DE,05,02,0 
0,01,02,80,00,00,02,F802 

151 DATA 62F0,00,02,02,00,02,00,02,DE,06,0 
0,01,00,02,02,02,00,093C 

152 DATA 6300,00,00,02,02,DE,12,00,DE,15,0 
2,17,03,FF,FF,00,01,0AD3 

153 DATA 6310,DE,15,02,DE,10,00,02.00,02,0 
2,DE,04,00,01,02,DE,7EB9 

154 DATA 6320,04,00,01,02,00,01,00,00,02,0 
0,02,02,00,00,02,00,0566 

155 DATA 6330,00,02,00,01,02,00,00,02,DE,0 
6,00,02,02,00,00,02,ECB2 

156 DATA 6340,00,01,02,00,00,02,00,01,02,0 
0,DE,04,80,00,02,02,1786 

157 DATA 6350,00,01,02,00,00,02,00,01,02,0 
0,00,02,00,DE,04,80,OBDO 

158 DATA 6360,00,02,02,00,00,02,00,01,02,0 
0,00,02,00,01,02,00,C820 

159 DATA 6370,DE,04,80,00,02,02,00,01,02,0 
0,00,02,00,01,02,00,185E 

160 DATA 6380,00,02,DE,06,00,02,02,00,00,0 
2,00,01,02,00,00,02,2C99 

161 DATA 6390,00,01,02,OE,06,00,02,02,00,0 
1,02,DE,04,00,01,02,DBCD 

162 DATA 63A0,DE,09,00,02,02,DE,12,00,DE,1 
5,02,25,03,25,15,00,4498 

163 DATA 63B0,01,DE,15,02,DE,05,00,02,00,0 
2,02,00,00,02,00,00,66FB 

164 DATA 6300,00,80,02,80,02,02,00,02,00,0 
2,00,02,00,01,00,00,5A8C 

165 DATA 6300,00,02,00,02,02,00,02,81,02,0 
2,00,02,01,02,00,02,34A2 

166 DATA 63E0,00,02,02,00,00,02,00,02,00,0 
0,02,80,02,02,00,00,0258 

167 DATA 63F0,00,01,00,01,DE,04,00,02,02,D 
E,04,00,01,00,02,02,8408 

168 DATA 6400,00,02,00,DE,04,02,DE,07,00,0 
2,00,00,00,02,02,00,F380 

169 DATA 6410,02,00,02,DE,05,00,02,DE,04,0 
0,02,00,00,02,02,02,5042 

170 DATA 6420,00,02,00,02,00,00,02,00,00,0 
2,00,01,01,00,00,02,A49A 

171 DATA 6430,00,00,02,02,00,02,00,02,00,0 
1,00,00,81,80,DE,08,60FC 

172 DATA 6440,00,02,02,00,02,00,02,00,OE,0 
8,02,00,00,02,00,80,8908 

173 DATA 6450,02,02,00,02,00,02,00,00,01,0 
E,05,00,80,00,80,02,9AA3 

174 DATA 6460,80,80,DE,15,02,07,15,FF , FF,0 
0,01,02,02,02,00,DE,363C 

175 DATA 6470,05,02,DE,OB,00,02,00,00,02,0 
0,00,01,00,00,02,00,790D 
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[4208] 

[3096] 

[ 2965 ] 

[ 2886] 
[3109] 
[3487] 
[3359] 
[1911] 
[2759] 
[2943] 
[2206] 
[2307] 
[3152] 
[3018] 
[3191] 
[3309] 
[2892 ] 
[ 1095 ] 
[3289] 
[ 2635 ] 
[4095 ] 
[3142] 
[ 2722 ] 
[3122] 
[3394] 
[ 2110 ] 
[2893] 
[1767] 
[2803] 
[3034 ] 
(2525] 
[ 2289 ] 
[3374] 
[2660] 
[2664] 
[2614] 
[3592] 
[3048] 
[2205] 
[2658] 
[3425] 
[3221] 
[3156] 
[3699] 
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176 DATA 6480,00,02,02,02,DE,05,00,02,00,0 
1,00,00,00,02,00,00,064E 

I3312] 

177 DATA 6490,00,02,00,02,00,00,02,DE,04,0 
0,02,02,02,00,00,02,7872 

[2675] 

178 DATA 64A0,DE,05,00,02,DE,04,00,DE,04,0 
2,00,00,02,00,01,DE,5C24 

[2270] 

179 DATA 64B0,05,00,01,02,00,01,01,01,00,0 
0,00,02,00,00,00,02,8720 

[ 2641 ] 

180 DATA 64C0,DE,07,00,02,00,02,00,00,00,0 
1,00,02,DE,04,00,02,EEEC 

[ 3206 ] 

181 DATA 64D0,DE,09,00,02,02,00,00,00,02,D 
E,04,00,02,80,DE,0A.45CB 

[3772] 

182 DATA 64E0,00,02,02,00,DE,06,02,80,DE,0 
5,00,02,02,02,00,01,C27F 

[3172] 

183 DATA 64F0,01,00,02,02,02,DE,05,80,DE,0 
4,00,01,02,DE,07,00,6F75 

[2200] 

184 DATA 6500,02,02,80,80,80,DE,04,00,01,D 
E,05,00,01,00,00,01,C7B7 

[1761] 

185 DATA 6510,00,DE, 15,02,03,03,FF , FF,00,0 
1 , DE, 15,02,OE,08,00,0C9C 

[2652] 

186 DATA 6520,DE,OA,80,02,02,DE,12,00,02,0 
2,DE,12,00,02,02,00,F712 

[2850] 

187 DATA 6530,00,00,DE,05,01,DE,OA,00,02,0 
2,00,00,00,01,00,01,F59D 

[3733] 

188 DATA 6540,00,01,DE,OA,00,02,02,00,00,0 
0,01,01,00,00,01,DE,2CF7 

[3387] 

189 DATA 6550,OA,00,02,02,00,00,00,01,00,0 

1,00,01,DE,OA,00,02,678F 

[3586] 

190 DATA 6560,02,00,00,00,DE,05,01,DE,OA,0 
0,02,02,DE,12,00,02,3BDD 

[3447] 

191 DATA 6570,02,DE, 12,00,DE, 15,02,03,15 , 1 
9,07,00,01,DE,15,02,6C4A 

[3121] 

192 DATA 6580,DE,11,00,80,02,02,80,81,DE,0 
0,00,01,00,00,02,02,8534 

[3188] 

193 DATA 6590,DE,06,00,02,02,01,01,02,02,D 

E,06,00,02,02,DE,05,838F 

[2519] 

194 DATA 65A0,00,02,00,OO,00,01,00,00,02,D 

E,05,00,02,02,DE,05,B381 

[3747] 

195 DATA 65B0,00,02,DE,06,00,02,DE,05,00,0 
2,02,DE,04,00,02,00,9C1E 

[ 4229 ] 

196 DATA 65CO,00,00,02,02,00,00,00,02,DE,0 
4,00,02,02,01,00,00,0034 

[2769] 

197 DATA 65D0,02,DE,04,00,80,02,02,00,00,0 
0,02,00,01,00,02,02,0C7C 

[3790] 

198 DATA 65EO,00,00,02,DE,05,00,02,02,DE,0 
5,00,02,00,00,02,02,E06B 

[2994] 

199 DATA 65FO,00,02,00,02,00,00,02,02,02,8 
0,DE,06,00,02,00,02,9CAA 

[ 3249 ] 

200 DATA 6600,02,02,80,DE,06,00,02,02,DE,0 

6,00,80,DE,16,02,OD,363D 

[3770] 

201 DATA 6610.03,FF,FF,00,01,DE,15,02,DE,1 
2,00,02,02,DE,05,00,90E0 

[3178] 

202 DATA 6620,01,00,01,01,DE,09,00,02,02,0 
0,00,02,00,00,02,02,6720 

[3418] 

203 DATA 6630,00,02,02,02,01,02,00,02,02,0 
0,00,02,02,00,00,02,E332 

[2758] 

204 DATA 6640,00,00,02,80,00,00,02,80,00,0 
0,00,02,80,00,00,02,C02A 

[2739] 

205 DATA 6650,02,00,01,02,00,00,02,02,00,0 
0,02,DE,04,00,02,02,0B87 

[2891 ] 

206 DATA 6660,00,00,02,02,00,00,02,80,00,0 
2,80,00,00,02,DE,04,F530 

[ 3069 ] 

207 DATA 6670,00,80,02,00,00,02,02,00,00,0 
2,02,00,02,02,00,00,4CF8 

[2441] 

208 DATA 6680,02,DE,04,00,02,02,00,00,02,0 

2,DE,OF,00,01,00,00,0282 

[2719 ] 

209 DATA 6690,02,02,DE,12,00,02,02,DE, 12,0 
0,DE,15,02,1F,03,FF,Al IE 

[ 19 75 ] 

210 DATA 66A0,FF,00,01,DE,15,02,DE,12,00,0 

2,02,DE,OF,00,01,00,4329 ' 

[2757] 

211 DATA 66B0,00,02,02,00,02,00,00,00,02,0 
0,02,02,02,00,02,02,0176 

[ 1695 ] 

212 DATA 6600,02,00,02,00,02,00,02,00,02,0 
0,00,00,02,00,02,00,5515 

[2533] 

213 DATA 6600,02,00,02,00,02,00,02,80,02,0 
0,02,00,02,00,00,00,0551 

[3126] 

214 DATA 66E0,02,01,02,00,02,80,02,00,02,0 
0,02,02,00,00,02.00,1567 

[ 2559 ] 

215 DATA 66F0,02,00,00,00,02,00,02,00,02,0 
0,02,02,00,01,02,02,1563 

[3204 ] 

216 DATA 6700,00,00,02,00,02,80,02,80,02,0 

0,02,00,02,00,02,80,D5D6 

Listing LETSWORK 

[1649] 


217 DATA 6710,02,00,02,80,02,00,02,00,00,0 
2,80,02,00,00,02,02,44AF 

[3074] 

218 DATA 6720,02,01,02,00,02,00,02,00,02,0 
0,02,DE,04,00,01,00,1883 

[2665] 

219 DATA 6730,01,00,00,00,01,DE,07,00,02,0 
2,00,01,DE,OF,00,80,F9DF 

[2922] 

220 DATA 6740,DE,15,02,09,OB,FF,FF,00,01,D 
E,1C,02,80,DE,04,00,F9B8 

[4651] 

221 DATA 6750,02,02,02,00,80,00,02,02,02,0 
0,01,80,02,02,02,80,CFB9 

[2605] 

222 DATA 6760,DE,04,00,80,02,02,01,01,80,0 
2,02,02,00,01,00,DE,5B5C 

[2599] 

223 DATA 6770,05,02,DE,04,00,02,02,00,00,0 
0,02,02,02,DE,09,00,8F03 

[2728] 

224 DATA 6780,DE,04,02,00,01,00,00,02,02,0 
2,DE,05,00,01,DE,06,51C0 

[3704] 

225 DATA 6790,00,01,00,01,00,00,02,02,00,0 
0,80,80,DE,04,02,00,48E4 

[2357] 

226 DATA 67AO,00,DE,04,02,00,DE,05,02,00,0 
0,DE,06,02,00,00,02,4B86 

[2651] 

227 DATA 67B0,DE,06,00,02,02,02,00,00,00,D 
E,04,02,DE,OA,00,02,8994 

[4061] 

228 DATA 67C0,02,02,DE,09,00,01,02,02,DE,0 
4,00,80,02,02,02,00,8406 

[2932] 

229 DATA 67DO,01,DE,07,00,80,DE,1D,02,15,0 
5,FF,FF,00,01,DE,15,BA4D 

[ 3365 ] 

230 DATA 67E0,02,DE,10,00,80,80,02,02,00,0 
0,02,01,02,00,00,01,8673 

[2369] 

231 DATA 67F0,01,DE,07,00,80,80,02,02,00,0 
0,02,00,00,02,00,00,E679 

[2580] 

232 DATA 6800,01,DE,06,00,02,80,80,02,02,0 
0,00,02,00,00,02,00.0310 

[3314] 

233 DATA 6810,01,01,DE,06,00,02,02,80,02,0 
2,00,00,02,00,00,02,ED89 

[2797] 

234 DATA 6820,00,01,DE,06,00,01,DE,05,02,0 

0,00,00,01,02,DE,OC,5DAA 

[3236] 

235 DATA 6830,00,80,02,02,00,00,02,80,02 , D 
E,07,00,02,80,DE,06,D1EA 

[2918] 

236 DATA 6840,02,00,00,DE,05,02,00,00,00,0 
2,02,02,00,01,80,80,C168 

[2030] 

237 DATA 6850,02,02,02,00,01,DE,OC,00,02,0 

1,DE,10,02,DE,04,00,B0E2 

[2944] 

238 DATA 6860,DE,17,02,19,OF,FF,FF,00,01,D 
E,15,02,DE,11,00,80,59DD 

[3278] 

239 DATA 6870,02,02,DE,05,00,01,00,02,00,0 
0,02,02,02,00,00,02,1668 

[ 1883] 

240 DATA 6880,02,00,02,02,00,00,02,02,00,0 
0,02,00,00,00,02,80,66C5 

[j 3 4 6 8 ] 

241 DATA 6890,02,00,00,00,02,00,02,02,00,0 
0,80,02,00,02,02,00,062D 

[2949] 

242 DATA 68A0,00,00,02,DE,05,00,02,00,02,0 
2,00,00,00,02,DE,04,8C3D 

[2664] 

243 DATA 68B0,00,02,00,00,00,01,00,00,00,0 
2,00,02,02,02,DE,07,8503 

[2520] 

244 DATA 68C0,00,02,00,00,02,02,02,DE,04,0 

0,02,02,02,01,00,00,4074 

[2446] 

245 DATA 68 DO,00,02,00,01,02,01,DE,08,00,0 
2,02,00,01,00,02,80,304D 

[2583] 

246 DATA 6BEO,01,DE,05,00,02,00,00,80,02,0 
0,00,02,02,00,00,DE,31D9 

[2920] 

247 DATA 68FO,04,02,DE,05,00,02,00,00,02,0 
2,02,01,02,02,DE,04,1869 

[3220] 

248 DATA 6900,00,80,00,00,00,02,80,01,DE,0 

6,00,80,DE,15,02,03,6902 

[3279] 

249 DATA 6910,03,FF,FF,00,01,DE,15,02,00,0 

0,DE,05,02,00,00,00,E3A2 

[3120] 

250 DATA 6920,DE,05,02,00,00,00,02,02,00,0 
0,02,DE,08,00,01,DE,0B52 

[3404] 

251 DATA 6930,06,00,02,02,00,00,01,01,DE,0 
5,02,01,DE,06,02,00,OBFF 

[2902 ] 

252 DATA 6940,00,02,02,00,00,01,00,00,00,0 
1,DE,04,00,01,00,00,DFC4 

[2183] 

253 DATA 6950,00,01,00,00,02,02,00,00,00,D 
E,OB,02,00,01,00,00,6EC4 

[1607] 

254 DATA 6960,02,02,DE,0F,00,01,00,00,DE,0 

4,02,DE,OA,00,02,01,D7EF 

[2113] 

255 DATA 6970,01,01,00,00,02,02,02,80,80,8 
0,02,DE,00,00,02,02,31CE 

[2673] 

256 DATA 6980,DE,04,80,02,DE,OD,00,02,02,0 

2,80,80,80,02,DE,OD,FA41 

[ 3690 ] 

257 DATA 6990,00,DE,15,02,15,13,FF,FF,00,0 

1,DE,16,02,DE,10,00,FC9C 

Listing LETSWORK 

[3275] 
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258 DATA 69A0,80,02,02,80,02,DE,05,00,01,D 
E,OA,00,02,02,00,80,9493 

259 DATA 69B0,02,00,00,00,01,00,01,DE,09,0 
0,02,02,00,00,80,02,D1E3 

260 DATA 69C0,00,00,01,01,01,DE,06,00,80,0 
0,00,02,02,80,00,00,0E33 

261 DATA 69D0,80,02,00,00,01,DE,05,00,02,0 
2,80,DE,05,02,00,00,E603 

262 DATA 69E0,00,80,02,DE,06,00,01,02,DE,0 
4,00,02,02,00,02,00,FE19 

263 DATA 69EO,00,00,80,02,00,00,00,01,00,8 
0,02,00,01,01,00,02,015E 

264 DATA 6AOO,02,00,00,02,00,00,00,80,02,0 
0,00,DE,04,02,DE,04,AD71 

265 DATA 6A10,00,02,02,DE,OA,00,02,DE,04,0 
0,01,00,00,02,02,DE,A8FF 

266 DATA 6A20,0A,00,02,DE,07,00,OE,15,02,0 
3, 15,19,15,00,01,DE,338D 

267 DATA 6A30,15,02,80,81,DE,OB,00,02,02,0 
0,00,00,DE,05,02,01,C9F5 

268 DATA 6A40,00,DE,07,02,00,01,00,80,00,0 
0,02,02,00,02,80,DE,C581 

269 DATA 6A50,05,00,01,00,00,02,02,00,02,0 
2,00,01,02,02,00,00,AD8A 

270 DATA 6A60,DE,04,02,00,02,02,02,00,02,0 
2,00,00,00,02,00,02,5DE4 

271 DATA 6A70,02,01,00,DE,04,02,00,80,DE,0 
4,00,02,02,02,01,02,6634 

272 DATA 6A80,80,02,02,00,00,02,80,DE,05,0 
2,DE,04,00,02,02,00,OFCD 

273 DATA 6A90,DE,04,02,00,01,DE,04,00,02,0 
2,02,00,02,02,01,02,39B5 

274 DATA 6AA0,80,00.00,02,02,02,00,02,02,0 
0,00,00,02,02,02,00,3B5C 

275 DATA 6AB0,02,02,00,02,80,00,00,00,02,0 
2,80,02,02,00,00,02,B1B7 

276 DATA 6ACO,02,00,01,DE,04,00,80,02,01,0 
1,00,02,02,00,02,02,E2FB 

277 DATA 6ADO,DE,05,00,02,DE,04,00,02,02,8 
0,00,00,DE,15,02,03,A5CB 

278 DATA 6AEO,15,FF,FF,00,01,DE,15,02,DE,0 
A,00,80,01,DE,06,00,9ED5 

279 DATA 6AFO,02,02,DE,OA,00,80,01,DE,05,0 
0,02,02,02,DE,05,00,3D9A 

280 DATA 6B00,DE,OF,02,DE,04,00,01,DE,OD,8 
0,02,02,DE,05,00,02,BC67 

281 DATA 6810,01,02,02,02,01,02,02,02,01,0 
2,02,00,02,02,00,01,6659 

282 DATA 6B20,00,01,DE,08,00,02,DE,05,00,0 
2,02,01,00,01,00,01,B1CF 

283 DATA 6B30,DE,07,00,02,DE,05,00,02,02,0 
0,01,00,01,DE,08,00,0428 

284 DATA 6B40,02,00,01,00,00,00,02,02,00,0 
0,01,00,01,DE,07,00,255F 

285 DATA 6B50,DE,05,02,00,02,02,80,DE,11,0 
0,DE,15,02,09,03,25,D468 

286 DATA 6B60,03,00,01,DE,15,02,80,DE,11,0 
0,02,02,00,00,00,DE,3633 

287 DATA 6B70,OE,02,01,02,02,00,00,00,02,D 
E,OE,00,02,02,00,00,A75F 

288 DATA 6B80,00,02,00,01,DE,09,02,01,00,0 
0,02,02,00,00,00,02,4164 

289 DATA 6890,DE,04,00,81,80,02,80,80,00,0 
0,00,01,00,02,02,00,987F 

290 DATA 6BA0,00,01,DE,OD,02,00,00,02,02,D 
E,07,00,81,00,00,00,7073 

291 DATA 6BB0,81,80,02,80,00,01,00,02,02,D 
E,04,00,02,02,00,00,F070 

292 DATA 6BC0,00,DE,05,02,DE,04,00,02,02,0 
1,DE,04,00,DE,05,02,FB81 

293 DATA 6BD0,00,00,00,02,DE,04,00,02,02,8 
0,DE,OA,00,01,00,02,F860 

294 DATA 6BE0,DE,04,00,DE, 15,02,07, 13,25, 1 
5,00,01,DE,15,02,DE,4CCD 

295 DATA 6BF0,08,00,02,00,00,00,80,DE,04,0 
0,80,02,02,DE,08,00,8F5D 

296 DATA 6C00,02,00,02,80,01,DE,05,00,02,0 
2,00,01,01,80,02,00,3996 

297 DATA 6010,00,00,02,00,02,00,02,00,00,0 
1,00,00,02,02,00,00,5458 


[3637] 
[1978] 
[1853] 
[3702] 
[2324] 
[2826] 
[2519] 
[2800] 
[2445] 
[ 3449 ] 
[3186] 
[2956] 
[3504] 
[ 2685 ] 
[3112] 
[3719] 
[3310 ] 
[2043] 
[2214] 
[4142 ] 
[2310] 
[3193] 
[ 2622 ] 
[ 1852 ] 
[2420] 
[2550] 
[ 1959 ] 
[2859] 
[3451] 
[2796] 
[3947] 
[3700] 
[3280] 
[2986 ] 
[2813] 
[3035] 
[3215] 
[2778] 
[ 2672 ] 
[3068] 
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298 DATA 6020,02,80,02,02,02,00,02,00,02,0 
0,00,01,OE,04,00,02,7303 

299 DATA 6030,02,00,01,01,80,02,00,02,00,0 
2,00,02,00,00,DE,07,3B1E 

300 DATA 6040,02,00,00,02,80,02,00,02,00,0 
2,00,02,02,02,DE,04,2805 

301 DATA 6050,00,80,02,02,00,01,01,80,02,0 
0,02,DE,05,00,01,00,EAAA 

302 DATA 6060,00,01,00,00,02,02,00,00,02,8 
0,02,00,DE,05,02,00,7FA0 

303 DATA 6070,00,00,02,02,80,00,DE,07,02,0 
0,02,00,00,00,DE,07,DBFE 

304 DATA 6080,02,00,02,02,00,80,DE,06,00,0 

1, DE,09,00,DE,15,02,0242 

305 DATA 6090,03,15,OD,OB,00,01,DE,15,02,0 
0,02,80,DE,OA,00,01,729D 

306 DATA 6CA0,00,00,00,80,02,02,00,02,00,0 
0,DE,OC,02,00,00,02,011A 

307 DATA 6CB0,02,00,02,00,02,80,DE,OA,00,8 
0,02,00,02,02,01,02,C65A 

308 DATA 6CC0,00,02,00,01,DE,08,02,00,00,0 
2,00,02,02,00,02,00,44B2 

309 DATA 6CD0,02,DE,05,00,01,00,81,80,80,0 
2,00,02,00,02,02,00,EA9B 

310 DATA 6CE0,02,00,00,02,00,00,01,00,00,0 
0,01,80,80,02,00,02,2E2B 

311 DATA 6CF0,00,02,02,00,00,02,00,DE,07,0 
2,00,00,00,01,01,02,1504 

312 DATA 6D00,01,02,02,00,00,02,00,00,01,D 
E,09,00,80,02,00,02,7A2A 

313 DATA 6010,02,00,00,DE,OE,02,00,00,02,0 
2,80,01,DE,OF,00,80,8FD0 

314 DATA 6D20,DE,15,02,03,07,03,03,00,01,D 
E,12,02,00,00,02,80,378E 

315 DATA 6D30,00,00,01,DE,06,00,02,DE,05,8 
0,02,00,00,02,01,00,08C7 

316 DATA 6040,02,00,01,00,00,02,00,00,02,0 
E,05,80,02,00,00,02,1633 

317 DATA 6D50,DE,05,00,01,00,00,00,01,02,0 
2,00,00,DE,06,02,00,5602 

318 DATA 6D60,00,00,DE,04,02,00,01,00,02,0 
E,04,00,02,00,00,02,A409 

319 DATA 6070,02,00,00,01,02,80,81,00,00,0 
1,00,02,DE,04,00,02,0480 

320 DATA 6D80,00,80,02,02,80,00,00,DE,05,0 

2, DE,04,00,02,00,00,A7AC 

321 DATA 6D90,02,01,00,DE,07,02,80,80,02,0 
0,00,01,DE,04,00,02,17FF 

322 DATA 6DA0,00,01,02,02,DE,04,00,02,DE,0 
5,00,02,01,00,00,02,AC6C 

323 DATA 6DB0,02,00,00,02,02,01,00,01,00,0 
0,00,01,00,01,00,01,3514 

324 DATA 6DC0,DE,07,00,02,02,80,DE,08,02,D 

E, 05,00,DE,08,02,DE,7447 

325 DATA 6DDO,06,00,DE,07,02,DE,04,00,1D,0 
D,FF,FF,00,01,DE,15,CC66 

326 DATA 6DE0,02,80,DE,05,00,01,00,00,00,0 
1,00,00,81,00,00,00,9072 

327 DATA 6DF0,80,02,02,01,00,00,00,01,DE,0 
4,00,81,00,00,01,DE,B78C 

328 DATA 6E00,05,00,02,02,00,00,DE,OE,02,0 
0,00,02,02,00,00,02,5331 

329 DATA 6E10,DE,04,00,80,02,02,DE,05,00,0 
2,00,00,02,02,00,00,Al FF 

330 DATA 6E20,02,00,01,00,00,00,02,02,DE,0 
5,00,02,01,00,02,02,486F 

331 DATA 6E30,00,00,02,00,00,02,00,00,02,0 
2,00,01,02,80,80,02,4A82 

332 DATA 6E40,00,00,02,02,00,00,02,00,00,0 
2,00,00,02,02,00,00,6498 

333 DATA 6E50,02,80,80,02,00,00,02,02,00,0 
0,DE,04,02,00,00,02,3DA3 

334 DATA 6E60,02,00,00,DE,04,02,00,00,02,0 
2,00,00,00,80,DE,04.CA34 

335 DATA 6E70,00,02,02,00,00,00,01,DE,04,0 
0,02,02,80,DE,07,00,1916 

336 DATA 6E80,02,02,DE,08,00,DE,15,02,09,0 

F, 11,15,00,01,DE,15,9584 

337 DATA 6E90,02,DE,09,00,01,00,00,00,01,0 
0,80,80,81,02,02,DE,B46D 


[3548] 
[2970] 
[2675] 
[2458] 
[2716] 
[2505] 
[2428] 
[3522] 
[3672] 
[3440] 
[2153] 
[3879] 
[ 2930] 
[2943] 
[3121] 
[3378] 
[2882] 
[1942] 
[4257] 
[2222 ] 
[2361] 
[2304] 
[2422] 
[3131] 
[2738] 
[2787] 
[3168] 
[3291] 
[4067] 
[2695] 
[2492] 
[ 4070 ] 
[ 3855 ] 
[ 2255 ] 
[2118] 
[3711] 
[3374] 
[3347] 
[4347] 
[3126] 
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338 DATA 6EA0,06,00,01,00,01,00,00,00,01,0 [3147] 
0,00,80,81,80,02,02,2680 

339 DATA 6EB0,00,DE,OA,02,00,DE,04,02,00,0 [3228] 
0,02,02,DE,12,00,02,94EF 

340 DATA 6EC0,02,00,00,00,01,00,01,DE,OC,0 [2994] 
0,02,02,DE,04,00,DE,D45F 

341 DATA 6ED0,04,02,80,DE,04,02,80,DE,06,0 [3808] 
2,DE,12,00,02,02,DE,8FAC 

342 DATA 6EE0,06,00,01,00,01,00,01,00,01,0 [3692] 
0,01,00,00,00.DE,12,2B0D 

343 DATA 6EFO,02,01,00,DE,04,02,DE,07,80,8 [2656] 
1,DE,08,00,DE,15,02,4850 

344 DATA 6FOO,0D,03,03,03,00,01,DE,15,02,8 [2539] 
0,80,DE,10,00,02,02,8161 

345 DATA 6F10,00,DE,04,02,00,00,02,02,02,D [3469] 
E,08,00,02,02,00,DE,1171 

346 DATA 6F20,04,02,01,00,02,02,02,00,00,D [3028] 
E,04,02,00,00,02,02,8624 

347 DATA 6F30,00,00,00,02,02,00,00,02,02,0 [2276] 
2,00,00,02,02,00,01,3399 

348 DATA 6F40,00,00,02,02,00,02,00,02,02,D [3812] 
E,07,00,02,02,00,02,5C7A 

349 DATA 6F50,00,00,02,02,80,81,00,02,02,D [3211] 
E,04,00,01,00,00,02,500C 

350 DATA 6F60,02,00,01,00,00,02,02,00,02,0 [3124] 
0,02,02,00,00,DE,04,2CD9 

351 DATA 6F70,02,00,02,02,00,02,00,00,02,0 [2678] 
2,00,01,00,02,02,00,699D 

352 DATA 6F80,01,DE,04,02,80,02,02,DE,04,0 [4395] 
0,02,02,00,DE,04,02,7321 

353 DATA 6F90,00,00,DE,04,02,00,DE,04,02,0 [2437] 
0,00,02,02,80,80,DE,2AF4 

354 DATA 6FA0,10,00,DE,15,02,OF,OB,FF,FF,0 [3706] 
0,01,DE,16,02,00,00,27EA 

355 DATA 6FBO,01,00,80,02,02,02,DE,09,00,0 [4052] 
2,02,02,01,02,02,00,ODF5 

356 DATA 6FC0,02,02,00,00,02,00,00,01,00,0 [2950] 
1,00,00,00,02,02,00,914D 

357 DATA 6FDO,01,00,00,01,00,00,01,DE,04,0 [3377] 
0,02,02,02,00,00,00,4E70 

358 DATA 6FE0,02,02,02,00,02,02,00,02,02,0 [3667] 
0,02,00,02,01,00,00,DB55 

359 DATA 6FF0,02,80,00,00,02,02,02,00,00,0 [3453] 
0,02,80,02,02,02,01,147C 

360 DATA 7000,00,00,00,02,80,00,00,00,02,0 [3292] 
2,00,01,01,00,02,00,2198 

361 DATA 7010,00,80,'02,00,00,00,02,80,00,0 [3713] 
0,00,0 2,02,02,00,00,C418 

362 DATA 7020,00,02,00,80,80,00,00,02,00,0 [2333] 
2,80,00,00,00,DE,04,9334 

363 DATA 7030,02,00,00,02,02,00,00,02,00,0 [2356] 
1,00,01,00,02,80,00,3359 

364 DATA 7040,00,00,02,02,02,00,01,DE,05,0 [2765] 
0,02,00,00,00,01,00,AEC2 

365 DATA 7050,02,80,00,00,00,02,02,00,00,0 [2509] 
2,00,80,00,02,00,00,04A9 

366 DATA 7060,01,DE,04,00,02,80,00,00,DE,1 [3728] 
5,02,05,03,FF,FF,00,F87F 

367 DATA 7070,01,OE,15,02,DE,12,00,02,02,0 [3072] 
0,00,01,00,00,01,DE,3BFF 

368 DATA 7080,OC,00,02,02,00,02,01,02,01,D [2463] 
E,04,02,00,01,02,DE,5F78 

369 DATA 7090,06,00,02,02,00,02,00,00,01,0 [2416] 
0,00,00,02,00,00,02,6891 

370 DATA 70A0,DE,06,00,02,02,00,02,DE,06,0 [2768] 
0,02,00,00,02,DE,06,689C 

371 DATA 7080,00,02,02,00,DE,04,02,01,00,0 [2376] 
1,00,01,00,02,DE,06,24E4 

372 OATA 70C0,00,02,02,DE,05,00,01,00,00,0 [2960] 
2,01,00,02,00,00,DE,0A63 

373 DATA 70D0,04,80,02,02,DE,05,00,02,01,0 [2783] 
0,01,00,01,02,00,00,8684 

374 DATA 70E0,DE,04,80,02,02,DE,05,00,02,0 [3429] 
0,01,00,02,00,02,00,4349 

375 DATA 70F0,00,DE,04,80,02,02,DE,OA,00,0 [2580] 
1,00,00,00,DE,04,80,AD8E 

376 DATA 7100,DE,15,02,05,11,FF,FF,00,01,0 [2099] 
0,00,DE,12,02,00,00,D790 

377 DATA 7110,02,DE,07,00,01,00,81,DE,04,8 [2095] 
0,02,00,02,00,00,02,9665 

378 DATA 7120,00,02,02,01,02,01,02,02,00,0 [1881] 
E,06,02,00,02,00,00,F568 
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379 DATA 7130,02,00,02,DE,05,00,02,00,00,0 [3426] 
1,00,00,02,80,80,02,8F5E 

380 DATA 7140,00,00,02,00,02,DE,05,00,02,0 [2330] 
1,00,00,01,00,02,00,234F 

381 DATA 7150,00,02,00,00,02,00,DE,04,02,0 [2831] 
0,02,02,00,01,01,00,2967 

382 DATA 7160,00,02,00,00,02,00,00,02,DE,0 [4122] 
5,00,01,00,01,DE,05,FDED 

383 DATA 7170,00,02,00,00,DE,09,02,80,00,0 [1563] 
0,00,DE,05,02,00,00,DDC6 

384 DATA 7180,02,02,80,80,DE,04,00,DE,04,0 [3403] 
2,DE,08,00,02,02,80,A753 

385 DATA 7190,80,DE,07,00,01,01,01,DE,04,0 [3319] 
2,00,00,02,02,80,80,B36F 

386 DATA 71AO,DE,10,00,DE,15,02,17,OD,FF,F [2949] 
F,00,01,DE,16,02,DE,2544 

387 OATA 71B0,05,00,02,02,DE,OA,00,02,02,D [3378] 
E,04,00,02,01,00,01,0C11 

388 DATA 7 ICO,DE,05,00,02,00,02,02,00,02,0 [2748] 
2,DE,04,00,02,00,02,7664 

389 DATA 7 IDO,00,DE,05,02,00,00,00,02,00,0 [3315] 
2,02,80,80,80,00,00,OCF7 

390 DATA 71E0,00,01,00,00,00,01,00,00,01,0 [3337] 
0,00,02,00,02,02,80,4420 

391 DATA 71F0,80,80,00,02,01,02,00,02,01,0 [3535] 
0,02,02,00,02,00,02,228A 

392 DATA 7200,00,02,02,80,80,80,00,02,00,0 [2668] 
2,01,02,00,02,02,00,0282 

393 DATA 7210,01,00,00,01,00,02,02,80,80,8 [2608] 
0,DE,05,00,01,00,02,6796 

394 DATA 7220,02,00,02,02,00,02,00,02,02,0 [2581] 
E,04,00,02,01,02,02,5013 

395 DATA 7230,02,00,00,02,00,02,00,00,02,0 [2367] 
0,02,02,DE,12,00,DE,2FO7 

396 DATA 7240,04,02,DE,04,00,02,02,00,00,0 [3215] 
0,02,00,02,DE,04,00,0F39 

397 DATA 7250,DE,15,02,17,05,FF,FF,00,00,0 [1867] 
0,00,00,00,00,00,00,5A69 


398 DATA »ENDE* [502] 

399 adr = 8.6000:zeile=104:MEMORY adr-1 [2251] 

400 READ d$:IF d$="»ENDE*"THEN 411 [1165] 

401 pr=0 [117] 

402 FOR i=1 TO 16 [317] 

403 READ a$:a=VAL(" 8. " + a$) [883] 

404 POKE adr,a:adr=adr+1 [717] 

405 pr=pr*2:IF pr>65535 THEN pr=pr-65535 [2485] 

406 pr=UNT(pr)XOR a:IF pr<0 THEN pr=pr+655 [1890] 

36 

407 NEXT i [375] 

408 READ pr$ : pr2 = VAL( "8," + pr$ ) : IF pr2<0 THE [2610] 

N pr2=pr2+65536 

409 IF pr< >pr2 THEN PRINT"Pruefsummenfeh 1e [3615] 
r in Zei1e " ;zei1e:STOP 

410 zei1e=zeile+1:GOTO 400 [996] 

411 SAVE"COMPLEVE . BIN" , B , 8.6000,8.1258 [ 1628] 

412 PRINT d$:END [346] 


10 REM 

[272] 

20 REM Entcomp 

[812] 

30 REM 

[272 ] 

40 MEMORY &3FFF : LOAD" compl eve . b i n ", 8.6000 : q 
ad r= 8.6000 : zadr = 8.4000 

[2989] 

50 IF z ad r > 8.5CD3 THEN 80 

[1090] 

60 w=PEEK( qad r):IF w<>222 THEN POKE zadr.w 
:zadr=zadr+l:qadr=qadr+l:GOTO 50 

[3973] 

70 FOR i=1 TO PEEK(qadr+l):POKE zadr,PEEK( 
qadr+2):zadr=zadr+l:NEXT:qadr=qadr+3:GOTO 
50 

[3204] 

80 PRINT"Bitte Diskette bzw. Kassette mit 
LETSWORK.BIN einlegen und Taste druecken ! 

" : CALL 8.BB18 

[10514] 

9 0 SAVE” level . 1 et " , b , 8.4000,8.1CD4 
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BISTRO ’LA CUISINE’ 


Um das Finden von Zutaten und anderem 
zu erleichtern, steht hier nun... 


Der CPC als Küchenchef 

Das Programm ist nicht etwa eine Verwaltung für Mutters Küche, sondern 
ein Spielprogramm, in dem Joystick-Akrobaten ihr Geschick im Zubereiten 
von Mahlzeiten beweisen können, ohne daß gleich die ganze Wohnung 
abbrennt. 


Sie sind als Koch in einem beliebten Bi¬ 
stro angestellt und müssen sich dem An¬ 
drang der Gäste durch exaktes und 
schnelles Zubereiten der bestellten Ge¬ 
richte stellen. 

Nach dem Starten erscheint das Titelbild, 
in dem Sie Paul Combuse, der oberste al¬ 
ler Computer-Köche, begrüßt. Durch 
Drücken der Feuertaste oder COPY kann 
nun der Schwierigkeitsgrad des Spiels ge¬ 
wählt werden, von dem auch die Spiel¬ 
länge abhängt. Danach wird das Spiel- 
screen aufgebaut. Dieser ist in zwei 
Hauptteile geteilt, in der oberen Hälfte 
werden Mitteilungen ausgegeben, wäh¬ 
rend sich in dem unteren Teil der Ak¬ 
tionsbildschirm präsentiert. 

Die Aufgabe des Spielers ist es nun, mit 
dem Cursor die jeweiligen Schränke so¬ 
wie die benötigten Küchengeräte anzu- 
steuem und das bestellte Gericht zuzube¬ 
reiten. Dem Computer sind verschiede¬ 
ne Gerichte bekannt, deren Rezepte der 
Spieler im Hauptmenü, welches während 
der Cursorsteuerung eingeblendet ist, ab- 
fragen kann. Das aktuelle Rezept kann 
aufgerufen werden, aber auch das Aus¬ 
drucken einer Gesamtliste auf Bild¬ 
schirm oder Drucker ist möglich. Durch 
das Rezept erfahrt man nun, welche Zu¬ 
taten benötigt werden und wie sie weiter 
zubereitet werden müssen. Die angege¬ 
benen Zubereitungsschritte (zum Bei¬ 
spiel Bratzeit, Schneiden, Würzen und so 
weiter) müssen genaustens und in der 
aufgelisteten Reihenfolge durchgefühlt 
werden. Jede Abweichung von der Re¬ 


zeptvorgabe führt unweigerlich zur Ver¬ 
ärgerung des Gastes und somit zu Punkt¬ 
abzügen. Des weiteren läßt sich eine In¬ 
ventarangabe abrufen. 

Es können zwei Inventarteile aufgenom¬ 
men werden (Auch ein Computer-Koch 
hat nur zwei Hände!). Jeweils eine Zutat 
und ein Küchengegenstand. Dadurch ist 
volle Konzentration nötig, denn die Auf¬ 
nahme eines falschen oder ungewünsch¬ 
ten Teils kostet wichtige Zeit und das Ge¬ 
richt muß in den Mülleimer wandern. 
Hat man es nun geschafft, ein bestelltes 
Gericht zusammenzustellen und zu pla¬ 
zieren, kann man es mit dem Menüpunkt 
'Bestellung’ fertig aus der Küche heraus¬ 
geben. Danach gibt der Gast sein Urteil 
für das Gericht ab, und je nach Vollstän¬ 
digkeit äußert er sich. Verärgerung oder 
Zufriedenheit schlagen sich dann später 
auch in der Auswertung nieder. Die 
Spieldauer hängt vom jeweils gewählten 
Schwierigkeitsgrad ab: Bei Level 1 von 
7:30 bis 8:00, bei Level 2 von 12:00 bis 
12:45 und bei Level 3 von 19:00 bis 
20:00. Achtung, keine Echtzeit!!! Nach 
der jeweiligen Spielzeit bricht das Pro¬ 
gramm ab und eine Endauswertung Ihrer 
erreichten Punktzahl sowie ein Urteil 
über Ihre Fähigkeiten als Koch werden 
ausgegeben. Natürlich ist nicht alles so¬ 
fort zu finden beziehungsweise zu verste¬ 
hen. Da hilft eben nur ausprobieren. 
Wenn man einmal den Spielablauf ’drin’ 
hat, macht das Spiel riesigen Spaß und 
kann einen für Stunden an den Bild¬ 
schirm fesseln. 


Der Aufbau des Spielscreens 

AUSGABE-FENSTER: OBEN RECHTS 
Texte und Meldungen zu den Menüpunk¬ 
ten 'Kochrezepte’, 'Inventar' und 'Bestel¬ 
lungen' werden hierausgegeben. Eben¬ 
so werden hier die Inhalte der Schränke 
und die Funktionen der Küchengeräte an¬ 
gezeigt und können angewählt werden. 

BISTRO-FENSTER: OBEN LINKS 
Jeder Gast, der das Bistro betritt und eine 
Bestellung aufgibt, erscheint in diesem 
Fenster. 

BESTELLUNGEN-ANZEIGE: OBEN 
LINKS 

Die Anzahl der bisher eingegangenen Be¬ 
stellungen wird angezeigt. 

BESTELL UNGEN-ANZEIGE: MITTE 
Die Bezeichnung für das bestellte Gericht 
erscheint hier, und das jeweilige Kochre¬ 
zept kann nun abgefragt werden. 

KÜCHENUHR: MITTE LINKS 
Mit ihr läßt sich die Brat-, Koch- oder 
Backzeit überprüfen. Keine Echtzeit! 
WANDSCHRANK: UNTERE HÄLFTE 
LINKS 

Hier finden Sie Teller und Suppenschüs¬ 
seln. 

MEHRZWECKFACH 1: UNTEN LINKS 
Suppenextrakt für die Suppenzubereitung 
und Fertigsoßen befinden sich hier. 

BODEN SCHRANK: UNTEN LINKS 
Hier liegen Nudeln, Reis und Brötchen. 

GEFRIERFACH: UNTEN LINKS/MITTE 
Pizza, Baguette, Hamburger und Fisch¬ 
filet werden hier aufbewahrt. 
KÜHLSCHRANK: UNTEN LINKS/ 
METTE 

Hier kann man sich Hähnchen, Eier, 
Speck und Würstchen holen. 

HÄNGEFLASCHEN: UNTEN MITTE 
Aus den Spendern, die sich an der Wand 
befinden, kann wahlweise Senf oder 
Ketchup entnommen werden. 

ABLAGE: UNTEN MITTE 
Auf der Arbeitsfläche, die sich direkt ne¬ 
ben dem Spülbecken befindet, werden 
die 'manuellen' Arbeitsvorgänge Schnei¬ 
den, Würzen und Plazieren ausgeführt. 
Auch kann die Ablage von Teller und Zu¬ 
taten gereinigt werden; falls etwas Fal¬ 
sches plaziert wurde. 

SPÜLE: UNTEN MITTE 
Hier müssen Reis, Fischfilet und Hähn¬ 
chen vor der Weiterverarbeitung gewa¬ 
schen werden. 

BEHÄLTERDEPOT: UNTEN MITTE 
Töpfe und Pfannen, die zum Kochen be¬ 
ziehungsweise Braten benutzt werden, 
sind hier. 



Durch die grafische 
Untermalung kann 
man sich auch als 
Anfiinger in der 
Küche gut zurecht¬ 
finden 
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MEHRZWECKFACH 2: UNTERE 
HÄLFTE/OBEN RECHTS 
Gewürze, die zum Würzen der Zutaten 
benutzt werden, und ein Küchenmesser 
sind hier aufbewahrt. 

DUNSTABZUG: UNTERE HÄLFTE/ 
OBEN RECHTS 

Der Dunstabzug wird automatisch beim 
Betrieb des Herdes eingeschaltet, hat 
aber keine Funktion für den Spieler! 


HERD: UNTEN RECHTS 
Der Herd hat die Funktionen 'Braten’, 
'Kochen’ und 'Backen’. Mit einer Über¬ 
sichtskarte können die Herdplatten und 
der Backofen überprüft werden. 

MÜLLEIMER: UNTEN RECHTS 
Er ist die Notlösung für falsche oder ver¬ 
brannte Zutaten. Das gesamte Inventar 
wird ausgeleert. 

(Thorsten Mertsching/jb) 


Folgende Abkürzungen werden bei der Herdüber¬ 
sicht benutzt: 

BR - Braten (wenn gewählt) 

KO - Kochen 
BA - Backen 

* 06 * — Zeit bis Zutat fertig (hier 6 'Minuten’) 
*OK* - Zutat fertig und von Herd nehmen 
*VB* — Zutat verbrannt und muß in Mülleimer 
PI, F2, ... - Anzeige der Herdplatten (1-4) 

B5 — Backofen (Menünummer 5) 


für 464-664-6128 



1 REM La Cuisine 

2 REM Datalader fuer Cuisine.ste 

10 adr=&8FFF:FOR 1=1 TO 12:F0R j=l TO 60:R 
EAD b$:a=VAL("&"+b$):POKE adr+i*j,a:b=b+a: 
NEXT:PRINT 20 + i* 10:NEXT 

20 IF b= 500 7 8 THEN SAVE"CUISINE.STE",b,&90 
00.8.DF ELSE PRINT"ERROR!":STOP 
30 DATA 21,00,F8,DD,7E,00,3D,FE,00,28,07,0 
1,50,00,09,30,20,FC,16,00,DD,5E,02,1B,19,C 
9,FE,02,CO,CD,00,90,11,DE,90,06,04,7E,12,1 
3,23,7E,12,23,13, 7E, 12,13,23, 7E, 12,CD,29,B 

C, 13,7E,12,2B,13, 7E 

40 DATA 00,DD,00,FE,28,01,00,3D,FC,00,5E,1 

B, C9,02,CD,90,DE,06,7E, 13, 7E.23, 7E, 13, 7E,C 

D, BC,7E,2B,7E,2B,7E.2B,7E,CD,8C,10,C9,02,C 

D, 90,BE,06,CD,90,CD,90,CD,90,CD,90,29,CD,9 
0,CD,90,CD,90,CD,90 

50 DATA F8,00,00,01,09,FC,DD,1B,FE,CD,11,0 
6,12,7E,13,13,12,BC,12,7E,13,2B,12,BC,DA,0 
2,00,BE,04,90,7E,CD,23,90,BC,90,7E,CD,2B,9 
0,BC,C9,13,BD,Al,CI,02,00,DE,04,13,77,1A,1 
3,CD,13,2B, 77 , 1A,2B 

60 DATA DD,FE,01,3D,00,1B,02,90,06,13,23,1 
3,CD,7E,7E,7E,7E,BC,C9,CD,BE,CD,CD,CD,CD,2 
9,90,90,90,90,10,1A,BD,AE,FE,00,90,77, 77,7 
7,77,13,13, 13,2B,29,DA,55,AA,55,FF,FF,AA,5 
5,AA,00,00,00,00,00 

70 DATA 7E,28,09,00,19,CD,90,13,13,7E,13,7 

E, 12,CD,DA,CD,90,90,23,CD,BC 1 CD,7E,90,DA,4 

F, Al,FE,90,04,1A,77,CD,77,2B,2B,BC,CO.OO,5 
5,FF,FF,00,AA,00,00,00,00,00,00,00,00,00,0 
0,00,00,00,00,00,00 

80 DATA 00,01,FC,1B,CD,06,7E,13,BC,7E,2B,B 

C, 02,BE,90,CD,90,90,CD,90,C9,BD,CI,00,04,7 
7,13,13,77,2B, 13,55,00,FF,FF,55,00,00,00,0 
0,00,00,00,00,00,00,00,00,00,00,00,00,00,0 
0,00,00,00,00,00,00 

90 DATA 3D,00,DD,02,90,7E,23,7E,13,CD,FE,B 
E,23,90,BC,90,7E,C9,90,FE,DE,23,23,13,2B,7 
7,C9,AA,FF,FF,AA,00,00,00,00,00,00,00,00,0 
0,00,00,00,00,00,00,00,00,00,00,00,00,00,0 
0,00,00,00,00,00,00 


100 

DATA 

FE , 

30, 

1B, 

90 , 

13 , 

13 , 

7 E , 

7 E , 

BC , 

CD , 

CD 

CD, 

29,90, 

, 90 , 

1A, 

AE , 

00 , 

, 77 , 

, 77 , 

13 , 

13 , 

29 , 

55 , 

55 

PF , 

55,00, 

, 00, 

. 00 , 

00 , 

00 , 

00 , 

00 , 

00 , 

00 , 

00 , 

00 , 

00 

00, 

00,00, 

, 00 , 

, 00 , 

00 , 

00 , 

, 00 , 

00 , 

00 , 

00 , 

00 , 

00 , 

00 

00, 

00,00, 

, 00, 

,00, 

oo, 

00 








110 

DATA 

00 , 

, FC, 

FE , 

06 , 

, 13 , 

BC , 

13 , 

BC, 

00 , 

90 , 

23 

90 , 

2 B,C9, 

, Al , 

, 00 , 

13, 

1 3 , 

, 2B , 

, 2B , 

C9 , 

00 , 

FF , 

55 , 

00 

00, 

00,00, 

, 00 , 

, 00 , 

00, 

00, 

, oo , 

00 , 

00 , 

00 , 

00 , 

00 , 

00 

00, 

00,00, 

, 00 , 

, 00 , 

00, 

00, 

, oo, 

, oo, 

00 , 

00 , 

00 , 

00 , 

00 

00 , 

00,00, 

1 oo , 

, 00 , 

00, 

00 








120 

DATA 

28 , 

, oo , 

CD, 

13 , 

, 7 E , 

, 7 E , 

CD, 

CD, 

90 , 

CD, 

CD 

90, 

4F,FE, 

, 04 , 

, 77 , 

77, 

2 B , 

, CO , 

, 55 , 

FF , 

AA , 

00, 

00 , 

00 

00 , 

00,00, 

, 00 , 

, 00 , 

00 , 

00, 

,00, 

, 00 , 

00 , 

00 , 

00, 

00 , 

00 

00, 

00,00, 

, 00 , 

, 00 , 

OO, 

00 , 

,00, 

, oo, 

00, 

00 , 

00, 

00 , 

00 

00 , 

00,00. 

, 00 , 

, 00 , 

00, 

00 








130 

DATA 

07 , 

, 5 E , 

11 , 

23, 

, 13 , 

, 2 B , 

FE , 

CD, 

23 , 

CD, 

CO 

BD, 

CD,23, 

, CD, 

, 13 , 

10, 

00, 

, FF , 

, AA , 

00 , 

00 , 

00 , 

00 , 

00 

00 , 

00,00, 

, 00 , 

, 00 , 

00, 

00, 

, 00 , 

, 00 , 

00 , 

00 , 

00 , 

00 , 

00 

00 , 

00,00, 

, 00 , 

, 00 , 

00, 

00, 

, 00 , 

, 00 , 

00 , 

00 , 

00 , 

00 , 

00 

00 , 

00,00, 

, oo , 

, 00 , 

00, 

00 








140 

DATA 

oi , 

, 1B, 

06, 

13 , 

, 7E , 

, BC, 

BE , 

CD, 

90 , 

90 , 

BD 

00, 

77,13, 

, 2 B , 

, 55 , 

FF, 

5 5 , 

, oo, 

, 00 , 

00, 

00 , 

00 , 

00 , 

00 

00, 

00,00, 

, 00 , 

, 00 , 

00, 

00 , 

, 00 , 

, 00 , 

00, 

00 , 

00 , 

00 , 

00 

00, 

00,00, 

, oo , 

, oo , 

00 , 

00, 

, 00, 

, oo, 

00 , 

00 , 

00 , 

00 , 

00 

00 , 

00,00, 

, oo , 

, oo, 

00, 

00 









[ 957] 

[2560] 
[6386] 


[4654] 
[8984] 


[9102] 


[ 9391 ] 


[9851] 


[9686] 


[9784] 


[9685] 


[7227] 


[ 7689 ] 


[9459] 


[10307] 


[6739] 


Listing CUISINE 


10 • ************************ 

20'* LA CUISINE * 

30 1 *- * 

40 ' * ZEICHENSATZLADER * 

50 ' ************************ 

60 ’ 

70 MODE 1:BOROER 0:INK 0,0:INK 1,26:INK 2, 
12:INK 3,6:PAPER 2:PEN 1 

80 SYMBOL AFTER 32:WINDOW#1,8,33,5,16:PAPE 

R#1,3:CLS#1:PEN#1,1:LOCATE#1,3,2 

90 FOR i=1 TO 3:a=i*2:PLOT 110-a,142-a,i:D 

RAW 110-a,337+a:DRAW 528+a,337+a 

100 DRAW 528+a,142-a:DRAW 110-a,142-a:NEXT 

:PRINT#1,"Herz!ich Willkommen zu" 

110 PEN#1,2:LOCATE#1,8,5:PRINT#1,"*LA CUIS 
INE*":LOCATE#1,3,9:PEN#1,0 

120 PRINT#1,"Programm & Grafik 1988':LOCAT 
E#1,2,11 

130 PRINT#l,"von Thorsten Mertsching":s=6 
00:EVERY 40,1 GOSUB 180 

140 LOCATE 14,22:PRINT"LADEVORGANG...":FOR 
i = l TO 75:FOR j = l TO 9:READ a(j) 

150 sum=sum+a(j):NEXT:SYMBOL a(1),a(2),a(3 
),a(4),a(5),a(6),a(7),a(8),a(9) 

160 NEXT:PEN 1:IF sum<)51087 THEN CLS:PRIN 
T"FEHLER IN DATA!":STOP 

170 a=REMAIN(1):MEMORY &8FFF:LOAD"!CUISINE 
■STE":RUN"!CUISINE.PRG" 

180 s=s-10:SOUND 1,s,0,7:SOUND 2,s+2,0,7:R 
ETURN 

190 DATA 33,32,32,32,32,32,0,32,0,39,32,32 
,64,0,0,0,0,0 

200 DATA 44,0,0,0,0,0,32,32,64,63,32,80,16 
,32,32,0,32,0,46,0,0,0,0,0,0,32,0 
210 DATA 42,0,80,32,112,32,80,0,0,45,0,0,0 
,112,0,0,0,0 

220 DATA 48,32,80,80,80,80,80,32,0,49,32,9 
6,32,32,32,32,112,0 

230 DATA 50,32,80,16,32,32,64,112,0,51,32, 
80,16,32,16,80,32,0 

240 DATA 52,64,64,80,112,16,16,16,0,53,112 
,64,64,96,16,80,32,0 

250 DATA 54,32,80,64,96,80,80,32,0,55,112, 
16,16,32,32,64,64,0 

260 DATA 56,32,80,80,32,80,80,32,0,57,32,8 
0,80,48,16,80,32,0 

270 DATA 58,0,0,32,0,32,0,0,0,65,32,80,80, 
112,80,80,80,0 

280 DATA 66,96,80,80,96,80,80,96,0,67,32,8 
0,64,64,64,80,32,0 

290 DATA 68,96,80,80,80,80,80,96,0,69,112, 
64,64,96,64,64,112,0 

300 DATA 70,112,64,64,96,64,64,64,0,71,32, 
80,64,112,80,80,32,0 

310 DATA 72,80,80,80,112,80,80,80,0,73,112 
,32,32,32,32,32,112,0 

320 DATA 74,112,16,16,16,16,80,32,0,75,80, 
80,96,96,96,80,80,0 

330 DATA 76,64,64,64,64,64,64,112,0,78,80, 
112,112,80,80,80,80,0 

340 DATA 77,80,112,112,112,112,80,80,0,79, 
32,80,80,80,80,80,32,0 

350 DATA 80,96,80,80,96,64,64,64,0,81,32,8 
0,80,80,80,96,48,0 

360 DATA 82,96,80,80,96,96,80,80,0,83,48,6 
4,64,32,16,16,96,0 

370 DATA 84,112,32,32,32,32,32,32,0,85,80, 
80,80,80,80,80,32,0 

380 DATA 86,80,80,80,80,80,32,32,0,87,80,8 
0,80,80,112,112,80,0 


[ 768 ] 
[311] 

[1284] 
[ 1121 ] 
[ 768] 
[117] 
[2882] 

[ 5595 ] 

[3625] 

[4179] 

[3470] 

[4578] 

[4791] 

[3619] 

[4453] 

[4789] 

[6732] 

[2538] 

[2958] 

[2733] 

[2868] 

[2831] 

[2433] 

[2411] 

[ 1963] 

[2103] 

[1650] 

[2862] 

[2631] 

[2543] 

[3194] 

[ 2561 ] 

[2627] 

[3135] 

[2275] 

[2886] 

[2801] 

[2566] 
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390 DATA 88,80,80,112,32,112,80,80,0,89,80 [3081] 
,80,80,80,32,32,32,0 

400 DATA 90,112,16,16,32,64,64,112,0,165,2 [3607] 

55.153.153.255.255.153.153.255 

410 DATA 166,68,68,204,0,68,68,204,0,167,1 [2483] 
6,16,56,40,108,198,254,0 

420 DATA 168,28,62,28,28,8,60,126,94,169,3 [3633] 

1.127.127.255.255.255.255.255 

430 DATA 170,248,254,254*255,255,255,255,2 [3947] 

55,171,192,192,192,192,192,192,192,192 

440 DATA 172,128,128,192,192,192,192,192,1 [3914] 

92,173,192,192,192,192,192,192,128,128 

450 DATA 174,0,4,2,31,2,4,0,0,175,28,62,11 [3317] 

8,102,96,96,96,96 

460 DATA 176,56,84,84,16,16,0,0,0,177,56,4 [1623] 
0,40,40,56,56,56,56 

470 DATA 178,52,126,126,62,60,60,60,60,179 [2925] 
,60,60,90,126,126,90,36,60 

480 DATA 180,60,126,247,189,181,255,118,60 [2906] 
,181,0,96,245,245,96,0,0,0 

490 DATA 182,0,0,146,186,18,0,0,0,183,0,25 [2827] 
5,126,255,126,255,126,60 

500 DATA 184,0,0,62.62,28,62,62,28,185,0,0 [2829] 
,12,124,248,252,252,120 

510 DATA 186,2,3,3,0,0,0,0,0,187,0,126,70, [2235] 

70,114,126,78,126 

520 DATA 188,0,0,56,56,12,0,48,0,189,0,0,0 [2347] 
,0,24,126,255,255 

530 OATA 190,0,0,0,0,255,127,127,63,191,0, [1891] 

0,7,31,248,240,240,224 

540 DATA 192,0,0,0,0,0,85,85,0,193,0,0,112 [2732] 
,248,220,207,127,60 

550 DATA 194,0,0,0,0,126,90,86,126,195,0,0 [2864] 
,7,31,127,127,255,255 


10 ' ************************ 

20 • * LA CUISINE * 

30 ' *- * 

40 ' * HAUPTPROGRAMM * 

50 ' ************************ 

60 ' 

70 PAPER 0:FOR i = l TO 25:LOCATE 40,25:PRIN 
T" ":NEXT 

80 ENV 1,=9,2000:ENV 2,2,15,1,7,- 1,2,15,-1 

, 4 

90 agr=10:1tu=l:sehr(1)=2:sehr(2)=2:RANDOM 
IZE TIME* 4 

100 me 1d$(1) = "MIT WAS DENN?":me 1d$(2) ="WOR 
AUF DENN?“:me1d$(3)="NICHT NOETIG!" 

110 DIM inf${15,8),f(15,20),xcol (17) , nr ( 13 
),bz$(13),zub$(10,11), df $ (10,11) 

120 DIM ob(13),un(13),11(13),re(13),1na(13 
),in$(13,4),wt(13,4),zt(9,4) 

130 zt(2,l)=2:zt(2,2)=l:zt(3,l)=4:zt(3,2)= 
4:zt(6,l)=4:zt(6,2)=2 

140 zt(6,3)=l:zt(6,4)=3:zt(7,l)=4:zt(7,2)= 
4:zt(7,3)=3:zt(7,4)=4 
150 : 

160 ' *** Titel bild *** 

170 : 

180 MODE 0:INK 0,0:BORDER 2:PAPER 0:snd=-l 
190 RESTORE 5760:FOR i=l TO 15:READ col:IN 
K 1,col:NEXT 

200 x=3:y=7:GOSUB 5440:x=18:GOSUB 5440:FOR 
i=0 TO 4 STEP 2:j=i/2+l 
210 PLOT i,i,11+j:DRAW i,399-i:DRAW 639-i, 
399-i:DRAW 639-i,i:DRAW i ,i :NEXT 
220 a$="THOM SOFTWARE PRAESENTIERT":xw=4:y 
w=3:p=12:GOSUB 5340 

230 FOR i=0 TO 6:READ urt$(i>:NEXT:LOCATE 
6,8:PEN 10:PRINT"LA CUISINE" 

240 LOCATE 5,9:PEN 5:PRINT STRINGS(11,154) 
CHR$(152):i=1 

250 a$="COPYRIGHT '89 BY":xw=7:yw=13:p=13: 
GOSUB 5340 

260 a$="PC AMSTRAD INTERNATIONAL":xw=5:yw= 
15:GOSUB 5340 


[ 768 ] 
[311] 

[ 1284] 

[ 1465 ] 

[ 768 ] 
[117] 

[2607] 

[1338] 

[3726] 

[4766] 

[3719] 

[ 3991 ] 

[4712] 

[4360] 

[174] 

[ 600] 
[174] 
[3161] 
[3174] 

[3637] 

[4040] 

[3009] 

[3213] 

[3327] 

[3696 ] 

[4402 ] 


Listing CUISINE 


270 FOR i=1 TO 13 : nr(i ) = i :READ bz$(i),ob(i 
) , un (1 ) , 1 1 (1 ) , re( i ) 

280 FOR j =ob(i ) TO un(i ):FOR k = li(i) TO re 
(i ) : f(j-10,k)=nr(i}:NEXT k,j 

290 READ ina(i):FOR j=l TO ina(i):READ in$ 
(i,j):NEXT j,i 

300 FOR i = 1 TO ag r:READ rp$(i ) , zbs(i ):FOR 
j=l TO zbs(i):READ zub$(1,j):NEXT j,i 
310 a$="DRUECKE COPY FUER KEYBOARD SPIEL": 
xw=3:yw=20:p=9:GOSUB 5340 

320 a$="ODER FEUERKNOPF FUER JOYSTICK SPIE 
L":xw=2:yw=22:GOSUB 5340 

330 IF i/2=INT(1/2) THEN sd=5:a$=" ":b$=CH 

R$(178) ELSE a$=CHR$(178):b$=" ":sd=l 
340 INK 10,RND*27:i=i+1:PEN 1:LOCATE 3,6:P 
RINT a$:LOCATE 18,6:PRINT b$ 

350 LOCATE 3,7:PRINT b$:LOCATE 1B,7:PRINT 
a$ 

360 SOUND 7,1000/sd,25,,2,,3:FOR p=1 TO 40 
370 IF NOT INKEY(9) THEN 1in=8:rec=1:vor=0 
:hin=2:feu=9:GOTO 390 

380 IF NOT INKEY(76) THEN 1in=74:rec=75:vo 
r=72:hin=73:feu=76 ELSE NEXT:GOTO 330 
390 INK 10,23:FOR i=90 TO 40 STEP -5:SOUND 
1,i,1,15:NEXT 

400 WINDOW#1,2,19,20,24:PAPER#1,3:CLS#1:PL 
OT 30,15,5 

410 DRAW 30,97:DRAW 610,97:DRAW 610,15:DRA 
W 30,15 

420 a$="*# WAEHLE SCHWIERIGKEITSGRAD **": 
xw=3:yw=18:p=12:GOSUB 5340 

430 a$="1 - LEVEL 1: LEICHT":xw=5:yw=21: 

p=13:GOSUB 5340 

440 a$="2 -— LEVEL 2: SCHWIERIG":yw=22:p= 
14:GOSUB 5340 

450 a$="3 - LEVEL 3: HART":yw=23:p=15:GO 

SUB 5340 

460 a$=INKEY$:IF a$<"r' OR a$>"3" THEN 460 
ELSE lev=VAL(a$) 

470 SOUND 7,1ev*80,50,,1:IF lev-1 THEN st= 
7:mi=30:el=8:e2=0 

480 IF 1ev=2 THEN st=12:mi=0:e1=12:e2=45 
490 IF 1ev= 3 THEN st=19:mi=0 : el = 20:e2 = 0 
500 OUT &BC00,1:FOR i=40 TO 0 STEP -l:OUT 
SBDOO,i :FOR j = l TO 20:NEXT j , i 
510 : 

520 ' *** Pausenmelodie *** 

530 : 

540 RESTORE 590:EVERY 10,1 GOSUB 550:GOTO 
4100 

550 al=SQ(1):a2=SQ(2):IF al>0 AND a2>0 THE 
N GOSUB 570 
560 RETURN 

570 READ ton:IF ton=999 THEN RESTORE 590:G 
OTO 570 

580 SOUND 2,ton,20,,1:SOUND 1,ton,1,,4,,10 
:RETURN 

590 DATA 239,179,179,142,159,179,159,142,1 
79,119,106,119,179 

600 DATA 159,159,142,179,119,239,179,999 
610 : 

620 ' *** Steuerung *** 

630 : 

640 xp=(x-1)*4+1:yp=y:IF NOT nix THEN CALL 
S901A,xp,yp:CALL S904C,xp,yp 
650 IF NOT INKEY(1in) AND xp>l THEN CALL & 
908B,xp,yp:xp=xp-4:GOTO 740 

660 IF NOT INKEY(rec) AND xp<77 THEN CALL 

S908B,xp,yp:xp=xp+4:G0T0 740 

670 IF NOT INKEY(vor) AND yp>10 THEN CALL 

S908B,xp,yp:yp=yp-l:GOTO 740 

680 IF NOT INKEY(hin) AND yp<25 THEN CALL 

S908B,xp,yp:yp=yp+1:GOTO 740 

690 IF NOT INKEY(feu) THEN feuer=-1:SOUND 

2,200,1,15:GOTO 760 

700 IF NOT INKEY(37) THEN mnK=-l:GOTO 760 
710 IF NOT INKEY(35) THEN mnI=-l:GOTO 760 
720 IF NOT INKEY(54) THEN mnB=-l:GOTO 760 
730 GOTO 650 

740 CALL S901A,xp,yp:CALL S904C,xp,yp 
750 FOR ip=1 TO 10:NEXT 

760 y=yp:x=(xp-l)/4+l:xpo=x:ypo=y:nix=0 
770 IF mnK THEN mnK=0:G0T0 3150 
780 IF mnl THEN mnI=0:GOTO 3600 
790 IF mnB THEN mnB=0:GOTO 3690 
800 IF NOT feuer THEN 650 


Listing CUISINE 


[3837] 

[4485] 

[3013 ] 

[6108] 

[ 4492 ] 

[3488 ] 

[ 4549 ] 

[3052] 

[2105] 

[ 2295 ] 

[ 2992 ] 

[3055] 

[1430] 

[3695] 

[1590] 

[ 3643 ] 

[3083] 

[ 2 726 ] 

[ 3094 ] 

[2452] 

[4968] 

[1430] 

[1284] 
[4563] 

[174] 
[933 ] 
[174] 
[1435] 

[2629] 

[ 555 ] 
[2791] 

[4598] 

[2346] 

[1524] 

[174] 

[1376] 

[ 174 ] 
[4565] 

[3411] 

[2369] 

[3168] 

[3111] 

[1978] 

[1876] 
[1696] 
[2029] 
[371] 

[ 1640 ] 

[469] 

[4191] 

[1577] 

[1734] 

[1605] 

[195] 
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810 : 

820 ‘ *** Einsicht Kueche *** 

830 : 

840 feuer=0:IF f(y-10,x)=0 THEN nix=-l:GOT 
0 640 ELSE f = f(y-10,x ) 

850 IF f=13 THEN 1250 

860 IF f = 4 OR f=5 OR f>9 THEN 1320 

870 WINDOW#7,li(f),re(f),ob(f),un(f):PAPER 

#7,12:CLS# 7 

880 xl=11(f): x2=re(f):yl=ob(f):y2=un(f) 

890 DI:xa=xl*32-32:xe=x2*32-2:ya=400-yl*16 
+16:ye=400-y2*16+4 

900 FOR i=1 TO 2:P10T xa,ya-i*2,7:DRAW xe, 
ya-i*2 

910 PLOT xa,ye-i*2:DRAW xe,ye-i* 2:PLOT xa + 
i*2,ya-2:DRAW xa+1*2,ye 

920 PLOT xe-i*2,ya-2:DRAW xe-i*2,ye:NEXT:E 
930 IF f>l THEN 980 

940 PLOT 8,148,13:DRAW 84,148:cw=1:PR I NT C 
HR$(23)CHR$(cw); 

950 TAG:tg=-l:PLOT -2 ,-2, 13:MOVE 14,130:PR 
INT CHR$(183); 

960 MOVE 48,130:PRINT CHR${183);:MOVE 14 1 
64:PRINT CHR$(184); 

970 MOVE 48,164:PRINT CHR$(184);:GOTO 1280 
980 IF f < > 3 THEN 1060 

990 PLOT 10,50:DRAW 86,50,10:PLOT 0 -2 4P 
RINT CHR$(23)CHR$(1); 

1000 cw=1:TAG:tg=-1:MOVE 15,67:PRINT CHR$( 

187);:PLOT 0,-2,13:MOVE 15,67 

1010 PRINT CHR$(188);:PLOT 0,-2,5:M0VE 42, 

67:PRINT CHR$(187);:PLOT 0,-2,7 

1020 MOVE 42,67:PRINT CHR$(188);:PLOT 0,-2 

,6:MOVE 8,35:PRINT CHR$(187); 

1030 PLOT 0,-2,3:MOVE 8,35:PRINT CHR$(188) 

;:PLOT 0,-2,5:MOVE 40,35 
1040 PRINT CHR$(187); 

1050 GOTO 1280 

1060 IF f < > 6 THEN 1140 

1070 PLOT 136,70:DRAW 214,70,15:PLOT 136,4 
0:DRAW 214,40 

1080 PLOT 0,-2,11:PRINT CHR$£ 23)CHR$( 1 ) ; :c 
w=l:TAG:tg=-l 


[174] 

[1743] 

[174] 

[3734] 

[ 596 ] 

[2004] 

[3800] 

[2233] 

[3243] 

[2678] 

[4023] 

[2814] 

[ 809 ] 
[3336] 

[3463] 

[ 3825 ] 

[2414] 
[930 ] 

[3880] 

[3671] 

[ 4455 ] 

[4673] 

[ 3099 ] 

[1213 ] 

[ 347] 

[ 567 ] 

[3620] 

[2724] 


1090 MOVE 140,56:PRINT CHR$(185);:MOVE 160 [4094] 
,86:PRINT CHR$(185) ; 

1100 PLOT 0,-2,13:MOVE 140,56:PRINT CHR$(1 [3344] 
86);:MOVE 160,86:PRINT CHR$(186); 

1110 PLOT 0,-2,11:MOVE 1 7 6,5 6:PRI NT CHR$(1 [2772 ] 
93); :PLOT 0 ,-2 , 13 


1120 MOVE 140,34:PRINT CHR$(192) ; :PLOT 0,- [ 3796] 
2,4:MOVE 178,34:PRINT CHR$(194); 

1130 GOTO 1280 [347] 

1140 IF f < > 7 THEN 1200 [1132] 

1150 PLOT 0,-2,5:ew=1:PRINT CHR$(23)CHR$(1 [2916] 
);:TAG:tg=-1 

1160 MOVE 145,114:PRINT CHR$(187);:PLOT 0, [4033] 

-2,13:MOVE 145,114:PRI NT CHR$(188); 

1170 PLOT 0,-2,2:MOVE 177, 114:PRI NT CHR$(1 [3688] 
8 7) ; :P LOT 0,-2, 10:MOVE 177,114 

1180 PRINT CHR$(188); [1241] 

1190 GOTO 1280 [347] 

1200 IF f < > 8 THEN 1250 [615] 

1210 cw=1:LOCATE 1,1:PRINT CHR$(23)CHR$(1) [2863] 
;:T AG:tg = -l 

1220 PLOT 0,-2,8:MOV E 272,50:PRINT CHR$(18 [4283] 
9);:PLOT 268,32,5:PLOT 268,30 

1230 PLOT 0,-2:MOVE 272,34:PRINT CHR$(143) [3695] 
;:PLOT 304,32:PLOT 304,30 

1240 PLOT 0,-2,8:MOVE 310,34:PR1NT CHR$(19 [5299] 
0);:MOVE 340,34:PRINT CHR$(191); 

1250 IF f < >13 THEN 1280 [ 1238] 

1260 IF i tu= 1 THEN PRINT CHR$(7);:nix=-1:G [1727] 
OTO 640 

1270 LOCAT E#1,20,12:PRINT#1,CHR$(22)CHR$(0 [ 2922 ] 
);CHR$(165);CHR$(22)CHR$(1); 

1280 TAGOFF:tg=0:cw=0:LOCATE 1,1:PRINT CHR [2939] 


$(2 3)CHR$(cw); 

1290 : [174] 
1300 1 *** Inhalte auflisten *** [900] 
1310 : [174] 
1320 IF f > 9 THEN 1350 [ 688] 


1330 PAPER#4,12:CLS#4:p=8:a$="INHALT "+bz$ [3595] 
(*)+":" 


1340 xw=9:yw=2:GOSUB 5340:xw=10:GOTO 1360 [2871] 
1350 PAPER#4, 13:CLS#4:p=8:a$="FUNKT IONEN " [ 4658 ] 
+bz$(f)+":":xw=9:yw=2:GOSUB 5340 


Listlng CUISINE 


1360 xw=10:FOR s=l TO ina(f):a$=in$(f,s):p 
=10:yw=yw+l:GOSUB 5340 

[3695] 

1370 NEXT:yw=yw+l:p=5:a$="*RAUS*":GOSUB 53 
40:m a xi=ina(f) + 2 

[ 5092 ] 

1380 x=xpo:y=ypo:tg=0:TAGOFF:cw=0:PRINT CH 
R$(2 3)CHR$(0); 

[3161 ] 

1390 : 

[174] 

1400 * * * Steuerung Untermenue *** 

[2617] 

1410 : 

[174] 

1420 yf=2:yfa=2:PEN#4,15:LOCATE#4,1,yf:PRI 
NT#4,CHR$(174); 

[2244] 

1430 WHILE INKEY$<>" M :WEND 

[1786] 

1440 IF INKEY(vor) THEN 1460 ELSE yf=yf-l: 
IF yf < 2 THEN yf = 2 

[3732] 

1450 GOTO 2710 

[ 397] 

1460 IF INKEY(hin) THEN 1480 ELSE yf=yf+l: 
IF yf>maxi THEN yf=maxi 

[2755] 

1470 GOTO 2710 

[ 39 7 ] 

1480 IF INKEY(feu) THEN 1440 ELSE SOUND 2, 
250,1,15 

[2289] 

1490 IF yf<maxi THEN 1640 

[ 1654 ] 

1500 CLS#4:PRINT CHR$(22)CHR$(1); 

[1510] 

1510 set=-1:IF f=13 THEN PEN 3:L0CATE 20,2 
1:PRINT CHR$(195);:GOTO 1530 

[2622] 

1520 DI:ON f GOSUB 4390,4460,4460,4780,478 
0,4300,4300,4540,4640 

[2599] 

1530 PRINT CHR$(22)CHR$(0); 

[1383] 

1540 EI:GOSUB 1580:d1a=0:nix=-1:GOTO 640 

[ 1972 ] 

1550 : 

[174] 

1560 ' *** Hauptmenue **# 

[ 954] 

1570 : 

[174] 

1580 PAPER#4,7:CLS#4:p=13:xw=10:yw=2:a$="B 
ISTRO 'LA CUISINE 1 ":GOSUB 5340 

[5034] 

1590 p=11:xw=11:yw=4:a$="K KOCHRE2EPTE":GO 
SUB 5 340:yw= 5 

[5263] 

1600 a$="I INVENTUR":GOSUB 5340:yw=6:a$="B 
BESTELLUNGEN":GOSUB 5340:RETURN 

[ 4051 ] 

1610 : 

[174] 

1620 ' *** Nehmen *** 

[972 ] 

1630 : 

[174] 

1640 IF f=4 OR f=5 OR f>9 THEN 1840 ELSE y 
neu = y f-1 

[3893] 

1650 IF itu > 2 THEN 1800 

[ 1262 ] 

1660 IF wt(f,yneu)=0 THEN wt(f,yneu)=-1 EL 
SE 2710 

[ 1996] 

1670 IF bmk(1)=2 AND (f<2 OR f=8 OR f = 9) T 
HEN 1820 

[1620] 

1680 IF f<2 OR f = 8 OR f = 9 THEN bmk(itu)=2: 
IF f=l AND yf=2 THEN ssl=-l:GOTO 1760 

[5831 ] 

1690 IF bmk(1 tu) = 2 THEN IF f=l AND yf=3 TH 
EN teiler=-l:GOTO 1760 ELSE 1760 

[4300] 

1700 IF bmk(1)=1 AND (f>l AND f<8) THEN 18 
20 

[ 1449 ] 

1710 IF f>l AND f < 8 THEN bmk(itu) = 1:zt = zt( 
f,yneu):nm$=in$(f,yneu):nmset=0 ELSE 1760 

[4973] 

1720 IF f=yf-1 AND f=3 THEN 1760 

[ 1425 ] 

1730 FOR 1=1 TO 10:IF in$(f,yf-1)<>zub$(i, 
1) THEN NEXT:GOTO 1760 

[3577] 

1740 IF num=10 THEN 1820 ELSE num=num+l 

[1990] 

1750 mk(num)=i:auf=l:df$(num,auf)=zjb$(i,1 
):dl(1tu)=num:d2(itu)=auf:nmset=-l:nm$="" 

[4019] 

17 60 LOCATE#4,2,yf:PRINT#4,STRING$(9,32 ) : 
SOUND 2,40,1,15 

[3265] 

1770 IF f=9 THEN IF yf=2 THEN wuerz=-l ELS 

E messer=-l 

[ 272 1 ] 

1780 IF f=8 THEN IF yf=2 THEN topf=-l ELSE 
pfanne=-l 

[ 1028 ] 

1790 ivt$(itu)=in${f,yneu):itu=itu+1:GOTO 
2710 

[1124 ] 

1800 LOCATE #4,11,6:PRINT#4, " ": LOCATE#4, 1, 

1:PRINT#4,CHR$(8) 

[ 2929 ] 

1810 a$="HAENDE VOLL!":xw=9:yw=2:p=4:GOSUB 
5340:GOTO 1440 

[ 2828 ] 

1820 L0CATE#4,11,6:PRINT#4," ":LOCATE#4,1, 

1:PRINT#4,CHR$(8) 

[ 2929 ] 

1830 a$="NICHT MOEGLICH!":xw=9:yw=2:p=5:GO 
SUB 5340:GOTO 1440 

[3894] 

1840 IF f > 4 THEN 1880 ELSE yw=yw+l:IF bmk( 

1)=1 THEN n=1 ELSE n=2 

[3398 ] 

1850 IF d2(n)<1 THEN a$=me1d$(2):GOTO 2030 
ELSE a$="OK! SENF ENTNOMMEN!" 

[3955] 

1860 xw=9:yw=6:p=3:GOSUB 5340:p$="SENFGO 
SUB 3060:WHILE INKEY$<>"":WEND 

[5163] 

1870 yneu=l:GOTO 1790 

[1113] 

1880 IF f > 5 THEN 1920 ELSE yw=yw+l:IF bmk( 
1)=1 THEN n=l ELSE n=2 

Listing CUISINE 
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1890 IF d2(n ) < 1 THEN a$=me1d$(2):GOTO 2030 [ 4229 ] 
ELSE a$="OK! KETCHUP ENTNOMMEN!" 

1900 xw=9:yw=6:p=3:GOSUB 5340:p$=“KETCHUP" [4648] 

:GOSUB 3060:WHILE INKEY$< >"":WEND 

1910 yneu=l:GOTO 1790 [1113] 

1920 IF f>10 THEN 2240 ELSE frei=-l [1261] 

1930 IF bmk(1)=1 THEN a1$=ivt$(1):dw=1 ELS [3094] 
E al$=ivt$(2):dw=2 

1940 p=pvo11+1:IF yf=4 THEN sp1(5)=d1Cdw): [6398] 

sp2(5)=d 2(dw) ELSE spl(p)=d1(dw) :sp2(p)=d2 

(dw) 

1950 IF y f > 2 THEN 2050 [ 564] 

1960 IF itu=1 OR (itu=2 AND bmk(l)=2) THEN [2391] 
1440 

1970 CLS#4:xw=9:yw=4:p=7 [1681] 

1980 IF pvO11=4 THEN a$="ALL E PLATTEN BELE [5138] 
GT!":GOSUB 5340:GOTO 2040 

1990 IF NOT pfanne THEN a$=me1d$(1):GOTO 2 [4518] 
030 ELSE a$=a1$:GOSUB 5340 

2000 t$=LEFT$(al$,1):IF t$="N" OR t$="E" T [4062] 
HEN a$="WERDEN" ELSE a$="WIRD" 

2010 a$=a$+" GEBRATEN!":yw=5:p=9:GOSUB 222 [2147] 

0 : 1 tu=l:pfanne= 0 :wt( 8 , 2)=0 

2020 FOR 1 = 1 TO 2:ivt$(1 ) = "":bmk(i )=0:NEXT [2149] 
:IF NOT nmset THEN GOSUB 3110 


2030 GOSUB 5340 [879] 

2040 WHILE INKEY$<>"":WEND:dp=0:GOTO 4040 [1847] 

2050 IF yf > 3 THEN 2140 [603] 

2060 IF 1tu = l OR (itu=2 AND bmk(l)=2) THEN [2391] 
1440 

2070 CLS#4:xw=9:yw=4:p= 7 [1681] 


2080 IF pVO11=4 THEN a$="ALLE PLATTEN BELE [5138] 
GT!":GOSUB 5340:GOTO 2040 

2090 IF NOT topf THEN a$=me1d$(1):GOTO 203 [3145] 
0 ELSE a$=a1$:GOSUB 5340 

2100 t$=LEFT$(al$,1):IF t$="N" OR t$="E" T [4062] 
HEN a$="WER DEN“ ELSE a$="WIRD" 

2110 a$ = a$ + " GEKOCHT!":yw=5:p=9:GOSUB 2220 [3805] 
:itu=1:tOpf=0:wt(8,1)=0 

2120 FOR 1=1 TO 2:1vt$(1)="":bmk(i)=0:NEXT [2149] 
;IF NOT nmset THEN GO SKI B 3110 

2130 GOTO 2030 [365] 

2140 IF y f > 4 THEN 2740 [860] 

2150 IF 1tU=1 OR (1tu=2 AND bmk(l)=2) THEN [2391] 
1440 

2160 t$=LEFT$(al$,2):IF t$<>"PI" AND t$<>" [4158] 

BA“ AND t $ < > " HA" THEN 1440 

2170 CLS#4:xw=9:yw=4:p=7:a$=al$ [1719] 

2180 IF bO$ < >"" THEN a$ = "BACKOFEN IST BELE [4156] 
GT !":GOSUB 5340:GOTO 2040 

2190 IF bm k(1) = 1 THEN 1vt${1)="":bmk(1)=0: [ 5208] 

11 u = 1 ELSE 1vt$(2) = "":bmk{2)=0:itu = 2 
2200 GOSUB 5340:a$="WIRD GEBÄCKEN!":yw=5:p [4076] 
=9:IF NOT nmset THEN G05UB 3110 

2210 bo$=LEFT$(al$,8)+"-BA":starti5)=mi:da [4559] 
uer(5)=zt:GOTO 2030 

2220 pvol1=pvo11+1:plat$(pvo11)=LEFT$(al$, [4826] 
8)+"-"+LEFT$(1n$(f,yf-l),2) 

2230 start(pvol1)=m1:dauer(pvo11)=zt:pgk(p [4145] 
voll )=gk:RETURN 

2240 IF bmk(1)=1 THEN a$=1vt$(1):n=1 ELSE [2596] 
a$=1vt$(2):n=2 


2250 IF f>ll THEN 2320 [1042] 

2260 IF itu=1 OR (itu=2 AND bmk(l)=2) THEN [2391] 
1440 

2270 t$=LEFT$(a$,2):IF t$="FE" OR t$="SU" [3419] 

THEN 1440 

2280 CLS#4:xw=9:yw=4:p=7:GOSUB 5340 [2086] 

2290 IF t$="EI" OR t$="NU" THEN a$="SIND" [4003] 
ELSE a$="I ST" 

2300 a$=a$+" GEWASCHEN!":yw=5:p=9:p$=" -WA [2492] 
SCHEN":GOSUB 3060 

2310 GOTO 2030 [365] 

2320 IF f >12 THEN 2640 [714] 

2330 IF bmk(1)=1 THEN a1$=1vt$(1):dw=1:n=2 [2283] 
ELSE al$=ivt$(2):dw=2:n=l 
2340 spl=dl(dw):sp2=d2(dw) [810] 

2350 IF yf < 5 THEN IF itu=l OR (itu = 2 AND b [2290] 
mk (1)=2) THEN 1440 

2360 IF yf>2 THEN 2430 [646] 

2370 IF NOT messer THEN CLS#4:a$=me1d$(1): [3258] 

yw=7:xw=10:GOSUB 5340:G0T0 3410 

2380 messer=0:CLS#4:xw=9:yw=4:p=7:GOSUB 53 [1871] 
40 

2390 t$=LEFT$(a$,2):IF t$="EI" OR t$="NU" [3132] 

THEN a$="SIND" ELSE a$="IST" 


Listlng CUISINE 


2400 1vt$(n)="":wt(9,2)=0:n=spl 

2410 a$=a$+" GESCHNITTEN!":yw=5:p=9:p$=" - 

SCHNEIDEN":IF t$="BR" THEN IF NOT nmset TH 

EN GOSUB 3110 

2420 GOTO 2480 

2430 IF y f > 3 THEN 2500 

2440 IF NOT wuerz THEN CLS#4:a$=me1d$(1):y 
w=7:xw=10:GOSU8 5340:GOTO 3410 
2450 wuerz=0:wt(9,1)=0:CLS#4:xw=9:yw=4:p=7 
:GOSUB 5340 

2460 t$=LEFT$(a$,2):IF t$="EI" OR t$="NU" 
THEN a$="SIND" ELSE a$="IST" 

2470 1vt$(n) = "":n = spl:a$ = a$+" GEWUER2T!":y 
w=5:p=9:p$=" -WUERZEN":IF t$="HA" THEN d2( 

n)=d 2 (n)+l 

2480 GOSUB 3060:GOSUB 3080 

2490 GOTO 2030 

2500 IF y f > 4 THEN 2680 

2510 IF df$(1,1 ) = "" THEN v$ = df$(2,l) ELSE 
v$=df$( 1 , 1 ) 

2520 IF v$="REIS" THEN supp=l ELSE supp=0 
2530 IF t3h THEN IF bmk(l)=l THEN dw=l:GOT 
0 2570 ELSE dw=2:G0T0 2570 

2540 IF s u p p=1 THEN IF ss1=0 THEN 2560 ELS 
E 2570 

2550 IF teilen THEN 2570 

2560 CLS#4:a$=me1d$(2):yw=7:xw=10:GOSUB 53 
40:GOTO 3410 

2570 IF df$(0,l)=" M THEN cz=l 

2580 CLS#4:xw=9:yw=4:p=7:GOSUB 5340:n=spl: 

tsh = -l:FOR 1 = 1 TO sp2 + 1 

2590 IF df$(n,i)<>"" THEN df$(0,dfw+cz)=df 
$(n,1 ) :cz = cz+1 

2600 df$(n , 1 ) = "" :NEXT:IF dfw>ll THEN 1830 
2610 t$=LEFT$(a$,2):dp=-l:nmset=0 
2620 IF t$="EI" OR t$="NU" THEN a$="SIND" 
ELSE a$="IST" 

2630 a$ = a$+" PLATZ IERT!":yw=5:p = 9:GOSUB 53 
40:'GOSUB 3050 

2640 1tu=l:1vt$(1)="":bmk(l)=0:1vt$(2)="": 
bmk(1)=0:IF dp THEN 2040 ELSE SOUND 7,2000 
,50,,1,,4 

2650 tQpf=0:pfanne=0:te1len=0:ss1=0 
2660 IF bef THEN FOR i=0 TO 4:FOR j=l TO 1 
l:df$(1,j)="":NEXT j:dl(i)=0:d2(1)=0:NEXT: 
bef=0:nmset=0:cz=l:num=0 

2670 FOR 1=1 TO 13:FOR j=l TO 4:wt(i,j)=0: 
NEXT j,1:IF dla THEN 1540 ELSE 1500 
2680 CLS#4:xw=9:yw=4:p=6:a$="ABLAGE IST GE 
SAEUBERT!":GOSUB 5340 

2690 te11e r = 0:FOR 1 = 1 TO 13:FOR j = l TO 4:w 
t(1 ,i ) =0:NEXT j,1 

2700 FOR c=0 TO 10:df$(0,c)="":d1(c)=0:d2( 
c)=0:NEXT:dfw=0:GOTO 2040 

2710 SOUND 2,80,1,4:PEN#4,15:L0CATE#4,1,yf 

a 

2720 PRINT # 4, " "; : LOCATE#4, 1,yf:PRINT#4,CH 
R$(174 ) ; 

2730 yfa=yf:FOR is-1 TO 100:NEXT:GOTO 1440 
2740 CLS#4:xw=9:yw=l:p=12:FOR i=l TO 4:yw= 
yw+1:a$="P"+MID$(STR$(i),2,2)+":" 

2750 IF pl at$ (1 )-■="" THEN a$ = a$ + " * FR EI * " : GO 
TO 2770 ELSE a$ = a$+plat$(1 ) :frei=0 
2760 GOSUB 3010 
2770 GOSUB 5340:NEXT 

2780 i=5:a$=“B5:":IF bo$="" THEN a$=a$+"*F 
REI*":GOTO 2800 ELSE a$=a$+bo$:frei=0 
2790 GOSUB 3010 

2800 yw=yw+l:GOSUB S340:IF frei THEN 3410 
2810 a$="N-NEHMEN ODER R-RAUS":yw=yw+1:p=1 
:GOSUB 5340 

2820 a$=UPPER$(INKEY$):IF a$<>"N" AND a$<> 
"R“ THEN 2820 

2830 IF a$ = " R" THEN 1540 ELSE xw=10:yw=7:p 


[2176] 
[ 5047 ] 


[ 395 ] 

[ 595 ] 
[3520] 

[3078] 

[3132 ] 

[ 6633 ] 


[1867] 
[ 365 ] 

[ 904 ] 

[2683] 

[ 2332 ] 
[4702] 

[3448 ] 

[ 1235 ] 
[4169] 

[ 887] 

[3602] 

[2438] 

[1740] 
[ 1961 ] 
[4003] 

[ 2999 ] 

[4904] 


[ 1667 ] 
[ 3485 ] 


[ 3091 ] 

[4003 ] 

[3791] 

[3960] 

[1812 ] 

[ 2804 ] 

[2294] 
[4900] 

[3305] 

[967 ] 

[ 1221 ] 
[ 3828 ] 

[ 967 ] 

[2241] 
[3617] 

[2783] 

[1730] 


2840 LOCATE#4,1,6:PRINT#4,STRING$(10,32); [1596] 

2850 IF a=5 THEN pt=spl(5) ELSE pt=spl(pvo [2084] 
1 1 ) 

2860 a$="WAEHLE 1-5":xw=11:yw=7:GOSUB 5340 [2517] 
2870 b$=INKEY$:IF b$<"l" OR b$>"5" THEN 28 [3890] 
70 ELSE a=VAL(b$) 

2880 L0CATE#4,1,6:PRINT#4,STRING$(10,32);: [3744] 

IF a = 5 AND bo$ >"" THEN 2900 

2890 IF plat$(a)="" THEN 1540 ELSE xw=10:y [1794] 
w = 7:p= 4 

2900 IF 1tu = 3 THEN a$="HAENDE V0LL1":G0SUB [ 1589 ] 
5340:GOTO 3410 


Listing CUISINE 


8’89/90 Sonderheft 


CPC 99 





Programm/Spiel 


2910 IF bmk(1)=1 THEN a$="NICHT MOEGLICH!" 
:GOSUB 5340:GOTO 3410 

2920 IF a< 5 THEN a$ ="PLATTE " + b$ ELSE a$=" 
BACKOFEN" 

2930 a$=a$+" IST GEWAEHLT!":xw=9:G0SU8 534 
0 

2940 bmk {itu)=1:ivt$ (itu ) = p1at$(a): d1(itu ) 
=spl(a);d2(1tu)=sp2(a):plat$(a)="" 

2950 IF a < 5 THEN FOR 1=1 TO 4:IF p1at$(i) = 

"" THEN NEXT: pvon=pvo!l-l 

2960 IF a=5 THEN ivt$(itu) = bo$:bO$= " " 

2970 r$=RIGHT$(ivt$(Itu),2):IF r$="BR" THE 
N p$=" -BRATEN:0":GOTO 2990 
2980 IF r$="BA" THEN p$=" -BACKEN:0" ELSE 
p$=" -KOCHEN:0" 

2990 IF Ok(a) THEN p$=p$+MID$(STR$(dauer(a 

) ) ,2,2) 

3000 n=itu:GOSUB 3060:itu=itu+1:GOTO 3410 
3010 ok(1)=0:zw=mi-Start(i):zr = start(i )+da 
uer(1)-mi 

3020 IF zw< dauerfi ) THEN a$ = a$+" *0"+MID$( 
STR$(zr),2,2)+"*":RETURN 

3030 IF zw>dauer(i) THEN a$=a$+" *VB*" ELS 
E a$ = a$+" *OK *":ok(i)=—1 
3040 RETURN 

3050 dl(n)=spl(a):d2(n)=sp2(a) 

3060 num=dl(n):auf=d2(n):auf=auf+1:IF auf> 
11 THEN PRINT CHR$(7);:GOTO 2040 
3070 df$(num,auf)=p$:d2(n)=auf:RETURN 
3080 IF 1tu = 3 THEN IF bmk(l) = l THEN 3100 E 
LSE ivt$(l)=ivt$(2):i v t $ (2 ) = " " 

3090 bmk(l)=bmk(2):dl(l)=dl(2):d2(l)=d2(2) 

:bmk(2)=0:dl(2)=0:d2(2)=0 

3100 itu=2:RETURN 

3110 df$(dl(dw),d2(dw))=nm$:nmset=-l:d2(dw 
)=d2(dw)+1:RETURN 
312 0 : 

3130 ' *** Kochrezepte *** 

3140 : 

3150 PAPER#4,3:CLS#4:IF bst=0 THEN 3180 
3160 a$="R - REZEPT FUER":xw=10:yw=2:p=9:G 
OSUB 5340 

3170 a$=grt$:xw=12:yw=3:GOSUB 5340 

3180 xw=10:yw=5:a$="A - ALLE REZEPTE":GOSU 

B 5340 

3190 a$="BITTE WAEHLEN":xw=11;yw= 7:p=8:GOS 
UB 5340 

3200 al$=UPPER$(INKEY$):IF al$<>"R" AND al 
$ < >"A" THEN 3200 

3210 IF al$="R“ THEN 3560 ELSE FOR i=l TO 
4:L0CATE#4,11,6:PRINT#4," ":NEXT 
3220 FOR 1=1 TO 4:LOCAT E#4,1,1:PRINT#4,CHR 
$(8):NEXT:p=2 

3230 a$="B - BILDSCHIRM":xw=11:yw=3:GOSUB 
5340:xw=14:yw=4:a$="ODER" 

3240 GOSUB 5340:xw=11:yw=5:a$="D - DRUCKER 
":GOSUB 5340 

3250 a2$=UPPER$(INKEY$):IF a2$<>"B" AND a2 

$ < >"D" THEN 3250 

3260 IF a2$="B" THEN 3310 

3270 IF a2$="D" THEN 3450 ELSE 1540 

3280 : 

3290 ' *** Liste auf Bildschirm *** 

3300 : 

3310 CLS#4:WINDOW# 5,9,19,3,7:PAPER#5,3:FOR 
1=1 TO agr:a$="REZEPT: "+rp$(i) 

3320 a$= REZEPT: "+rp$(i):xw=9:yw=2:p=14:G 
OSUB 5340 

3330 FOR j = l TO zbs(i):IF j<>5 AND j<>9 TH 
EN 3350 

3340 a$="»TASTE*":xw=ll:yw=7:p=13:GOSUB 53 
40:WHILE INKEY$="":WEND:yw=2:CLS#5 
3350 xw=10:yw=yw+l:p=12:a$=zub$(i,j):GOSUB 
5340:NEXT j:yw=7:xw=11:p=1 
3360 IF such THEN yw=7:such=0:GOTO 3400 
3370 a$="* W - WEITER *":GOSUB 5340 
3380 a$=UPPER$(INKEY$);IF a$="" THEN 3380 
3390 IF a$="W" THEN CLS#4:NEXT i:yw=4 ELSE 
1540 

3400 a$="* ENDE REZEPTLI STE*":xw=10:p=14:GO 
SU8 5340 

3410 WHILE INKEY$< >"":WEND:WHILE INKEY$='“' 

:WEND:GOTO 1540 
3420 : 

3430 ‘ *** Liste auf Drucker *** 

3440 : 

3450 PRINT#8,CHR$(27);"W";CHR$(1); Breit 
e 1 n 


Listing CUISINE 


[2268] 

[1340] 

[2499] 

[5210 ] 

[2762] 

[1245] 
[4938] 

[2217] 

[ 2729 ] 

[2069] 
[ 3480 ] 

[ 3339 ] 

[2882 ] 

[ 555 ] 

[ 1663 ] 
[4180] 

[2824] 
[2547] 

[3881 ] 

[1008] 
[4515] 

[174] 

[ 589 ] 
[174] 

[ 1844 ] 
[2306 ] 

[1517] 

[1613] 

[4197] 

[ 2367 ] 

[4131] 

[2696] 

[3180] 

[3089 ] 

[3058] 

[1303] 
[1215 ] 
[174] 
[2192] 
[174] 

[ 3907 ] 

[2577] 

[ 3006 ] 

[3148] 

[4013] 

[2086] 
[ 1029 ] 
[ 1924 ] 
[2323 ] 

[3821] 

[4173] 

[174] 

[ 1380 ] 
[174] 

[2067] 


3460 PRINT#8,TAB(9);"REZEPTLISTE FUER 'LA 
CUISINE'" 

3470 PRINT#8,CHR$(27);" W ";CHR$(0);' Breit 
aus 

3480 PRINT#8:FOR i=l TO agr 

3490 PRINT#8,CHR$(27);"4" 'Kursiv ein 

3500 PRINT#8,TAB(30);"REZEPT: ";rp$(i);:PR 

INT#8,CHR$(27);"5" 'Kursiv aus 

3510 PRINT#8:FOR j=l TO zbs(i):PRINT#8,TAB 

(34) ;zub$(i ,j) :NEXT j 

3520 PRINT#8:NEXT i:GOTO 1540 

3530 : 

3540 ' *** Aktuelles Rezept*** 

3550 : 

3 5 60 CLS#4:WINDOW#5,9,19,3,7:PAPER#5,3:suc 
h=-l:1=akt(bst):GOTO 3320 
3570 : 

3580 ' *** Inventur *** 

3590 : 

3600 PAPER#4,9:CLS#4:a$="INVENTAR:-":xw=9: 
yw=2:p=15:GOSUB 5340 

3610 1z=0:p=12:FOR i=l TO itu:yw=yw+1:IF i 
vt$(i )>"" THEN 1z = 1z + 1 

3620 a$=1vt$(i):GOSUB 5340:NEXT:IF lz)0 TH 
EN 3640 

3630 yw = 4:a$="* NICHTS *":GOSUB 5340 
3640 a$="*ENDE INVENTUR*":xw=10:yw=7:p=13: 
GOSUB 5340 

3650 WHILE INKEY$<>"":WEN0:WHILE INKEY$="" 
:WEND:GOTO 1540 
3660 : 

3670 ' *** Liste Bestellungen *** 

3680 : 

3690 IF bst = 0 THEN PRINT CHR$(7 ) ; :GOTO 640 
3700 PAPER#4,4:CLS#4:xw=9:yw=1:p=13:FOR i= 
1 TO bst:yw=yw+l:a$=STR$(i) 

3710 a$=a$+" - "+bst$(i):GOSUB 5340:NEXT 
3720 yw=yw+l:p=10:a$="F-FERTIG ODER R-RAUS 
":GOSUB 5340 

3730 a$ = UPPER$( INKEY$) : IF a$o"F" AND a$ < > 
"R" THEN 3730 

3740 IF a$="R" THEN 1540 ELSE LOCATE#4,l,y 
w-1:PRINT#4,STRING$(10,32); 

3750 a$="WAEHLE 1 -"+STR$(bst):xw=10:GOSUB 
5340:p= 7:PAPER#4,1 

3760 a$=INKEY$:IF a$<"l" OR a$>MID$(STR$(b 
st) ,2,2 ) THEN 3760 
3770 : 

3780 ' *** Bestellung fertig *** 

3790 : 

3800 gr=VAL(a$):CLS#4:a$="* "+bst$(gr)+" * 
xw=10:yw=2:p=2:GOSUB 5340 
3810 bef=-l:schr=0:IF bmk(l)=l THEN n=dl(l 
) ELSE n=d1(2) 

3820 FOR j=l TO zbs(akt(gr)):IF zub$(akt(g 
r ) ,J)=df$(0,j) THEN schr = schr+l 
3830 NEXT:IF schr<>zbs(akt(gr)) THEN 3900 
3840 a$="DAS GERICHT IST O.K.!":xw=9:yw=3: 
p=8:GOSUB 5340 

3850 a$="GAST IST ZUFRIEDEN UND":yw=4:p=10 
:GOSUB 5340 

3860 a$="WILL DAS BISTRO WEIT-":yw=5:GOSUB 
5340 

3870 a$= " EREMPF EHLEN! !":yw=6:GOSUB 5340 
3880 FOR 1=1 TO 8:F0R j=400 TO 100 STEP -5 
* 1 :SOUND 1,j,1,15:NEXT j,i 
3890 gzuf=gzuf+1:GOTO 3980 

3900 IF schr>zbs(akt(gr))/2 AND schr<zbs(a 
kt(g r)) THEN 3930 

3910 a$="GERICHT IST VOELLIGER":xw=9:yw=3: 
p=7:GOSUB 5340 

3920 a$="SCHROTT !!!!":yw=4:GOSUB 5340:G0T 
0 3950 

3930 a$=“GERICHT NICHT VOLL-":xw=9:yw=3:p= 
13:GOSUB 5340 

3940 a$="STAENDIG !!":yw = 4:GOSUB 5340 
3950 a$="GAST IST UNZUFRIEDEN":yw=5:p=14;G 
OSUB 5340 

3960 a$="UND VERLAESST BISTRO.":yw=6:GOSUB 
5340 

3970 FOR 1=0 TO 1000 STEP 10:S0UND 2,500+i 
,4,15:NEXT:gver=gver+l 

3980 L0CATE#2,platz(gr),3:PRINT#2," ";:LOC 
ATE 7,7:PRINT CHR$(22)CHR$(0);:PEN 10 
3990 FOR i=1 TO dfw:df$(0,i)="":NEXT:dfw=0 
4000 PRINT CHR$(143);:xw=7:yw=7:a$=MID$(ST 
R$(bst-1),2,2):p=8:snd=0:GOSUB 5340 


Listing CUISINE 


[3847] 

[2809 ] 

[881 ] 
[1571] 
[3589] 

[2009 ] 

[1645] 
[174] 

[ 1701 ] 
[174] 

[4603] 

[174] 

[ 934] 
[174] 
[4853] 

[4958] 

[ 1325 ] 

[1810] 
[ 1539 ] 

[4173] 

[174] 
[2123] 
[174] 
[2681] 
[3984] 

[ 1667 ] 
[4288] 

[ 1991] 

[3759] 

[4149 ] 

[2667] 

[174] 

[ 2629 ] 

[174] 

[3385] 

[4253] 

[3876] 

[ 2793 ] 
[3141 ] 

[2578] 

[ 2925 ] 

[2886] 
[4040] 

[1504] 
[3350] 

[3826] 

[3893] 

[3079] 

[ 1310] 
[3016] 

[ 2187] 

[ 4569 ] 

[3171] 

[2868] 
[5047] 
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4010 IF bst >1 AND gnz = 0 THEN FOR i=gr TO b [ 7029] 
st:bst$(i)=bst$(i+l):platz(i) = platz(i+ 1 ):a 


Kt(i)=akt(i+l):NEXT 

4020 bst=bst-l:snd=-l:dla=-l:lF bst=0 THEN [2593] 
CLS#3:g rt$="" 

4030 IF gnz=l THEN gnz=0:tim=0 [1482] 

4040 n1x=-l:a$=“*TASTE*"::xw=ll:yw=7:p=13: [4138] 
GOSUB 5340:WHILE INKEY$="":WEND 

4050 IF dla THEN 2640 ELSE 1540 [1198] 

4060 IF bmk(1) = 1 THEN dw=l ELSE dw=2 [1616] 

4070 : [174] 

4080 1 *** Screen-Aufbau *** [1144] 

4090 : [174] 

4100 MODE 0:WINDOW#1,1,20,1,9:PAPER#1,9:PE [2396] 
N#1,10:CLS#1 

4110 PRINT#l,CHR$(22)CHR$(l):LOCATE#l,l,l: [2880] 
FOR 1=1 TO 9 

4120 PRINT#1,STRING$(20,166);:NEXT [1182] 


4130 WINDOW#1,1,20,10,23:PAPER#1,13:CLS#1: [2536] 
PEN#1,10 

4140 FOR 1=1 TO 14:PRINT#1,STRINGS(20,165 > [2862] 
;:NEXT 

4150 LOCATE 1,24:PEN 11:PAPER 0:PRINT STRI [3379] 
NG$(20,207); 

4160 PRINT STRING$(20,216);:PAPER 0 [1917] 

4170 WINDOW#2,2,6,2,5:PAPER#2,5:PEN#2,4:CL [2187] 
S#2 

4180 PRINT#2,CHR$(167); ";CHR$(167);" ";C [2504] 

HR$(167); 

4190 PRINT#2:PRINT#2:PEN#2,8:PRINT#2,STRIN [2984] 
G$(5,143); 

4200 PLOT 34,334,14:DRAW 190,334:PEN 6:LOC [3253] 
ATE 6,12:PRINT CHR$(143); 

4210 PAPER 0:WIND0W#3,4,17,9,9:PAPER#3,10: [2281] 
CLS#3 

4220 xw=2:yw=7:LOCATE xw,yw:PEN 10:PRINT S [4249] 
TRING$(6,143); 

4230 a$="BESTELL.:":p=7:snd=0:GOSUB 5340 [2099] 

4240 WINDOW#4,9,19,2,7:GOSUB 1580:snd=-l [2498] 

4250 GOSUB 4300:GOSUB 4390:GOSUB 4460:G0SU [3711] 
B 4540 

4260 GOSUB 4640:GOSUB 4800:PRINT CHR$(22)C [2295] 
HR$(0); 

4270 FOR 1=0 TO 2 STEP 2:PLOT 1,254-1,9:DR [2929] 
AW 640,254-i:NEXT 

4280 tp=-1:GOSUB 5110:TAGOFF:tg=0:GOTO 487 [1904] 
0 

4290 ‘ *** Kuehlschrank #** [1695] 

4300 LOCATE 1,1:PRINT CHR$(22)CHR$(1);:LOC [1876] 
ATE 5,17:PEN 15 

4310 PRINT CHR$(169)CHR$(143)CHR$(170):FOR [2607] 
1=18 TO 24 

4320 LOCATE 5,i:PRINT STRING$(3,143);:PEN [2553] 
6 

4330 IF i=24 THEN PRINT CHR$(173):GOTO 435 [ 2550 ] 
0 

4340 IF 1=18 THEN PRINT CHR$(172) ELSE PRI [3773] 
NT CHR$(171) 

4350 PEN 15:NEXT:PLOT 213,70,2:DRAW 213,90 [3501] 
:PLOT 216,76,4:DRAW 216,88 

4360 PLOT 213,105,2:DRAW 213,120:PLOT 216, [3480] 
110,4:DRAW 216,118 

4370 PLOT 130,96,3:DRAW 220,96:RETURN [1297] 

4380 * *** Wandschrank *** [1398] 

4390 FOR 1=15 TO 18:L0CATE 1,1:PEN 2:PRINT [2881] 
STRING$(3,143) ; 

4400 PEN 6:IF A=18 THEN PRINT CHR$(173);:G [2310] 
OTO 4420 

4410 IF 1>15 THEN PRINT CHR$(171); ELSE PR [3461] 
INT CHR$(172) ; 

4420 NEXT:PLOT 46,112,3:DRAW 46,174 [1960] 

4430 PLOT 32,145,15:PLOT 58,145:PLOT 32,14 [2286] 
3,7:P LOT 58,143 

4440 PLOT 1,174,6:DRAW 92,174:PL0T 1,112:D [3411] 
RAW 92,112:RETURN 

4450 ' *** unterer Schrank *** [1827] 

4460 FOR 1=20 TO 24:LOCAT£ 1,1:PEN 7:PRINT [4476] 
STRING$(3,143) ; :PEN 6 

4470 IF 1020 AND i<>24 THEN PRINT CHR$(17 [ 3236 ] 
1);:GOTO 4490 

4480 IF 1=20 THEN PRINT CHR$(172); ELSE IF [3580] 
1=24 THEN PRINT CHR$(173); 

4490 NEXT:a(l)=94:a(2)=80:a(3)=78:a(4)=16: [2188] 
FOR 1=1 TO 4 

4500 PLOT 1,a(1),11:DRAW 92,a(f):NEXT [2761] 

4510 PLOT 46,16:DRAW 46,78:PL0T 46,86,9:PL [2162] 
OT 46,88,15:PLOT 30,58,6 
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4520 PLOT 60,58:PLOT 30,60,15iPLOT 60,60:R [1580] 
ETURN 

4530 ' *** Spuele *** [622] 

4540 FOR 1=20 TO 24:L0CATE 9,i:PEN 11:PRIN [4339] 
T STRING$(4,143) ; 

4550 PEN 6:IF 1=24 THEN PRINT CHR$(173);:G [3566] 
OTO 4570 

4560 IF 1=20 THEN PRINT CHR$(172); ELSE PR [2837] 
INT CHR$(171) ; 

4570 NEXT:PEN 3:L0CATE 11,19:PRINT CHR$(17 [3744] 
5) 

4580 a(l)=94:a(2)=48:a(3)=16:F0R 1=1 TO 3: [3037] 
PLOT 256,a(1),14 

4590 DRAW 382,a(i ):NEXT [241] 

4600 LOCATE 11,15:PEN 3:PRINT CHR$(177):LO [4402] 
CATE 11,16:PEN 8 

4610 PRINT CHR$(176):PEN 15:LOCATE 10,15:P [3422] 
RINT CHR$(177) 

4620 PEN 8:LOCATE 10,16:PRINT CHR$(176):RE [2811] 
TURN 

4630 ‘ *** Herd *** [636] 

4640 LOCATE 15,14:PEN 13:PRINT STRING$(3,1 [3394] 
43);:PEN 6:PRINT CHR$(172) 

4650 PEN 8:LOCATE 14,15:PRINT CHR$(214);ST [3695] 
RING$(3,143);CHR$(215) 

4660 IF set THEN set=0:RETURN [1461] 

4670 a$=STRING$(5,143):PEN 13:L0CATE 14,20 [4074] 
:PRINT a$:LOCATE 14,24:PRINT a$ 

4680 PEN 6:LOCAT E 15,20:PRINT CHR$(181)CHR [2132] 
$(182)CHR$(181) 

4690 FOR 1=21 TO 23:L0CATE 14,i:PEN 13:PRI [2637] 
NT CHR$(133);:PEN 9 

4700 PRINT CHR$(8);CHR$(138); [1368] 

4710 PRINT STRING$(3,143);CHR$(133);:PEN 1 [3099] 
3:PRINT CHR$(8);CHR$(138); 

4720 PEN 6:PRINT CHR$(171);:NEXT [1829] 

4730 LOCATE 19,20:PRINT CHR$(172):LOCATE 1 [4183] 
9,24:PRINT CHR$(173) 

4740 PEN 5:LOCATE 17,12:PRINT CHR$(150);ST [2294] 
RINGS(3,154); 

4750 LOCATE 17,13:PRINT CHR$(149) [1558] 

4760 FOR 1=0 TO 2:PL0T 432,50+1 * 10,2:DRAW [2629 ] 
556,50+i*10:NEXT 

4770 PLOT 432,32,1:DRAW 432,78:DRAW 560,78 [3435] 

:DRAW 560,32,7:DRAW 436,32 

4780 RETURN [555] 

4790 ' *** Mu e1 lei me r *** [ 1598 ] 

4800 LOCATE 20,21:PEN 3:PRINT CHR$(195);:F [2868] 
OR 1=22 TO 24:LOCATE 20,i 

4810 PEN 7:PRI NT CHR$(143) ; :NEXT:FOR x = 608 [4103] 
TO 640 STEP 8 

4820 PLOT x,16,9:DRAW x,60:NEXT:PLOT 608,1 [3655] 


6:DRAW 640,16 

4830 PLOT 608,62:DRAW 640,62:RETURN [2627] 

4840 : [174] 

4850 ' *** Uhr & Screen *** [1373] 

4860 : [174] 


4870 ab=REMAIN(1):SOUND 64,40,1,15:EVERY 9 [2494] 
00,2 GOSUB 5100 

4880 OUT &BC00,1:FOR 1=1 TO 40:0UT &BD00,i [4502] 


:FOR j=l TO 20:NEXT j,1:x=10:y=15 

4890 GOSUB 4930:GOTO 640 [1683] 

4900 : [174] 

4910 ' *** Gast in Bistro *** [1399] 

4920 : [174] 

4930 0I:IF bst=5 THEN 5060 [1031] 

4940 pl=INT(RND+5+1):FOR h=l TO bst:IF pla [3769] 

tz(h) = pl OR pl > 5 THEN 4940 ELSE NEXT 
4950 IF tg=-l THEN sp=1:tg=0:TAGOFF [1992] 

4960 IF cw=1 THEN cw=0:so=1:LOCATE 1,1:PRI [2951] 

NT CHR$(23)CHR$(cw); 


4970 bst=bst+l:gins=gins+1:LOCATE 7,7:PEN [3415] 

10:PRINT CHR$(143);:CLS#3 

4980 platz(bst)=pl:L0CATE#2,platz(bst),3:P [3245] 
EN#2,1:PRINT#2,CHR$(168); 

4990 xql=xwl:yql=ywl:xq=xw:yq=yw:pq=p:aq$= [4003] 

a$:tj=rz 

5000 xw=7:yw=7:a$ = MID$(STR$(bst) ,2,2 ) :p = 8: [ 3867] 

snd=0:GOSUB 5340:snd=-l 

5010 IF cw=0 AND so=l THEN cw=l:so=0:LOCAT [4064] 
E 1,1:PRINT CHR$(23)CHR$(cw); 

5020 IF tg=0 AND sp=l THEN tg=-1:sp=0:TAG [2030] 
5030 Zf=INT(RND*10+l):IF lev=l AND zf>8 TH [4877] 
EN 5030 ELSE grt$=rp$(zf):akt(bst)=zf:bst$ 

(bst)=g rt$ 

5040 w5=xwl:w6=ywl:p7=p:z$="* "+grt$+" [5329] 

kl=5:11=9:fpl=10:GOSUB 5460 
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5050 xw=xq:yw=yq:p=pq:xwl=xql:ywl=yql:a$=a 
q$:rz=tj:IF txt THEN PLOT -2,-2,p:MOVE xwl 
+rz*16,ywl 

5060 EVERY 7700-1ev*(RND*1000+1000),1 GOSU 
B 4930:EI:RETURN 
5070 : 

5080 ' *** Uhr *** 

5090 : 

5100 DI:hm=0:st$="":mi$="":tp=0:ml=mi+1:IF 
mi>=60 THEN mi=0:st=st+l:tp=-l 
5110 IF tg=-l THEN tg = 0:hm=-l:TAGOFF 
5120 IF cw=1 THEN w3(2)=-1:cw=0:LOCATE 1,1 
:PRINT CHR$(23)CHR$(cw); 

5130 IF tg=0 THEN w3(1)=-1:tg=-1:TAG 
5140 IF 31=24 THEN st = 0:mi=0:tp=-1 
5150 IF mi<10 THEN mi$="0":mm=1 ELSE mi$=" 
“:mm=2 

5160 IF s t <10 THEN st$=” 0":ms = 3 ELSE st$ = 
“ “:ms=2 

5170 mi$=mi$+MID$(STR$(mi),2,mm):st$=st$+M 
ID$(STR$(st),2,ms) 

5180 PLOT -2,-2,13:IF NOT tp THEN 5200 
5190 FOR zl = l TO 3:MOVE 128 + z1* 16,222:PRIN 
T MID$(st$,zl,l);:NEXT 

5200 FOR z2=1 TO 2:MOVE 176+z2* 16,222:PRIN 
T MID$(m1$,z2,1);:NEXT 

5210 PLOT 192,214,3:PLOT 192,218:PLOT -2,- 
2,p:MOVE xwl + rz*16,ywl 

5220 IF tg=-1 AND w3(l)=-l THEN w3(l)=0:tg 
= 0:T AGOFF 

5230 IF cw=0 AND w3(2)=-l THEN w3(2)=0:cw= 
1:LOCATE 1,1:PRINT CHR$(23)CHR$(cw); 

5240 IF tg = 0 AND hm=-l THEN tg = -1:TAG 
5250 EI:w3(l)=0:w3(2)=0:IF st=el AND mi=e2 
THEN 5580 

5260 IF gnz=0 AND bst=5 THEN gnz=l:tim=mi 
5270 IF gnz=l AND tim+4=mi THEN CLS#4:a$=" 
BAD LUCK MY FRIEND!" ELSE RETURN 
5280 xw=9:yw=2:p=6:GOSUB 5340:a$="DU WARST 
ZU LANGSAM.":yw=4:GOSUB 5340 
5290 a$="DIE GAESTE HABEN DIE":yw=5:GOSUB 
5340:a$="NASE VOLL UND SIND WEG":yw=6:GOSU 
B 5340 

5 300 LOCATE#2,1,3:PRINT#2,STRINGS(5,32) : FO 
R i=l TO 5:bst$(i)="":platz(i)=0:akt(i)=0: 
NEXT:gver=gver+4:bst=0:gr=l:bst=l:platz(l) 
=1:GOTO 3970 
5310 : 

5320 ' *** Text ausgeben *** 

5330 : 

5340 txt=-l:hb=0:IF tg=-l THEN tg=0:hb=-l: 
TAGOFF 

5350 IF cw=0 THEN w2(2)=-l:cw=l:LOCATE 1,1 
:PRINT CHR$(23)CHR$(cw); 

5360 IF tg=0 THEN w2(1)=-l:tg=-l:TAG 
5370 yw1=400-yw*16+14:xwl=xw*32-48:FOR rz= 
1 TO LEN(a$) 

5380 PLOT -2,-2,p:MOVE xw1+rz*16,yw1:PRINT 
MID$(a$,rz,1); 

5390 IF snd THEN SOUND 2,100,1,4 

5400 NEXT:IF tg=-l AND w2(l)=-l THEN tg=0: 

w2( 1) =0:T AGOFF 

5410 IF cw=1 AND w2(2)=-l THEN w2(2)=0:cw= 
0:LOCATE 1,1:PRINT CHR$(23)CHR$(cw); 

5420 IF tg = 0 AND hb=-l THEN tg = -1:TAG 
5430 w2(l)=0:w2(2)=0:txt=0:RETURN 
5440 LOCATE x,y:PEN 1:PRINT CHR$(178):LOCA 
TE x,y+1:PEN 13:PRINT CHR$(179) 

5450 LOCATE x,y+2:PEN 1:PRINT CHR$(180):RE 
TURN 

5460 IF tg THEN tg=0:hx=-1:TAGOFF 

5470 IF cw=0 THEN w3=-l;cw=l:LOCATE 1,1:PR 

INT CHR$(23)CHR$(cw); 

5480 IF tg=0 THEN w4=-1:tg=-1:TAG 

5490 ml=400-ll*16+14:nl=kl*32-48:FOR mn=l 

TO LEN(z$) 

5500 PLOT -2,-2,fpl:MOVE nltmn*16,ml:PRINT 
MID$(z$,mn,1); 

5510 SOUND 1,50,1,5:NEXT:IF tg AND w4 THEN 
tg=0:TAGOFF 

5520 IF cw=1 AND w3 THEN cw=0:LOCATE 1,1:P 
RINT CHR$(23)CHR$(cw); 

5530 IF tg = 0 AND hx THEN tg = -1:TAG 
5540 w4=0:w3=0:hx=0:RETURN 
5550 : 

5560 ’ *** Auswertung *** 

5570 : 


[6504] 


[3544] 

[174] 

[ 888 ) 
[174] 
[3354] 

[1724] 
[ 3967 ] 

[ 2269 ] 
[ 1789 ] 
[2712 ] 

[3065] 

[4570] 

[2277] 

[3279] 

[4014 ] 

[2979 ] 

[2088] 

[3807] 

[ 1684 ] 
[ 2809 ] 

[ 1667] 
[5371] 

[ 4968 ] 

[4128 ] 


[8403] 


[174] 

[1134] 

[174] 

[2462] 

[2594] 

[ 1873 ] 
[3212 ] 

[2991 ] 

[1290] 
[1946] 

[4650] 

[2331] 
[2136] 
[2262] 

[ 2210 ] 

[1467] 
[2721] 

[ 1943] 
[3068] 

[2615] 

[3482] 

[3541 ] 

[1256] 
[ 925 ] 
[174] 

[ 1386 ] 
[174] 
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5580 tg=0:TAGOFF:cw=0:PRINT CHR$(23);CHR$( 
0);:a=REMAIN(1):PEN 1 

5590 b=REMAIN(2):LOCATE 4,9:PRINT CHR$(22) 
CHR$(0);“ »SPIELENDE* " 

5600 FOR 1=1 TO 3:SOUND 2,200,70,,1:NEXT:F 
OR 1=1 TO 4000:NEXT 

5610 FOR 1=1 TO 25:FOR j=l TO 1:LOCATE 1,1 
:PRINT CHR$(8):NEXT:FOR j=l TO i 
5620 LOCATE 20,25:PRINT CHR$(9):NEXT j,i:y 
=8:PLOT 1,1,5:DRAW 1,399 

5630 DRAW 639,399:DRAW 639,1:DRAW 1,1:FOR 
x=2 TO 6 STEP 2:GOSUB 5440 

5640 y=y-3:NEXT:a$="A USWERTUN G":x 
w=9:yw=3:p=l:GOSUB 5340 

5650 a$=STRING$(23,45):xw=8:yw=4:GOSUB 534 
0 

5660 a$="BESTELLUNGEN INSGESAMT:"+STR$(gin 
s):p=10:xw=6:yw=9:GOSUB 5340 
5670 a$=“ZUFRIEDENE GAESTE :"+STR$(gzuf):p 
=11:yw=ll:GOSUB 5340 

5680 a$=“VERAERGERTE GAESTE:"+STR$(gver):p 
=12:yw=13:GOSUB 5340 

5690 a$="SCHWIERIGKEITSGRAD:"+STR$(1ev):p= 
13:yw=16:GOSUB 5340 

5700 a$ = "GESAMTSCORE :"+STR$(500* 1 ev 

*gzuf):p=15:yw=18:GOSUB 5340 
5710 a$="*** "+urt$(gzuf/2)F" ***":p=1:yw= 
20:GOSUB 5340 

5720 a$="NOCHEINMAL ?":p=8:yw=23:xw=9:GOSU 
B 5340 

5730 a$ = UPPER$(INKEY$) : IF a$<>''J" AND a$<> 
"N" THEN 5730 

5740 IF a$="J" THEN RUN ELSE MODE 2:END 
5750 1 Farben & Urteile 

5760 DATA 26,12,6,2,13,0,3,9,7,23,11,27,17 
,19,21,MI ES,SCHWACH,NICHT UEBEL,STARK,SUPE 
R,SPITZE,CHEFKOCH 
5770 1 Kueche 

5780 DATA WANDSCHRANK,15,18,1,3,2,SUPPENSC 
HUESSEL,TELLER 

5790 DATA MEHRZWECKFACH1,20,20,1,3,2,FERTI 
GSOSSE,SUPPENEXTRAKT 

5800 DATA BODENSCHRANK,21,24,1,3,3,NUDELN, 
REIS,BROETCHEN 

5810 DATA SPENDER1,15,16,10,10,1,SENF 
5820 DATA SPENDER2,15,16.11,11,1,KETCHUP 
5830 DATA KUEHLSCHRANK,20,24,5,7,4,HAEHNCH 
EN,EIER,SPECK,WUERSTCHEN 

5840 DATA GEFRIERFACH,18, 19,5 , 7,4,PIZZA,BA 
GUETTE,HAMBURGER,FISCHFILET 
5850 DATA BEHAELTERDEPOT,23,24,9,12,2,TOPF 
,PFANNE 

5860 DATA MEHRZWECKFACH2, 14,14 , 15,17,2,GEW 
UERZE,KUECHENMESSER 

5870 DATA HERD,20,20,15,17,4,BRATEN,KOCHEN 
,BACKEN,UEBERSICHT 

5880 DATA SPUELE,19,19,11,11,1,WASCHEN 

5890 DATA ABLAGE,19,19,9,10,4,SCHNEI DEN,WU 

ERZEN,PLATZIEREN,ABLAGE NEU 

5900 DATA MUELLEIMER,21,24,20,20,1,INVENTA 

R HINEIN 

5910 ' Rezepte 

5920 DATA HOT DOG,5,BROETCHEN," -SCHNEIDEN 
".WUERSTCHEN," -BRATEN:03",SENF 
5930 DATA EIER MIT SPECK,5,SPECK," -SCHNEI 
DEN"," -BRATEN:01",EIER," -BRAT EN:02" 

5940 DATA HLB. HAEHNCHEN,5,HAEHNCHEN," -WA 
SCHEN"," -SCHNEIDEN"," -WUERZEN"," -BACKEN 
: 04 " 

5950 DATA PIZZA,2,PIZZA," -BACKEN:04" 

5960 DATA SPAGHETTI,5,NUDELN," -K0CHEN:04" 

,FERTIGSOSSE," -KOCHEN:02“," -WUERZEN" 

5970 DATA BIG HAM,6,HAMBURGER," -BRATEN:03 
"." -WUERZEN".BROETCHEN," -SCHN EI DEN",KETC 
HUP 

5980 DATA REISSUPPE,5,RE IS," -WASCHEN"," - 
KOCHEN:04",SUPPENEXTRAKT," -KOCHEN:01" 

5990 DATA BAGUETTE,2,BAGUETTE," -BACKEN:04 

6000 DATA FISCH MIT REIS, 11,FI SCHFILET, " - 
WASCHEN"," -SCHNEIDEN"," -BRATEN:04"," -WU 
ERZEN",REIS," -WASCHEN",“ -KOCHEN:04",FERT 
IGSOSSE," -KOCHEN:02"," -WUERZEN" 

6010 DATA WUERST.GULASCH,9.WUERSTCHEN," -B 
RATEN:04"," -SCHNEI DEN",REIS, " -WASCHEN"," 
-KOCHEN:04",FERTIGSOSSE," -KOCHEN:02 " - 

WUERZEN" 


Listing CUISINE 


[3102] 

[5863] 

[3828] 

[2728] 

[4630] 

[2553] 

[4150] 

[2851 ] 

[5797] 

[3412] 

[3584] 

[3283] 

[3265] 

[2333] 

[3221] 

[ 1595 ] 

[2269] 
[1467] 
[6876] 

[143] 

[2659] 

[3635] 

[3653] 

[2155] 
[1709] 
[2423] 

[3710] 

[2853] 

[4138] 

[3962] 

[2553] 
[ 2899 ] 

[1687] 

[ 346] 

[ 4345 ] 

[4124] 

[3524] 

[1385 ] 
[5839] 

[4532 ] 

[5656] 
[3070] 
[ 9897 ] 

[8378] 
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Programm/Spiel 


Der Zeitwürfel 

Zeitspiele mit dem CPC 


Sinn des Spiels ist es, alle Zeiger der bei¬ 
den 9er Blöcke auf 12 Uhr zu stellen. Da¬ 
bei hat man eine Vielzahl von Möglich¬ 
keiten, die Uhren zu verdrehen. Zum 
Spielen sind insgesamt zwölf Tasten zu 


gebrauchen. Mit den Cursortasten links 
beziehungsweise rechts lassen sich die 
Uhren vor- oder zurückstellen. Die Num¬ 
mern eins bis vier im rechten Zahlen¬ 
block beziehungsweise die Tasten 


Q,W,E,R dienen zur Auswahl des zu dre¬ 
henden Pins, die Zahlen eins bis vier am 
oberen Tastenfeld werden zur Auswahl 
einer Drehmöglichkeit benutzt. Um bei 
dem aktuellen Stand der Zeiger nächstes 
Mal weiterspielen zu können, muß 
CTRL+S gedrückt werden. Den Spiel¬ 
stand des letzten Spiels kann man durch 
CTRL+L wieder laden. 

Und nun ran ans Werk! 

(Volker Nordhoff/jb) 


für 464-664-6128 

r 



10 '******************************* 

20 '** RUBIK 1 S CLOCK ON CPC ** 

30 '** Volker Nordhoff ** 

40 1 ** CPC 6128 ** 

60 INK 0,0:INK 1,15:INK 2,26:INK 3,8:BORDE 
R 0 

70 SYMBOL AFTER 32:tr=HIMEM+1 

80 SYMBOL 91,255,65,65,65,65,65,127,8 

90 SYMBOL 93,255,127,127,127,127,127,127,8 

100 SYMBOL 169,76,210,68,72,94 

110 aq$="1234qwer"+CHR$(19)+CHR$(12)+CHR$( 

242)+CHR$(243) 

120 DIM f(15,4,9,2),po(9,2,2),ek(4,2),azl( 
4) ,az2(4),zei (9,2) 

130 DEF FNte=azl(l)+azl(2)+azl(3)+azl(4) 
140 GOSUB 430 

150 FOR t=l TO 9:FOR k=l TO 2:zei (t,k) = I NT 
(RND*11)+1:NEXT:NEXT 

160 zei(l,2) = zei(1,1):zei(3,2)= zei(3,1):ze 
i(7,2)=zei(7,1):zei(9,2)=zei(9,1):MODE 1 
170 LOCATE 11,1:t$="RUBIK'S CLOCK ON CPC 
180 PEN 2:FOR c=l TO 20:dr = tr+(ASC(MID$(t$ 
,c,1))-32)*8:FOR w=0 TO 7:r(w)=PEEK(dr+w): 
NEXT:SYMBOL 250,0, r(0) , r(0), r(l) , r(l) , r(2) 
, r(2) , r(3):SYMBOL 251 , r(3),r(4) ,r(4) ,r(5) , 
r(5),r(6),r(6),r(7):PRINT CHR$(250)CHR$(10 
)CHR$(8)CHR$(251)CHR$(11);:NEXT 
190 DEG:FOR i=l TO 9:FOR k=l TO 2:FOR t=30 
TO 360 STEP 30 

200 TAG:PLOT po(i ,1,k) + 33*SIN(t),po(i ,2,k) 
+33*C0S(t),3:IF t<360 THEN PRINT CHR$(144) 
; ELSE PRINT CHR$(169); 

210 TAGOFF 

220 NEXT:PLOT po(i,1,k)+6,po(i,2,k)-6,2:DR 
AWR 16*SIN(zei(i, k)*30 ) ,16*COS(zei(i,k)*30 
) :NEXT:NEXT 

230 FOR t = 2 6 TO 330 STEP 304:PLOT t,50,l:D 
RAWR 0,278:DRAWR 280,0:DRAWR 0,-278:DRAWR 
-280,0:PLOT t-4,46:DRAWR 0,286:DRAWR 288,0 
:DRAWR 0,-286:DRAWR -28B,0:NEXT 
240 FOR t=B8 TO 250 STEP 96 

250 PLOT t+32,50:DRAWR 0,278:PLOT t+336,50 
:DRAWR 0,278:PLOT 28,t+54:DRAWR 276,0:PLOT 
332,t+54:DRAWR 276,0:NEXT 
260 az2(l)=l:az2(2)=2:az2(3)=4:az2(4)=8 
270 PEN 1:FOR t=l TO 4:az1(t)=az2(t):LOCAT 
E ek(t,1),ek(t,2)-l:PRINT MID$(STR$(t),2,1 
)CHR$(8)CHR$(10) " ] " :LOCATE ek(t,l)+19,ek(t 
,2)-1:PRINT MID$(STR$(t),2,1)CHR$(8)CHR$(1 
0)"[";:NEXT 

280 anz=l:t=l:GOSUB 680:KEY 129,"q":KEY 13 
0,"w":KEY 131,"e":KEY 132,"r" 

290 a$=INKEY$:FOR t=l TO 12:IF MID$(aq$,t, 
l)Oa$ THEN NEXT : GOTO 290 

300 IF a$=CHR$(12)THEN OPENIN"rub.dat":FOR 
t=l TO 9:FOR k=l TO 2:INPUT#9,zei(t,k):NE 
XT:NEXT:CLOSEIN:GOTO 160 

310 IF e$=CHR$(19)THEN OPENOUT"rub.dat":FO 
R t=l TO 9:FOR k=1 TO 2:PRINT#9,zei (t,k ) :N 
EXT:NEXT:CLOSEOUT:GOTO 290 

320 FOR t=l TO 4:IF VAL(a$)=t THEN IF azl( 
t)=0 THEN az 1 (t)=az2(t):GOSUB 690 ELSE azl 
(t) =0:GOSUB 690 ELSE NEXT 

330 FOR t=l TO 4:IF a$=MID$(aq$,t+4,1)THEN 
GOSUB 680 ELSE NEXT 


[1223] 

[ 2529 ] 

r1680 ] 

[ 668 ] 
[1223] 

[ 1639 ] 

[2815 ] 
[2710] 
[2429] 
[1728] 

[2458] 

[3627] 

[2217] 

[ 974] 
[4617] 

[3353] 

[2127] 

[14125 ] 


[1665] 
[5876] 

[1066] 
[4663] 


[9209] 


[1060] 
[ 6891 ] 


[3134] 
[8060 ] 


[5034] 
[ 2560 ] 
[5744] 

[ 6048 ] 

[ 7522 ] 

[ 5338 ] 


Lisling Zeitwürfel 


340 IF a$=CHR$(242)THEN dd=-l ELSE IF a$=C 
HR$(243)THEN dd=l ELSE 290 

350 za=0:as=FNte:FOR kX=l TO 2:FOR aX=l TO 
9 

360 IF f(as,anz,a*,kX)=0 THEN 390 ELSE i=f 
(as,anz,a*,k*) 

370 PLOT po(i,1,kX)+6,po(i,2,k%)-6,0:DRAWR 
16*SIN(zei(i,kX)*30),16*COS(zei(i,k*)*30) 
:zei(i,kX)=zei(i,k%)+dd:IF zei(i,kX)=13 TH 
EN zei(i,k*)=l ELSE IF zei(i,kX)=0 THEN ze 
1(1,k%)=12 

380 PLOT po(i , 1,k%)+6,po(i ,2, k*)-6,2:DRAWR 
16*SIN(zei(1,k%)*30),16*COS(zei(i,kX)*30) 
390 za=za+zei(i,kX):IF za=216 THEN 410 
400 NEXT:NEXT:GOTO 290 

410 TAG.’PLOT 160,3 5 4,3 : PRI NT " Du bist der C 
HAMPION"; :T AGOFF 

420 PEN 2:LOCATE 16,25:PRINT"SPIELENDE":LO 
CATE 1,24:END 

430 FOR t=Q TO 15:FOR k=l TO 4:FOR 1=1 TO 
9 

440 READ f(t,k,i ,1) ;f(15-t, k, i ,2 ) = f(t,k,i , 
1) 

450 NEXT:NEXT:NEXT 

460 DATA 1,3,7,9,0,0,0,0,0,1,3,7,9,0,0,0,0 
,0,1,3,7,9,0,0,0,0,0,1,3, 7,9,0,0,0,0,0 
470 DATA 1,2,4,5,0,0,0,0,0,3 , 7,9,0,0,0,0,0 
,0,3,7,9,0,0,0,0,0,0,3, 7,9,0,0,0,0,0,0 
480 DATA 1,7,9,0,0,0,0,0,0,2,3,5,6,0,0,0,0 
,0,1,7,9,0,0,0,0,0,0,1,7,9,0,0,0,0,0,0 
490 DATA 1,2,3,4,5,6,0,0,0,1,2,3,4,5,6,0,0 
,0,7,9,0,0,0,0,0,0,0,7,9,0,0,0,0,0,0,0 
500 DATA 1,3,9,0,0,0,0,0,0,1,3,9,0,0,0,0,0 
,0,4,5,7,8,0,0,0,0,0,1,3,9,0,0,0,0,0,0 
510 DATA 1,2,4,5,7,8,0,0,0,3,9,0,0,0,0,0,0 
,0,1,2,4,5,7,8,0,0,0,3,9,0,0,0,0,0,0,0 
520 DATA 1,9,0,0,0,0,0,0,0,2,3,4,5,6,7,8,0 
,0,2,3,4,5,6,7,8,0,0,1,9,0,0,0,0,0,0,0 
530 DATA 1,2,3,4,5,6,7,8,0,1,2,3,4,5,6,7,8 
,0,1,2,3,4,5,6,7,8,0,9,0,0,0,0,0,0,0,0 
540 DATA 1,3,7,0,0,0,0,0,0,1,3,7,0,0,0,0,0 
,0,1,3,7,0,0,0,0,0,0,5,6,8,9,0,0,0,0,0 
550 DATA 1,2,4,5,6,B,9,0,0,3,7,0,0,0,0,0,0 
,0,3,7,0,0,0,0,0,0,0,1,2,4,5,6,8,9,0,0 
560 DATA 1,7,0,0,0,0,0,0,0,2,3,5,6,8,9,0,0 
,0,1,7,0,0,0,0,0,0,0,2,3,5,6,8,9,0,0,0 
570 DATA 1,2,3,4,5,6,8,9,0,1,2,3,4,5,6,8,9 
,0,7,0,0,0,0,0,0,0,0,1,2,3,4,5,6,8,9,0 
580 DATA 1,3,0,0,0,0,0,0,0,1,3,0,0,0,0,0,0 
,0,4,5,6,7,8,9,0,0,0,4,5,6, 7,8,9,0,0,0 
590 DATA 1,2,4,5,6,7,8,9,0,3,0,0,0,0,0,0,0 
,0,1,2,4,5,6, 7,8,9,0,1,2,4,5,6, 7,8,9,0 
600 DATA 1,0,0,0,0,0,0,0,0,2,3,4,5,6,7,8,9 
,0,2,3,4,5,6,7,8,9,0,2,3,4,5,6,7,8,9,0 
610 DATA 1,2,3,4,5,6,7,8,9,1,2,3,4,5,6,7,8 
,9,1,2,3,4,5,6,7,8,9,1,2,3,4,5,6,7,8,9 
620 FOR t=l TO 9:READ a,b 

630 po(t,1,l)=a:po(t,2,l)=b:po(t,1,2)=a+30 
4:po(t,2,2)=b 
640 NEXT 

650 DATA 64,290,160,290,256,290,64,194,160 

,194,256,194,64,98,160,98,256,98 

660 FOR t=l TO 4:READ a,b:ek(t,1)=a:ek(t,2 

)=b:NEXT:RETURN 

670 DATA 8,11,14,11,8,17,14,17 
680 FOR ds=0 TO 19 STEP 19:LOCATE ek(anz,l 
)+ds,ek(anz,2)-l:PRINT CHR$(48+anz):LOCATE 
ek(t,l)+ds,ek(t,2)-l:PRINT CHR$(24)CHR$(4 
8+t)CHR$(24):NEXT:anz=t:RETURN 
690 PEN 1:IF azl(t)>0 THEN LOCATE ek(t,l), 
ek(t,2):PRINT"]":LOCATE ek(t,l)+19,ek(t,2) 
:PRINT"["ELSE LOCATE ek(t,1 ) ,ek(t,2) :PRINT 
”[":LOCATE ek(t,l)+19,ek(t,2):PRINT"] 

700 RETURN 


[2743] 
[2051] 

[3032 ] 

[10906 ] 


[6026 ] 

[ 1988 ] 
[1363] 
[2733] 

[4342] 

[2570] 

[ 1 729 ] 

[963] 

[3122] 

[3642] 

[3375] 

[3051] 

[3150 ] 

[3176] 

[3476] 

[ 3388 ] 

[3689] 

[3045] 

[3759] 

[ 2778 ] 

[3804] 

[3746] 

[3524] 

[3298] 

[ 1552 ] 
[2335] 

[ 350 ] 
[2915] 

[ 3609 ] 

[ 338 ] 

[ 10852 ] 

[8058] 

[ 555 ] 
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Programm/Spiel 


Mein CPC ist voll!!! 

Strategiespiel mit Überraschungen 

Eimerkette ist ein Spiel für alle CPC-Rechner, welches nach einem einfachen 
(Überlauf-)Prinzip arbeitet. Dadurch daß, wenn ein Eimer voll ist, dessen 
überschüssiger Inhalt in andere Eimer verteilt werden muß, ist dieses Spiel 
nur auf einem Computer realisierbar. (Wer will schon seine Wohnung unter 
Wasser setzen?) 


Das Spielfeld (sechs mal sechs Felder 
groß) wird wie ein Schachfeld an den ho¬ 
rizontalen und vertikalen Seiten mit a-f 
und 1-6 beschriftet. Der eigentliche Sinn 
des Spieles liegt darin, seinen Gegenspie¬ 
ler, der auch vom Computer simuliert 
werden kann, vollkommen vom Spielfeld 
zu verdrängen. Das heißt jeder Spieler 
setzt abwechselnd seine “Eimer“ auf die 
günstigsten Felder und füllt diese da¬ 
durch mit Wasser. Je voller ein Eimer 


wird, desto größer ist auch die Möglich¬ 
keit des Überlaufens, und da beginnt ei¬ 
gentlich auch schon der Reiz dieses 
Spiels. Da jeder Spieler seine “Eimer“ 
auf das Spielfeld setzt und nach und nach 
diese dann mit Wasser füllt, wodurch es 
dann zum Überlauf kommt, verteilen 
sich die “Eimer“ auf ihre benachbarten 
Felder. Durch diese Verteilung vermehrt 
sich der Besitzanteil eines jeden Spielers. 
Wird der Eimer des Gegners gefüllt, geht 


dieser automatisch in den eigenen Besitz 
über. 

Wenn es nun einem Spieler gelingt, alle 
“Eimer“ des Gegners in seinen Besitz zu 
bringen, ist für ihn das Spiel gewonnen 
und es kann entweder eine neue Partie 
stattfinden oder das Spiel verlassen 
werden. 

Auch nach mehrmaligem Spielen ver¬ 
spricht das Programm, durch immer wie¬ 
der neue Züge des Gegners, interessant 
zu sein und wird Sie sicherlich für eini¬ 
ge Zeit am Computer fesseln. 

In das Programm ist auch ein Demonstra¬ 
tionsmodus eingebaut, der beim genau¬ 
eren Hinsehen so manchen wertvollen 
Tip geben kann. 

Da das Programm voll in Basic geschrie¬ 
ben ist, sollte es auch für den Anfänger 
leicht zu verstehen sein. 

(Stefan Achilles/jb) 



20 LOCATE 6,12:PRINT"Eimerkette [1881] 

30 BORDER 26,2:INK 1,26,2:INK 0,2,26:SPEED [12941] 
INK 1,2:FOR i=l TO 2000:SPEED INK 1,7:NEX 
T i:FOR i=1 TO 1000.SPEED INK 1,12:NEXT i: 

SPEED INK 1,20:FOR i = l TO 1000:NEXT i:SPEE 
D INK 1,10:FOR i = 1 TO 1000:NEXT i:SPEED IN 
K 1,50:FOR i=1 TO 1000:NEXT i :CALL &BC02 


40 CALL &BC02 [353] 

50 DATA 2,3,3,3,3,2 [654] 

60 REM [272] 

70 REM Initialisierung [2397] 

80 REM [272] 

90 MODE 1 [506] 


100 WINDOW »1,1,40,20,24:WINDOW #2,1,40,25 [2705] 
, 25 

110 CLS:RANDOMIZE TIME* 2:LOCATE 16,9:PRINT [5014] 
"Eimerkette" 

120 LOCATE 16,15:PRINT CHR$(164);" 1989 by [6263] 
":PEN 3:LOCATE 16,17:PRI NT"DMV Verlag":PEN 


1 

130 DIM w(6,6,3) ,cn$(1) , v(2 , 1) [1414] 

140 FOR i=1 TO 6:READ w(1,i,0):w(6,i,0)=w( [3254] 
l,i,0):FOR j = 2 TO 5:w(j,i ,0)=w(1,i,0 ) +1 
150 NEXT j :NEXT i [ 825 ] 

160 DEF FN rn(x)=INT(RND*x+l) [124] 

180 REM [272] 

190 REM Spielvorbereitung [1469] 

200 REM [272] 

210 LOCATE 11,11:PRINT"Wi11 kommen zum Spie [ 2939 ] 

1 " 

220 LOCATE 8,24:PRINT CHR$(24): INPUT"Brau [4608] 
chst du Instructionen ";x$:PRINT CHR$(24) 

230 IF LEFT$(x$,1) = "J" OR LEFT$(X$, 1 ) = " j " [2064] 


THEN GOSUB 1040 

240 CLS:PRINT "Zahl der Menschlichen Spiel [4806] 
er: [ 0 , 1 , 2 ]” 

250 x$=INKEY$:IF x$="" OR x$<"0” OR x$>"2" [3646] 

THEN 250 ELSE g=VAL(x$) 

260 IF g < 2 THEN cn$(1) = "CPC>464<":IF g<2 T [ 3696 ] 
HEN cn$(0)="Amstrad":GOTO 310 


270 FOR i=1 TO g [431] 

280 LOCATE 2,4*i:PRINT "Name des Spielers" [4107] 

;i;:INPUT x$ 

290 cn$(i-l)=LEFT$(x$,10) [1217] 

300 NEXT i:m=0 [321] 

310 CLS:GOSUB 690:IF RND<0.5 THEN k=l ELSE [3336] 

k = 2 
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320 REM [272] 

330 REM Hauptprogramm [1411] 

340 REM [272] 

350 CLS #1 [373] 

360 m=m+1:s=1-(k=1) [793] 

370 IF k>10 THEN k=10 ELSE IF k<l THEN k=l [2721] 

380 PEN k+1:PEN #1,k+1:LOCATE #1,4,1:PRINT [3310] 

#1,cn$(k-1);"'s Zug:":IF k=2 AND g<2 THEN 
1140 

390 IF k=1 AND g=0 THEN 1140 [810] 

400 LOCATE #1,4,3:PRINT #1,"Zeile?" [1977] 

410 x$=INKEY$:IF x$=”" OR x$<"l" OR x$>"6" [3435] 

THEN 410 

420 y = VAL(x$) :LOCATE #1,11,3:PRI NT #l,x$ [ 1939 ] 

430 LOCATE #1,14,3:PRINT #1,"Spalte?" [1804] 


440 x$=INKEY$:IF x$="" OR x$<"a" OR x$>"f" [3968] 

THEN 440 

450 x = ASC(x$)-9 6:LOCATE #1,22,3:PRI NT #l,x [ 3794 ] 

$ 


460 IF w(x,y,2) = k OR w(x,y,l)=0 THEN 500 [2158] 

470 SOUND 1,110:LOCATE #1,1,4:PRINT CHR$(2 [ 7948] 
4):PRINT dl,"verbotene POSITION - noch mal 
PRINT CHR$(24) 

480 FOR i=1 TO 1000: NEXT i [674] 

490 CLS #1: GOTO 380 [551] 

500 w (x, y ,1) =w(x,y,l)+l:w(x,y,2)=k:GOSUB 7 [4410] 
70:IF w(x,y,1)=1 THEN v{k,1 ) =v(k,1)+1 
510 z=l :IF w(x,y,1)=w(x,y,0) THEN GOSUB 86 [1633] 
0 

520 IF ZOI THEN 580 [801] 

530 IF k=1 THEN k=2 ELSE k=l [648] 

540 GOTO 350 [470] 

550 REM [272] 

560 REM Spielende [383] 

570 REM [272] 


580 PRINT #1,R EMAIN (0):CLS #1: LOCATE #1,3 [ 5450 ] 
,2:PRINT #1,cn$(k-1);" hat gewonnen !!!":P 


RINT #1:PR I NT #1,"Noch mal?" 

590 v(k,0)=v(k,0)+l:PEN 2:LOCATE 32,10:PRI [7031] 

NT STR$(v(1,0)):PEN 3:LOCATE 32,12:PRINT S 
TR$(v(2,0)):GOSUB 770 

600 x$=INKEY$ : IF x$='"' THEN 600 [ 2676 ] 

610 IF x $ = ” N" OR x$="n" THEN GOTO 1630 [ 1494] 

620 CLS #1:FOR i=l TO 6:FOR j=l TO 6:w(j,i [3424] 
,1)=0:w(j,i,2)=0:NEXT j:NEXT i:v(1,1)=0:v( 

2 , 1 ) = 0 

630 m=0:mi=0:se=0:sl=0:s2=0:rnl=0:m2=0 [1282] 

640 FOR i=1 TO 6:FOR j=l TO 6:LOCATE 2*j + 6 [3010] 
, 2 * i + 3 :PRINT " ":NEXT j :NEXT i 

650 CLS #2:EVERY 50,0 GOSUB 1560:G0T0 350 [2041] 

660 REM [272] 

670 REM sub - Spielbrett-Aufbau [1175] 
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680 REM 

[ 2 72 ] 

690 PEN 1 :LOCATE 7,1:PRINT "*EimER-keTte*" 

:FOR i=0 TO 12 STEP 2:M0VE 104,343-1 * 16:DR 
AW 296,343-i*16:NEXT i:FOR i=0 TO 12 STEP 

2:MOV E 104+i*16,343:DRAW 104+i* 16,152:NEXT 

[9192 ] 

700 MOVE 76,375:DRAW 324,375:DRAW 324,123: 
DRAW 76,123:DRAW 76,375:F0R i=0 TO 5:FOR j 
= 0 TO 1 : LOCATE 6 +j* 14,5 +i* 2:PRINT CHR$(i+4 

9):LOCATE 8+i*2,3+j*14:PRINT CHR$(i+65):NE 
XT j : NEXT i 

[7770] 

710 PEN 1:LOCATE 23,8:PRINT "Spielstand":? 
EN 2 :LOCATE 23,10:PRINT cn$( 0 ):PEN 3:LOCAT 

E 23,12:PRINT cn$( 1 ) 

[ 6659 ] 

720 PEN 2:LOCAT E 32,10:PRINT STR$(v(0,0)) : 
PEN 3:LOCATE 32,12:PRINT STR$(v(l,0)) 

[6350] 

730 EVERV 50,0 GOSUB 1560:RETURN 

[ 2661 ] 

740 REM 

[ 272 ] 

750 REM sub - setzen 

[619] 

760 REM 

[ 2 72 ] 

770 FOR i=1 TO 6 :FOR j = l TO 6 

[ 1924 ] 

780 IF w(j,i,1)=0 THEN LOCATE 2 * 3 + 6 ,2*1+3: 
PRINT " ":GOTO 810 

[ 3029 ] 

790 IF w(j,i,2)=2 THEN PEN 3 ELSE PEN 2 

[2103] 

800 LOCATE 2*j + 6 ,2* i+3 : PRINT MID$(STR$(w (3 
,i ,1 ) ) , 2,1 ) 

[2845] 

810 NEXT 3 :NEXT i 

[ 825 ] 

820 RETURN 

[ 555 ] 

830 REM 

[ 2 72 ] 

840 REM sub - ueberlauf 

[609] 

850 REM 

[ 272 ] 

860 FOR y=1 TO 6 :FOR x=l TO 6 

[ 1449] 

870 IF w(x,y,1)>=w(x,y, 0 ) THEN 890 

[1267] 

880 NEXT x:NEXT y:RETURN 

[1503] 

890 PEN k+1 

[486] 

900 FOR i=136 TO 138:lOCATE 2 *x + 6 ,2 *y+3:PR 
INT CHR$(i> 

[ 1678 ] 

910 FOR j=l TO 200:NEXT 3 :NEXT i 

[ 1886 ] 

920 IF y >1 THEN q = y- 1 :w(x,q, 1 )=w(x,q, 1 ) +1 : 
u=x:GOSUB 1500 

[3146] 

930 IF x>l THEN u=x-1:w(u,y, 1 )=w(u,y, 1 )+ 1 : 
q=y:GOSUB 1500 

[3863] 

940 IF y < 6 THEN q = y+ 1 :w(x,q, 1 )=w(x,q, 1 ) + 1 : 
u=x;GOSUB 1500 

[3417] 

950 IF x <6 THEN u = x+ 1 :w(u,y,1)=w(u,y,1) + 1 : 
q=y:GOSUB 1500 

[1703] 

960 w(x,y,l)=w(x,y,l)-w(x,y,0):w(x,y,2)=k 

[3797] 

970 IF w(x,y,l)=0 THEN w(x,y,2)=0:v(k,1)=v 
( k , 1 ) - 1 

[ 2859 ] 

980 GOSUB 770 

[931] 

990 2= 1 :IF (v(1,l)+v(2,1)>1) AND (v(l,l)=0 
OR v(2,1)=0) THEN z=0:RETURN 

[4270] 

1000 GOTO 860 

[ 536 ] 

1010 REM 

[ 2 72 ] 

1020 REM Instruktionen 

[ 1539 ] 

1030 REM 

[ 2 72 ] 

1040 CLS 

[91] 

1050 PRINT TAB(13);"SPieLanLEItunG":PRINT: 
PRINT 

[3262] 

1060 PRINT " Die beiden SPIELER legen ABW 
ECHSELND":PRINT TAB (10);"Steine AUF das F 
ELD.":PRINT:PRINT Aus Gemeinheit darf ma 

n diese aber nur":PRINT " auf LEERE oder 
EIGENE Felder setzen," 

[ 1J505 7 ] 

1070 PRINT:PRINT TAB(7);"Da jedes Feld nur 
BEGRENZT":PRINT TAB( 6 );"aufnahmefaehig is 
t, laeuft es":PRINT " ploetzlich UEBER un 
d VERTEILT dabei":PRINT " seinen INHALT gl 
eichmaessig auf seine":PRINT TAB(11);"NACH 
BARN (WUERG)." 

[17883) 

1080 PRINT:PRINT " GEGNERISCHE Felder wech 
sein dabei die":PRINT " FARBE und somit d 
ie ZUGEHOERIGKEITPRINT:PRINT "Das ZIEL 
ist es, den Gegner RESTLOS vom":PRINT TAB( 
11); "FELD zu draengen," 

[ 13565 ] 

1090 PRINT:PRINT TAB(14);CHR$(24)"A11 es kl 
a r?":PRINT CHR$(24);PRINT " Dann drueck' 
doch 'mal 'ne TASTE !!!" 

[6161 ] 

1100 IF INKEY$="" THEN 1100 ELSE RETURN 

[2116] 

1110 REM 

[ 2 72 ] 

1120 REM Compu-Gambler 

[ 1304] 

1130 REM 

[ 272 ] 

1140 q=0:u=0:FOR i=l TO 6 :FOR j=l TO 6 

[2004] 

1150 w(j, 1 ,3 ) =0:IF w(j,1,2) = k AND w(j,i,l) 
=w(j,i,0)-l THEN w ( j , i , 3) = 1:q = q+ 1 
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1160 IF w(j ,i ,2 ) <>s THEN u = u+l 
1170 NEXT j:NEXT i:IF q=0 THEN 1320 
1180 FOR 1=1 TO 6:FOR j=l TO 6:IF w(j,i,3) 
= 0 THEN i=0 : j =0:GOTO 1280 

1190 OX = j:FOR px=i-1 TO 1 STEP -1:G0SUB 14 
50:IF w(j,px,1)<>w(j,px,0)-1 THEN px=l 
1200 NEXT px:IF i>5 THEN px=l:GOSUB 1230 
1210 FOR px=i+1 TO 6:G0SUB 1450:IF w(j,px, 
1)<>w(j,px,0)-l THEN px = 6 
1220 NEXT px 

1230 px=i:FOR Ox = j TO 1 STEP -1:G0SUB 1450 
:IF w(ox,1,1)<>w(ox,1,0)-l THEN ox=l 
1240 NEXT ox:IF j>5 THEN 1270 
1250 FOR ox = j +1 TO 6:G0SUB 1450:IF w(ox,i, 

1) Ow(ox,1,0)-l THEN ox = 6 
1260 NEXT ox 

1270 NE*T j:NEXT i 

1280 m=0:FOR px=l TO 6:FOR ox=l TO 6 
1290 IF w(ox,px,3)>m THEN m=w(ox,px,3):i=p 
x:j =ox 

1300 NEXT ox: NEXT px: IF qOl OR <(1=1 OR i 
= 6) AND (j = 1 OR j =6 ) AND rn(2) = l) THEN 141 
0 

1310 IF q=l AND w(j,i,3)>50 THEN 1410 

1320 b3=0:IF rn(3)=l OR u>33 THEN 1350 

1330 FOR px = 1 TO 6:F0R ox=l TO 6:IF w(ox,p 

x,2)=k THEN 1=px:j=ox:px=6:ox=6 

1340 NEXT ox:NEXT px'.GOTO 1360 

1350 i=FN rn(6):j=FN rn(6):IF w(j,i,2)=s T 

HEN 1350 

1360 r=0:FOR px = i-l TO 1 — (i< 6) : IF w(j,px, 

2) < > S THEN 1380 

1370 IF w(j,px,1)=w(j,px,0)-l THEN r=l 
1380 NEXT px:FOR ox=j-l TO j-(j < 6) :IF w(ox 
, i , 2 ) < >S THEN 1400 

1390 IF w(ox,i,1)=w(ox,i,0)-1 THEN r=l 
1400 NEXT ox;IF r=l THEN b3=b3+l:IF b3<u T 
HEN 1350 

1410 LOCATE #1,20,1:PRINT #1,i,CHR$(j+96): 
x=j:y=i:GOTO 500 
1420 REM 

1430 REM sub - Punkte 
1440 REM 

1450 w(j , i ,3)=w(J,1,3)+1: 

IF w(ox,px,2)=s THEN w(j ,i ,3)=w(j ,i ,3 ) + 
50 

1460 RETURN 
1470 REM 

1480 REM sub - Erhoehung Nachbarfeld 
1490 REM 

1500 IF w(u,q,2)=s THEN v(s,1) = v(s,1)- 1 

1510 IF w(u,q,2)Ok THEN v ( k , 1 ) = v ( k , 1 ) + 1 

1520 w(u,q,2)=k:RETURN 

1530 REM 

1540 REM Uhr 

1550 REM 

1560 LOCATE #2,18,1:se=se+1:IF se=60 THEN 
s e = 0:ml=mi+1 

1570 PEN #2,1:PRINT #2,m1;":";se; 

1580 LOCATE #2,2+(k-1)*30 , 1 :PEN #2,k+l 

1590 IF k=2 THEN 1610 ELSE sl=sl+l:IF sl=6 

0 THEN s1=0:ml=m1+1 

1600 PRINT *2,ml sl ; :RETURN 

1610 s2=s2+1:IF s2=50 THEN s2=0:m2=m2+l 

1620 PRINT #2,m2;":";s2;:RETURN 

1630 REM 

1640 REM Ende 

1650 REM 

1660 MODE 1:BORDER 26:INK 0,26:INK 1,0:INK 
2,6:INK 3,24 

1670 FOR a=-160 TO 160 STEP 8 

1680 PLOT a*2+320,400,1:DRAW a+320,250:DRA 

WR 0,-100:DRAW a*2+320,0:NEXT 

1690 FOR a=-80 TO 80 STEP 16 

1700 PLOT 0,a*2+200:DRAW 160,a/2+200:DRAWR 
320,0:DRAW 640,a*2+200:NEXT 
1710 x=20:FOR a=1 TO 53:y=180-x:PLOT y,y:D 
RAWR 640-2*y,0:DRAWR 0,400-2*y:DRAWR 2*y-6 
40,0:DRAWR 0,2*y-400:x=x*l.l:NEXT 
1720 PEN 2 

1730 LOCATE 13,13:PRlNT"Auf Wiedersehen:" 
1740 LOCATE 13,24:PRINT CHR$(24)"Bitte ein 
e Taste":PRINT CHR$(24) 

1750 CALL &BB 1 8:CA L L 0 


[1B02 ] 
[ 1386] 
[3125 ] 

[ 5851 ] 

[ 1995 ] 
[ 2279 ] 

[448] 
[2748] 

[ 725 ] 

[ 3626 ] 

[ 426] 
[825 ] 

[ 1916 ] 
[ 4153] 

[4518] 


[1332] 
[ 1483 ] 
[4712 ] 

[ 209 7] 
[2304] 

[2235] 

[ 1802] 
[4167] 

[1663] 
[ 1763 ] 

[3717] 

[ 2 72 ] 

[ 403] 

[ 2 72 ] 

[ 3978 ] 


[ 555 ] 

[ 272 ] 

[ 1470] 
[ 272 ] 

[3082] 
[2324] 
[ 1399 ] 
[ 272 ] 
[412] 

[ 272 ] 

[ 1952 ] 

[ 1929 ] 
[ 2399 ] 
[ 2787 ] 

[1575] 
[2303] 
[ 1478 ] 
[ 2 72 ] 
[410] 

[ 272 ] 

[3613] 

[ 1110 ] 

[3353] 

[2217] 
[3453] 

[5738] 


[548] 

[ 1931 ] 
[4916] 

[ 1280 ] 
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Tips & Tricks 


Betriebssystem- 
CALLs für den 
BASIC-Programmierer 

Der CPC verfügt über ein außerordentlich gut organi¬ 
siertes Betriebssystem: Nahezu alle wichtigen Funktio¬ 
nen können als Unterprogramme mit normierten Ein- 
sprungadressen aufgerufen werden. Im folgenden finden 
Sie eine komplette Aufstellung der CALLs, die sich di¬ 
rekt von BASIC aus benutzen lassen. 

Viele Betriebssystem-Routinen erwarten bestimmte Zahlenwerte 
als Vorgabe in den Z80-Registem oder geben Werte in den Re¬ 
gistern zurück. Leider ist dem BASIC-Programmierer ein Zu¬ 
griff auf die Prozessor-Innereien versagt; ein Aufruf führt hier 
zu unkontrollierbaren Zufallsergebnissen. Abhilfe kann in die¬ 
sen Fällen nur ein kleines Maschinenprogramm schaffen, das 
die Übergabe der Werte organisiert. Allerdings bleiben noch ge¬ 
nug Systemroutinen ohne solche Einsprungbedingungen übrig, 
die sich direkt von BASIC aus aufrufen lassen. Weiterhin ermög¬ 
licht es ein kleiner Trick, zumindest das A-Register (Akkumu¬ 
lator) zu beeinflussen: Es enthält nämlich bei einem BASIC- 
CALL die Anzahl der übergebenen Parameter. Dazu ein Bei¬ 
spiel: Durch 

CALL adresse,1,144 

wird das A-Register mit dem Wert 4 geladen. Die Parameter 
selbst sind hierbei vollkommen belanglos; anstelle der 1 könnte 
man also jeden beliebigen Wert einsetzen. Die folgende Auf¬ 
stellung beschränkt sich auf wirklich nutzbringende System-auf- 
rufe. Verzichtet wurde auf CALLs, deren Wirkung sich auch 
durch einen simplen BASIC-Befehl erreichen läßt. Falls der Pa¬ 
rameter-Trick zur Anwendung kommt, wird der CALL-Befehl 
mit dem Zusatz ’par’ versehen. Der Name hinter den CALLs 
ist die offizielle von Amstrad in der Firmware-Dokumentation 
verwendete Bezeichnung des Einsprungs. 

CALL &0000: RESET ENTRY 

setzt den Rechner wie bei CTRL SHIFT ESC komplett zurück. 
Diese Routine wird manchmal unbeabsichtigt mit fatalen Fol¬ 
gen aufgerufen, wenn ein Programmierer sein Werk gut lesbar 
gestalten will und deshalb die CALL-Adressen in Variablen ab¬ 
legt, also zum Beispiel mit CursorOn = &BB81, um im Pro¬ 
gramm CALL CursorOn schreiben zu können. Ein kleiner 
Tippfehler wie CALL CursorOm erzeugt dann einen Reset, da 
die 'unbekannte’ Variable mit 0 vorbelegt ist! 

CALL &BB00: KM INITIALIZE 

initialisiert die Tastaturverwaltung des CPC komplett. Alle 
Funktionstastenbelegungen, Tastendefinitionen und Wiederhol¬ 
geschwindigkeiten werden auf die Standardwerte zurückgesetzt 
und CAPS LOCK ausgeschaltet. Weiterhin werden Unterbre¬ 
chungen mit ESC gesperrt (siehe auch KM DISARM BREAK). 
CALL &BB06: KM WAIT CHAR 
CALL &BB18: KM WAIT KEY 

Beide Routinen warten auf eine Tastatureingabe und ersetzen 
die BASIC-Schleife WHILE INKEY$= “ “ :WEND. Der erste 
CALL reagiert dabei auf ein Zeichen, also bei Funktionstasten¬ 
belegungen auf das erste von eventuell mehreren Zeichen, so 
daß der Rest im Puffer verbleibt. Der zweite CALL wertet da¬ 
gegen direkt den Tastendruck aus. 

CALL &BB45: KM ARM BREAK 
CALL &BB48: KM DISARM BREAK 

KM DISARM BREAK sperrt eine Unterbrechung durch ESC, 


was allerdings nicht im Direktmodus (Eingabemodus) und bei 
INPUT-Befehlen funktioniert, sondern nur während des Pro¬ 
grammablaufs. KM ARM BREAK läßt den Abbruch wieder zu. 
Wer auch die INPUT-Befehle schützen will, sollte zusätzlich die 
ESC-Taste umdefinieren, zum Beispiel mit KEY DEF 
66,0,126,126,126. Aber Vorsicht: Aus solchen Programmen kom¬ 
men Sie nur wieder lebend’ heraus, wenn Sie einen Ausgang 
vorgesehen haben! Vielleicht sollten Sie die ESC-Taste, die ja 
jetzt das ASCII-Zeichen 126 liefert, im Programm abfragen und 
auf diese Weise einen kontrollierten Ausstieg ermöglichen. 

CALL &BB4B: KM BREAK EVENT 

erzeugt ein 'Unterbrechungs-Ereignis’. In einem BASIC-Pro- 
gramm wird damit ein Druck auf die ESC-Taste simuliert, das 
heißt, das Programm hält an und wartet bei angeschaltetem Cur¬ 
sor auf einen Tastendruck. ESC führt zum sofortigen Abbruch, 
eine andere Taste bewirkt eine Fortsetzung. Dieser CALL funk¬ 
tioniert nicht, wenn vorher KM DISARM BREAK aufgerufen 
wurde. 

CALL &BB4E: TXT INITIALIZE 

setzt den für die Textausgabe zuständigen Teil des Betriebssy¬ 
stems total zurück. Alle Fenster werden auf den gesamten Bild¬ 
schirm vergrößert, PEN 1 und PAPER 0 eingestellt, der Cur¬ 
sor in die linke obere Ecke gesetzt, der Transparentmodus und 
die Textausgabe auf Grafikkoordinaten ausgeschaltet 
(TAGOFF). 

CALL &BB54: TXT VDU ENABLE 
CALL &BB57: TXT VDU DISABLE 

Mit diesen CALLs lassen sich Textausgaben verhindern bzw. 
wiedereinschalten. Nach ’VDU DISABLE’ bleibt jeder PRINT- 
Befehl wirkungslos, bis ’VDU ENABLE’ aufgerufen wird. Auf 
diese Weise können zum Beispiel auch Floppy-Fehlermeldun- 
gen unterdrückt werden. 

CALL &BB81: TXT CURSOR ON 
CALL &BB84: TXT CURSOR OFF 

schalten den Textcursor während des Programmablaufs ein bzw. 
aus. Das Betriebssystem kontrolliert dabei die Cursorposition, 
das heißt, nach einem LOCATE-Befehl oder der Ausgabe von 
Textzeichen wird der Cursor automatisch an die aktuelle Posi¬ 
tion gesetzt. Es ist deshalb ratsam, den Cursor vor einem 
PRINT-Befehl abzuschalten, da er sonst während der Textaus¬ 
gabe dazwischenflackert. Mit dem CURSOR-Kommando läßt 
sich der Cursor auf dem CPC 664/6128 zwar ebenfalls aktivie¬ 
ren; wer jedoch auf die Kompatibilität zum kleinen Bruder CPC 
464 Wert legt, sollte lieber die obigen CALLs benutzen. 

CALL &BB8A: TXT PLACE CURSOR 
CALL &BB8D: TXT REMOVE CURSOR 

Diese Routinen dienen ebenfalls dazu, einen Cursor an der ak¬ 
tuellen Textposition erscheinen zu lassen oder zu entfernen. Er 
unterliegt allerdings nicht der Steuerung des Betriebssystems, 
das heißt, er bleibt an Ort und Stelle, bis ihn das Programm wie¬ 
der entfernt. Damit ist es möglich, bei Bedarf eine ganze Le¬ 
gion von Cursoren zu erzeugen (oder wie würden Sie die Mehr¬ 
zahl bilden?). Da man einen Cursor löscht, indem man einfach 
einen zweiten Cursor an die gleiche Stelle setzt, sind die obi¬ 
gen beiden CALLs in ihrer Wirkung übrigens vollkommen iden¬ 
tisch. 

CALL &BB9C: TXT INVERSE 

vertauscht die aktuelle PEN- und PAPER-Farbe für die Textaus¬ 
gabe, das heißt, es wird danach invers auf dem Bildschirm ge¬ 
schrieben. 

CALL &BB9F,par: TXT SET BACK 

Ohne Parameter schaltet dieser CALL den normalen Textaus- 
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gabemodus ein (Überschreiben), mit einem Parameter (also zum 
Beispiel CALL &BB9F,1) wird dagegen der Transparentmodus 
aktiviert. 

CALL &BBBA: GRA INITIALIZE 

setzt den für Grafikausgaben zuständigen Teil des Betriebssy¬ 
stems zurück: Der Ursprung und der Grafikcursor werden in 
die linke untere Ecke gesetzt (ORIGIN 0,0: MOVE 0,0), das 
Grafikfenster auf den gesamten Bildschirm vergrößert und als 
Schreib- bzw. Hintergrundfarbe GRAPHICS PEN 1 und GRA¬ 
PHICS PAPER 0 eingestellt. 

CALL &BBDE,par,...: GRA SET PEN 
CALL &BBE4,par,...: GRA SET PAPER 

stellen die Schreib- bzw. Hintergrundfarbe für Grafikausgaben 
ein, wobei die Anzahl der Parameter die PEN- bzw. PAPER- 
Nummer bestimmt (zum Beispiel CALL &BBE4,1,1,1 für GRA¬ 
PHICS PAPER 3). Diese CALLs sind insbesondere auf dem 
CPC 464 bei Textausgaben auf Grafikcursor-Position (nach 
TAG) nützlich, da keine entsprechenden BASIC-Einstellbefehle 
existieren. 664/6128-Besitzer können diese Methode benutzen, 
wenn sie zum CPC-464-kompatible Programme schreiben 
wollen. 

CALL &BBFF: SCR INITIALIZE 

initialisiert den Teil des Betriebssystems, der für die Bildschirm 
ansteuerang zuständig ist, setzt alle INKs und Farbwechsel 
auf ihre Standardwerte zurück, schaltet MODE 1 an, löscht 
den Bildschinn mit PAPER 0 und setzt den Grafik-Schreib¬ 
modus auf Überschreiben (Force Mode, siehe SCR AC¬ 
CESS). Dieser Aufruf ist sehr nützlich, wenn der Bildschirm 
nach wüsten Farborgien außer Rand und Band ist, an allen 
Ecken blinkt. 

CALL &BC14: SCR CLEAR 

löscht den gesamten Bildschirm immer mit PAPER 0, also im 
Gegensatz zu CLS nicht mit der aktuellen PAPER-Farbe. 

CALL &BC4D: SCR HARDWARE ROLL 

rollt den gesamten Bildschirm um eine Textzeile nach oben. 
Die neue Zeile am unteren Rand wird mit PAPER 0 darge¬ 
stellt. 

CALL &BC59,par,...: SCR ACCESS 

bestimmt den Schreibmodus für Grafikausgaben (also auch 
für Text nach TAG). Die Anzahl der Parameter bestimmt den 
Modus: 

0 = Force-Modus (Überschreiben) 

1 = XOR-Modus 

2 = AND-Modus 

3 = OR-Modus 

Der Force-Modus ist der Normalzustand. In den anderen 
Modi werden die Farbwerte der Grafikpunkte mit den vorher¬ 
igen Farbwerten logisch verknüpft, wodurch sich Spezialef¬ 
fekte erzielen lassen. Die Einstellung kann man in BASIC 
auch vornehmen, indem man das Steuerzeichen CHR$(23) 
mit PRINT abschickt. Das funktioniert allerdings nicht im 
Grafik-Textmodus (nach TAG), in dem die obigen Modi ja ge¬ 
rade zur Wirkung kommen sollen. Deshalb kann der CALL 
durchaus nützlich sein, da er es erspart, erst mit TAGOFF die 
Textausgabe auf Grafikposition abschalten zu müssen. 
CALL &BC6E: CAS START MOTOR 
CALL &BC7I: CAS STOP MOTOR 

schalten den Motor des Kassettenrekorders ein bzw. aus. Das 
funktioniert allerdings nur, wenn Sie vorher die PLAY-Taste 
gedrückt haben, sonst hört man nur das Relais klicken. 

CALL &BCA7: SOUND RESET 

bricht die laufenden Sound-Aktivitäten ab und setzt alle Hüll¬ 


kurven und Tonwarteschlangen zurück. 

CALL &BCB6: SOUND HOLD 

CALL &BCB9: SOUND CONTINUE 

Der erste Aufruf unterbricht alle Sound-Aktivitäten und friert 

sie quasi ein; der zweite CALL sorgt für die Fortsetzung zu 

einem späteren Zeitpunkt. 

CALL &BD19: MC WAIT FLYBACK 
wartet auf den (vertikalen) Strahlrücklauf des Bildschirms 
(max. 1/50 sec). Dieser CALL kann dazu benutzt werden, um 
bewegte Grafikobjekte mit dem Bildschirmaufbau zu syn¬ 
chronisieren und eine ruhigere Darstellung zu erreichen. Der 
Aufruf muß dann allerdings vor jeder Bildschirmausgabe er¬ 
folgen! Auf dem CPC 664/6128 steht für diesem Zweck der 
Befehl FRAME zur Verfügung. Wenn das Programm auch 
auf dem 464 laufen soll, ist jedoch der obige CALL ange¬ 
bracht. 

CALL &BDlC,par,...: MC SET MODE 

schaltet den MODE um, ohne daß der Bildschirm gelöscht 
wird, was den Bildschirminhalt stark verfremdet. Die Anzahl 
der Parameter bestimmt die Modenummer (0,1,2). Da die an¬ 
deren Teile des Betriebssystems von dieser ’Low-Level-Um- 
schaltung’ nichts merken, erfolgen Textausgaben weiterhin 
so, als wäre noch der ursprüngliche MODE eingeschaltet, sie 
sind also eventuell grafisch ganz interessant, aber nicht unbe¬ 
dingt lesbar. 

CALL &BD37: JUMP RESTORE 

setzt alle RAM-Sprungvektoren auf ihre Standardwerte zu¬ 
rück. Dabei handelt es sich exakt um die Einsprungpunkte ins 
Betriebssystem, die wir hier die ganze Zeit benutzt haben. 
Die Routine ist eventuell nützlich, wenn ein Maschinenpro¬ 
gramm an den Vektoren gedreht hat, um Betriebssystem- 
aufrufe abzufangen und über eigene Routinen laufen zu las¬ 
sen. JUMP RESTORE wirft solche Eindringlinge wieder aus 
dem System heraus (es sei denn, auch die JUMP-RESTORE- 
Routine wurde gepatcht). Betroffen sind davon leider auch die 
Floppy-Routinen des CPC, die sich nachträglich in die Kas¬ 
settenverwaltung einklinken. Es wird also auf Kassette umge¬ 
schaltet! 

CALL &BD5B,par,...: KL RAM SELECT 

Achtung: Nur für den CPC 6128 genießbar! Dieser CALL 
schaltet die RAM-Speicherbänke um und ermöglicht damit 
den Zugriff auf die zweiten 64 kByte. Die Anzahl der Para¬ 
meter bestimmt die RAM-Konfiguration. Für den BASIC- 
Programmierer kommen zunächst nur zwei Einstellungen 
ohne Absturzgefahr in Frage: Der Aufruf ohne Parameter 
(Konfiguration 0) stellt den Normalzustand her, in dem die 
Speicherbänke 0, 1, 2 und 3 aktiv sind. Jede Bank entspricht 
16 kByte RAM. Der Aufruf mit einem Parameter (CALL 
&BD5B,1 = Konfiguration 1) blendet im Adreßbereich 
&C000 bis &FFFF (Bildschirmspeicher) anstatt der Bank 3 
die Bank 7 ein. Damit wird ein Wechsel zwischen zwei sepa¬ 
raten Bildschirmseiten möglich, ohne daß Maschinensprache 
oder der BANKMAN in Anspruch genommen werden 
müssen! 

Verwendbar sind unter Umständen noch die Konfigurationen 
Nr. 4 bis 7, die im Adreßbereich &4000 bis &7FFF die Bank 
1 durch die Bänke 4.. .7 ersetzen. Allerdings dürfen sich dami 
weder Teile eines BASIC-Programms noch Variablen in die¬ 
sem Bereich herumtreiben, da der BASIC-Interpreter mit Si¬ 
cherheit sauer reagiert, wenn ihm mit einer spontanen Ban¬ 
kumschaltung sein ’Arbeitsmaterial’ entzogen wird. Man 
muß sich also mit MEMORY &3FFF auf die unteren 16 kBy¬ 
te (Bank 0) beschränken. 

(Matthias Uphoff/cd) 
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Wer suchet, 

der findet 

Suchen & Ersetzen 
in ASCII-Dateien 

Auf den ersten Blick scheint es kaum Vorteile zu brin¬ 
gen, Basic-Programme mit SAVE “name“,a als Textda¬ 
teien abzuspeichern: Sie benötigen in dieser Form mehr 
Platz auf der Diskette, und der Speicher- beziehungswei¬ 
se Ladevorgang dauert länger. Trotzdem bietet das 
ASCII-Format einige Möglichkeiten, die nicht zu verach¬ 
ten sind. 


An den eingebauten Basic-Editor haben sich zwar alle CPC-Be- 
sitzer mehr oder weniger gewöhnt. Leider fehlen jedoch eine 
ganze Reihe wichtiger Funktionen, wie zum Beispiel das au¬ 
tomatische Suchen und Ersetzen von Programmbefehlen oder 
Variablennamen. 

Eine ASCII-Textdatei läßt sich jedoch auch problemlos mit Hilfe 
eines Basic-Programms in ein Stringarray einiesen, indem man 
die Befehle OPEN1N, LINE INPUT #9 und CLOSEIN be¬ 
nutzt. 

Das Programm wurde konsequent in Basic realisiert, damit Sie 
es ohne Einschränkungen verändern und an Ihre Bedürfnisse 
anpassen können. Der Nachteil dieser Methode: CPC-464- 
Besitzer müssen besonders bei längeren Textdateien damit rech¬ 
nen, daß der Basic-Interpreter die berüchtigte ’Garbage Col¬ 
lection’ veranstaltet, um seine Zeichenketten aufzuräumen, wo¬ 
bei er sich mitunter für einige Zeit totstellt. Die Stringverwal- 
tung des CPC 664/6128 wurde in dieser Hinsicht verbessert, so 
daß der Effekt kaum noch spürbar ist. 

Nach dem Programmstart erscheint das Hauptmenü. Durch Ein¬ 
gabe eines Buchstabens werden die folgenden Optionen ausge¬ 
wählt: 

< L > Datei laden: Diesen Punkt werden Sie meistens als er¬ 
sten anwählen, da die anderen Optionen sonst sinnlos sind. In 
der unteren Bildschirmhälfte erscheint ein Fenster, in dem Sie 
den Dateinamen mit Namenserweiterung (also zum Beispiel 
PROG.BAS) eingeben. Er muß wie gesagt eine ASCII-Datei 
bezeichnen, da es sonst einen ’File Type Error' gibt. Nach dem 
Laden wird der Dateiname im Fenster oben links ständig an¬ 
gezeigt. 

< S > Datei speichern: Schreibt die Datei wieder auf Kasset¬ 
te/Diskette, nachdem sie mit der Funktion 'Ersetzen’ verändert 
wurde. Wie beim Laden wird der Dateiname in einem Fenster 
angefordert. 

<A> Datei anzeigen: In der unteren Bildschirmhälfte er¬ 
scheint ein Fenster mit der ersten Programm- beziehungswei¬ 
se Textzeile. Wenn Sie die Leertaste gedrückt halten, wird die 
Ausgabe fortgesetzt, bis Sie die Taste wieder loslassen oder das 
Dateiende erreicht ist. Falls der Schalter ’Druckerausgabe’ (sie¬ 
he unten) auf ’ein’ steht, wird die gesamte Datei auf dem 
Drucker ausgegeben, ohne daß Sie die Leertaste niederhalten 
müssen. 

< Z> Programmende: Beendet nach einer Sicherheitsabfrage 
das Programm und veranlaßt die Rückkkehr ins Basic. Ein Ab¬ 
bruch über ESC ist gesperrt. 

< F > Finden: Listet alle Zeilen auf, die ein bestimmtes Wort 
oder eine bestimmte Zeichenfolge enthalten. Beeinflußt wird 
der Suchvorgang durch die Schalter ’ < U > Unabhängig von 


Groß-/Kleinschreibung’ und ’ < N > Nur ganze Wörter’ (sie¬ 
he unten). Zunächst werden Sie aufgefordert, den Suchbegriff 
einzugeben. Wie bei < A> werden danach die betreffenden 
Zeilen fortlaufend angezeigt, solange Sie die Leertaste drücken. 
Falls der Schalter ’Druckerausgabe’ (siehe unten) auf ’ein’ steht, 
werden dagegen die Zeilen ohne Niederhalten der Leertaste auf 
dem Drucker protokolliert. 

Der Menüpunkt 'Finden’ ist bei der Fehlersuche sehr hilfreich: 
Sie können sich alle Programmzeilen zeigen lassen, in denen 
ein bestimmter Befehl (zum Beispiel ein Unterprogrammaufruf) 
oder Variablenname vorkommt. 

< E > Ersetzen: Diese Option funktioniert im Prinzip genau 
wie 'Finden’, das heißt, zunächst werden Sie aufgefordert, ei¬ 
nen Suchbegriff einzugeben. Danach bestimmen Sie durch eine 
zweite Eingabe eine Zeichenfolge, gegen die der Suchbegriff 
ausgetauscht werden soll. Von der Stellung des Schalters ’ < N > 
Ohne Nachfrage’ hängt es ab, ob der Vorgang vollautomatisch 
abläuft oder vor jedem Austauschvorgang eine Bestätigung (J 
für ja, N für nein) angefordert wird. Falls der Schalter ’Drucker¬ 
ausgabe’ (siehe unten) auf ’ein’ steht, werden alle geänderten 
Zeilen auf dem Drucker protokolliert. 

Der Menüpunkt 'Ersetzen’ ist zum Beispiel nützlich, wenn Sie 
in einem BASIC-Programm lange Variablennamen durch kür¬ 
zere ersetzen wollen, um Speicherplatz zu sparen. 

Bei den folgenden vier Menüpunkten handelt es sich um Schal¬ 
ter. Ein Minuszeichen hinter der Option symbolisiert die Stel¬ 
lung ’aus’, ein Pluszeichen die Stellung ’ein’. Wenn Sie den Buch¬ 
staben drücken, wechselt die Schalterstellung. 

<U > Unabhängig von GrolWKleinschreibung: Bestimmt, 
ob beim Finden und Ersetzen zwischen Groß- und Kleinschrei¬ 
bung unterschieden wird oder nicht. In der Schalterstellung ’ein’ 
findet das Programm zum Beispiel einen Variablennamen auch 
dann, wenn Sie ihn uneinheitlich groß und klein geschrieben 
haben. Bei Texten kann dieser Schalter bewirken, daß ein Wort 
auch dann erfaßt wird, wenn es zufällig am Satzanfang steht und 
deshalb groß geschrieben wird. 

<W > Nur ganze Wörter: Mit der Schalterstellung ’ein’ wird 
beim Finden und Ersetzen ein Begriff nur dann erfaßt, wenn er 
als eigenständiges Wort auftaucht, also links und rechts durch 
’Separatoren’ (Leerzeichen, Satzzeichen, Anführangsstriche...) 
eingerahmt ist. Angenommen, Sie wollen den Variablennamen 
’P’ suchen und ersetzen. Es wäre natürlich unerfreulich, wenn 
das Programm an jeder Stelle zuschlägt, an der ein ’P’ steht. 
Wenn jedoch die Option <W > eingeschaltet ist, werden nur 
Ps erfaßt, die alleine stehen! 

< N > Ohne Nachfrage: Normalerweise wird vor jedem Er¬ 
setzen des Suchbegriffs angehalten, so daß Sie bestätigen oder 
ablehnen können. Wenn dieser Schalter in der Position ’ein’ 
steht, erfolgt das Ersetzen jedoch vollautomatisch ohne Rück¬ 
frage. Diese Option sollte deshalb mit etwas Vorsicht benutzt 
werden: Sorgen Sie mit den Menüpunkten < U > und < W > 
dafür, daß es beim Erkennen des Suchbegriffs nicht zu Ver¬ 
wechslungen kommt! 

< D > Druckerausgabe: Wenn dieser Schalter in der Position 
’ein’ steht, werden bei den Funktionen Anzeigen’, 'Finden’ und 
'Ersetzen’ die Bildschirmausgaben auf dem Drucker protokol¬ 
liert. 

Zum Abschluß noch zwei Hinweise für die Anpassung des Pro¬ 
gramms an Ihren persönlichen Bedarf: Die Zeile 70 bestimmt 
die maximale Anzahl Zeilen, die das Programm laden kann 
(Standard 1000). Falls nötig können Sie hier der Variablen maxz 
einen anderen Wert zuweisen. Der String sep$ in Zeile 90 ent¬ 
hält alle Zeichen, die von der Option ’ < W > Nur ganze Wör¬ 
ter’ als Separatoren erkannt werden (siehe oben). Auch diese 
Auswahl können Sie beliebig verändern. 

(Matthias Uphoff/cd) 
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für 464-664-6128 


I 

[a 


1 

m 



1 

10 '##***** Finden & Ersetzen ##*##* 


835 ] 


20 '*** 1989 Matthias Uphoff *** 

[2138 


30 ' 

[117] 


40 '***•* Einige Voreinstellungen 

[ 1245! 


50 MODE 2:INK 0,13:INK 1,0:BORDER 3 

[ 1962 : 


60 DEFINT a-Z 

[ 553 ] 


70 maxz=1000 

[615] 


80 DIM z$(maxz ) 

[50] 


90 se p$ = " '#( )*+,-/: ;< = >@[\]' > "+CHR$(34) 

[i76i: 


100 WINDOWitl , 3 , 78 , 14,24 

[ 1055: 


110 WINDOW#2,1,80,13,25 


1309 


120 WINDOW#3,61,79,2,11 


[1164] 


130 WIDTH 255 


[ 957 ] 


140 CALL 8.BB48 :' Break sperren 


[ 479 ] 


150 KEY DEF 66,0,126 


[915] 


160 OPENOUT"X'':MEMORY HIMEM- 1 : CLOSEOUT 


2858 


170 uflag=0:wf1ag=0:nflag=0:dflag=0 


2591 


180 ' 


117] 


igO '**»** Anzeige Hauptmenue 


1122 


200 11 nks=l:rechts =21 


1377 


210 oben=l:unten=l 2 


1560] 


220 GOSUB 1790:'Rahmen zeichnen 


[1541] 


230 LOCATE 3,3:PRINT " Finden & Ersetzen' 


[2108 


240 LOCATE 3,4:PRINT "( C ) 1989 MU / DMV 


[2388 ] 

250 LOCATE 4,9:PRINT " Aktue11e Datei:" 


2223] 


260 a$= "": GOSUB 2280 


1054] 

270 1inks=22 : rechts=59 


[ 876 ] 


280 GOSUB 1790:'Rahmen zeichnen 


[1541] 

290 LOCATE 35,1:PRINT" Hauptmenue " 


1686] 

300 DATA <L> Datei laden,<S> Datei speiche 

11995 ] 

rn,<A> Datei anzeigen,<Z> Programmende 

< F > 




Finden,<E) Ersetzen,<U> Unabh. von Gross/ 




Kl einschr. ,<W> Nur ganze Woerter,<N> Erset 




zen ohne Nachfrage, < D> Druckerausgabe 





310 FOR 1=2 TO 11 


[ 598 ] 


320 READ a$:LOCATE 24,i:PRINT a$ 


[945 ] 


330 NEXT 


: 350] 


340 GOSUB 1920 :' Schalter anzeigen 


:2157] 

350 1inks=60:rechts=80 


1339] 

360 GOSUB 1790:'Rahmen zeichnen 


[1541 


370 ' 


[117] 


380 '****♦ Hauptmenue/Abfrage 


: 1059] 

390 GOSUB 2220: 'Auf Taste warten 


: 2 5 5 0 ] 

400 ON INSTR (" LSAZFEUWND",a$ ) GOSUB 440,64 

[4997] 

0,830,980,1070,1300,1660,1670,1680,1690 




410 GOTO 390 


494] 


420 ' 


: 11 7 ) 


430 '**#** Datei laden 


:696 ] 


440 GOSUB 1720:'Rahmen 1 


1470 ] 

450 LOCATE 38,17:PRINT" Laden 


1355 ] 

460 GOSUB 2020 :' Hinweise 1 


[1015] 

470 LOCATE 24,19:INPUT "Dateiname: " ,a$ 

[ 3004] 

480 CLS#3 


[371] 


490 IF a$= "" THEN 600 


[803] 


500 ERASE z$ : DIM z$(maxz) 


[ 1269 ] 

510 WINDOW SWAP 0,3 


[ 1029 ] 

520 nz=0:OPENIN a$ 


[ 789 ] 


530 WHILE NOT EOF 


: 1840] 

540 nz=nz+l 


[ 266 ] 


550 LINE INPUT#9,z$(nz) 


[1802 


560 WEND 


[390] 


570 CLOSEIN 


[ 752 ] 


580 C LS:WINDOW SWAP 0,3 


[484] 


590 GOSUB 2280:'Dateinamen anz. 


[1875] 

600 CLS#2 


[ 372 ] 


610 RETURN 


[ 555 ] 


620 ' 


[117] 


630 '****• Datei speichern 


[801] 


640 GOSUB 1720: 1 Rahmen 1 


[ 1470] 

650 LOCATE 36,17:PRINT" Speichern " 


[3062 ] 

660 IF name$="" THEN GOSUB 2140:GOTO 790 

[2274] 

670 GOSUB 2020:'Hinweise 1 


[1015] 

680 LOCATE 24,19:INPUT "Dateiname: ",a$ 

[3004] 

690 CLS#3 


[371 ] 


700 IF a$="" THEN 790 


[ 589 ] 


710 WINDOW SWAP 0,3 


1029 ] 

720 OPENOUT a$ 


[ 765 ] 


730 FOR i=1 TO nz 


[383] 


740 PRINT#9,z$(i) 


1007 ] 

750 NEXT 


[350] 


760 CLOSEOUT 


902 ] 


770 CLS:WINDOW SWAP 0,3 


[484] 


780 GOSUB 2280:'Dateinamen anz. 


: 1875 ] 

790 CLS#2 


:372 ] 


800 RETURN 


[ 555 ] 


Listing FIND 
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High-Speed - Höchsteffiziente Programmierung in Assembler. Auf dem 
Amiga jetzt nur noch 7 Sekunden für das "Apfelmännchen“! 
Mandelbrot- und Juliamenge - Mit automatischer Glättungsfunktion. 
Super-Parallel-Projektion - Frei wählbarer horizontaler Blickwinkel mit 
360 Grad: Betrachten Sie das“Fraktalobjekt“ von allen Seiten. 
Stufenloser vertikaler Blickwinkel: - Wahlweise Sicht von oben, unten, 
schräg und in der Totalen einzeln und stufenlos einstellbar. 
Voller Bedienungskomfort - Auswahl komplett mit Pulldown-Menüs. 

Wahlweise Steuerung mit der Maus oder über die Tastatur. 
Mehrere separate Bildspeicher - Abspeicherung auf dem Amiga im 
IFF-Format, Verwendung der Bilder in anderen Programmen. 
Phantastische Farbmöglichkeiten - Separate Farbzuordnung für die 
einzelnen Bilder. Animationsmöglichkeit durch Color-Cycling. 
Die Farben lassen sich auch nachträglich beliebig verändern. 


Fraktal Generator 3D 

MS-DOS ab 2.0; PC-XT/AT mit EGA-Karte oder: 
Amstrad/Schneider PC 1512. 

5 1/4“- oder 3 1/2“-Disk 


69,- DM* 


Amiga on 

Fraktal Generator OU 

69,- 

DM 

Commodore Amiga mit 512 KB, 3 1/2"-Disk. 

-Atari Qn 

Fraktal Generator OU 

Atari ST, 3 1/2“ 

69,- 

DM 

-cpc on 

Fraktal Generator OU 

CPC 464 / 664 / 6128, Kassette 

39,- 

DM 

CPC 464/664/6128, 3"-Disk 

49,- 

DM 


Demodiskette: Fraktal Generator 3D, MS-DOS 5,- DM 

★ Unabhängig von der Anzahl der bestellten Programme berechnen wir für das 

Inland 4,- DMbzw. 6.- DM Porto/Verpackung - Unverbindliche Preisempfehlung - 

Bitte benutzen Sie den Bestellcoupon auf Seite 7. 

DMV-Verlag ■ Postfach 250 ■ 3440 Eschwege 

/ / / 

/ / /Daten- und 

Medienverlag 
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810 

, 

[117] 

820 

***** Datei Anzeigen 

t 1339 ] 

830 

GOSUB 1760:'Rahmen 2 

[1141] 

840 

LOCATE 37,13:PRINT" Anzeigen " 

[2037] 

850 

IF name$= THEN GOSUB 2140:G0T0 940 

[2276] 

860 

IF dflag THEN GOSUB 2070 ELSE GOSUB 20 

[1373] 

870 

CLS#1 

[373] 

880 

FOR i=l TO nz 

[ 383 ] 

890 

PRINT#1,z$(1 ) 

[ 489 j 

900 

IF dflag THEN PRINT#8,z$(i):GOSUB 22 

[2049 ] 

00 ELSE GOSUB 2220 


910 

IF escflag THEN 940 

[ 535] 

920 

NEXT i 

[ 375 ] 

930 

GOSUB 2110: 'Datei ende 

[ 877 ] 

940 

CLS#2:CLS#3 

[ 637] 

950 

RETURN 

[ 555 ] 

960 


[117] 

970 

***** Programmende 

[1124] 

980 

GOSUB 1720:'Rahmen 1 

[1470] 

990 

LOCATE 34,17:PRINT" Programmende " 

[2398] 

1000 

LOCATE 27,19 

[ 731] 

1010 

PRINT“Das Programm beenden (J/N) ?" 

[3068] 

1020 

GOSUB 2220:'Auf Taste warten 

[2550] 

1030 

IF (a$=" N " ) OR escflag THEN CLS#2:CLS 

[ 1311] 

#3:RETURN 


1040 

IF a$ < > " J " THEN 1020 

[1246] 

1050 

MODE 2:CAL L &BB00:END 

[1509] 

1060 


[117] 

1070 

'«**** Finden 

[607] 

1080 

GOSUB 1760: Rahmen 2 

[1141 ] 

1090 

LOCATE 38,13:PRINT" Finden 

[1357] 

1100 

IF name$="" THEN GOSUB 2140:G0T0 1260 

[2341] 

1110 

GOSUB 2020 : 'Hinweise 1 

[1015 ] 

1120 

CLS# 1:PRINT#1, "***** Suchbegriff: " ; 

[2094] 

1130 

LINE INPUT#1,such$ 

[1574] 

1140 

CLS# 3 

[371] 

1150 

IF such$= THEN 1260 

[1546] 

1160 

IF uflag THEN such$=UPPER$(such$) 

[1830] 

1170 

IF dflag THEN GOSUB 2070 ELSE GOSUB 2 

[1373] 

060 



1180 

FOR i=1 TO nz 

[383] 

1190 

p=1:GOSUB 2350:'Suchen 

[2489 ] 

1200 

IF p=0 THEN 1240 

[ 730 ] 

1210 

PRINT #1,z $(1 ) 

[489] 

1220 

IF dflag THEN PRINT#8,z$(1):GOSUB 2 

[2049] 

200 

ELSE GOSUB 2220 


1230 

IF escflag THEN 1260 

[ 649 ] 

1240 

NEXT 

[350] 

1250 

GOSUB 2110: 1 Dateiende 

[ 877 ] 

1260 

CLS#2:CLS#3 

[ 637 ] 

1270 

RETURN 

[555 ] 

1280 


[117] 

1290 

1 ***** Ersetzen 

[ 402 ] 

1300 

GOSUB 1760:‘Rahmen 2 

[1141] 

1310 

LOCATE 3 7, 13:PRINT" Ersetzen " 

[2003] 

1320 

IF name$=”" THEN GOSUB 2140:GOTO 1620 

[2333] 

1330 

GOSUB 2020:'Hinweise 1 

[1015 ] 

1340 

CLS#1:PRINT#1,"***** Suchbegriff: 

[2094] 

1350 

LINE INPUT41,such$ 

[1574] 

1360 

CLS#3 

[371] 

1370 

IF such$="" THEN 1620 

[1346] 

1380 

IF uflag THEN such$=UPPER$(such$) 

[1830] 

1390 

PRINT#1,"***** Ersetzen durch: 

[2550] 

1400 

LINE INPUT#1,e r s$ 

[1643] 

1410 

GOSUB 2070:'Hinweise 2 

[2537] 

1420 

FOR i=1 TO nz 

[ 383] 

1430 

f = 0 

[ 392 ] 

1440 

p=l:GOSUB 2350:'Suchen 

[2489] 

1450 

IF p=0 THEN 1590 

[ 772 ] 

1460 

IF nflag THEN 1530 

[ 573] 

1470 

PRINT#l,LEFT$(z$(i),p-l)+CHR$(24)+M 

[6333 ] 

ID$(z$(l),p,LEN(such$))+CHR$(24)+MID$(z$(i 


),p+LEN(such$)) 


1480 

PRINT#1,"***** Ersetzen durch ":CHR 

[ 3991 ] 

$(24);ers$;CHR$(24);" (J/N)?" 


1490 

GOSUB 2220:'Auf Taste warten 

[2550] 

1500 

IF escflag THEN 1620 

[ 704 ] 

1510 

IF a$="N" THEN p=p+l:GOTO 1550 

[1102] 

1520 

IF a$ < >"J" THEN 1490 

[1208] 

1530 

z$(1)=LEFT$(z$(i),p-l)+ers$+MID$(z$ 

[3559] 

(i),p+ LEN(such$)) 


1540 

p=p+LEN(e rs$):f=-l 

[1544] 

1550 

GOSUB 2350:'Suchen 

[2137] 

1560 

IF p>0 THEN 1460 

[996] 

1570 

IF f THEN PRINT#1,z$(i) 

[1075] 

1580 

IF dflag AND f THEN PRINT#8,z$(1) 

[ 1593] 

1590 

GOSUB 2200:IF escflag THEN 1620 

[2023] 

Listing FIND 



1600 

NEXT i 

[ 375 ] 

1610 

GOSUB 2110:'Dateiende 

[ 877] 

1620 

CLS#2:CLS#3 

[ 637] 

1630 

RETURN 

[ 555 ] 

1640 


[117] 

1650 

***** Flags umschalten 

[1697] 

1660 

uf1ag=NOT uflag:GOSUB 1920:RETURN 

[1816] 

1670 

wf1ag=NOT wf1ag:GOSUB 1920:RETURN 

[3811] 

1680 

nf1ag=NOT nflag:GOSUB 1920:RETURN 

[2546] 

1690 

df 1 ag = NOT dflag: GOSUB 1920.-RETURN 

[3056] 

1700 

* 

[117] 

1710 

'«**** Rahmen 1 

[ 454] 

1720 

links=22:rechts=59 

[876] 

1730 

oben=17:unten=21 

[2249] 

1740 

GOTO 1790 

[341] 

1750 

'***** Rahmen 2 

[453] 

1760 

Iin ks = l:rechts=80 

[1414] 

1770 

oben=13:unten=25 

[1438] 

1780 

'***** Rahmen zeichnen 

[451 ] 

1790 

LOCATE links,oben:PRINT CHR$(150); 

[ 2798 ] 

1800 

PRINT STRING$(rechts-1inks-1,154); 

[2142] 

1810 

PRINT CHR$(156); 

[1037] 

1820 

FOR i=oben+l TO unten-1 

[1507] 

1830 

LOCATE 1inks,i:PRINT CHR$(149); 

[2586] 

1840 

LOCATE rechts,i:PRINT CHR$(149); 

[3718] 

1850 

NEXT 

[ 350] 

1860 

LOCATE 11nks,unten:PRINT CHR$(147); 

[2772] 

1870 

PRINT STRING$(rechts-links-1,154); 

[2142] 

1880 

PRINT CHR$(153); 

[970] 

1890 

RETURN 

[555 ] 

1900 

1 

[117] 

1910 

***** Flagstatus anzeigen 

[2564] 

1920 

1=8 

[412] 

1930 

f = uflag:GOSUB 1970 

[ 724] 

1940 

f=wflag:GOSUB 1970 

[892 ] 

1950 

f = n f1ag:GOSUB 1970 

[1242] 

1960 

f=df1ag 

[ 684 ] 

1970 

LOCATE 57,1:1=1+1 

[1742] 

1980 

IF f THEN PRINT "+" ELSE PRINT 

[1049] 

1990 

RETURN 

[ 555 ] 

2000 

1 

[117] 

2010 

'*«*** ßedienungshinw. 1 

[2256] 

2020 

LOCATE 64,6:PRINT"Abbruch durch” 

[ 1809 ] 

2030 

LOCATE 64,7:PRINT"1eere Eingabe" 

[2656] 

2040 

RETURN 

[ 555 ] 

2050 

'*«*** Bedienungshinw. 2 

[ 2251 ] 

2060 

LOCATE 63,6:PRINT"Weiter mit SPACE" 

[2167] 

2070 

LOCATE 63,7:PRINT"Abbruch mit ESC" 

[2198] 

2080 

RETURN 

[ 555] 

2090 

' 

[117] 

2100 

'«**** Datei ende 

[911] 

2110 

PRINT#1,CHR$(7);"*»*** Dateiende erre 

[3261] 

i cht 

[ESC] druecken" 


2120 

GOTO 2160 

[363] 

2130 

****** Fehlermeldung 

[440] 

2140 

LOCATE 24,19 

[590] 

2150 

PRINT CHR$(7);"Keine Datei geladen: [ 

[3305 ] 

ESC] 

druecken" 


2160 

GOSUB 2220: IF NOT escflag THEN 2160 

[4000] 

2170 

RETURN 

[ 555] 

2180 

1 

[117] 

2190 

****** Test auf ESC 

[ 696 ] 

2200 

a$=INKEY$:GOTO 2240 

[ 693] 

2210 

****** Auf Taste warten 

[1782] 

2220 

WHILE INKEY$<>"":WEND 

[1786] 

2230 

a$=UPPER$(INKEY$):IF a$="" THEN 2230 

[1890] 

2240 

escflag = (a$=CHR$(126)) 

[ 693] 

2250 

RETURN 

[ 555 ] 

2260 

1 

[117] 

2270 

****** Dateiname setzen 

[1379] 

2280 

name$=UPPER$(a$) 

[293] 

2290 

LOCATE 4,10:PRINT STRING$(15,32); 

[1170] 

2300 

LOCATE 6,10 

[ 496] 

2310 

IF n ame$="" THEN PRINT "— Keine —" 

[2306] 

ELSE 

PRINT name$ 


2320 

RETURN 

[ 555 ] 

2330 


[117] 

2340 

****** Suchen 

[ 335 ] 

2350 

IF uflag THEN a$=UPFER$(z$(i)) ELSE a 

[1841] 

$=z$(i) 


2360 

p=INSTR(p,a$,such$) 

[1140] 

2370 

IF (NOT wf1ag) OR p=0 THEN RETURN 

[ 1009] 

2380 

IF p=l THEN 2400 

[1017] 

2390 

2420 

IF INSTR(sep$,MID$(a$,p-1,1))=0 THEN 

[2389 ] 

2400 

IF p+LEN(such$)-l=LEN(a$) THEN RETURN 

[2880] 

2410 

IF INSTR(sep$,MID$(a$,p+LEN(such$),1) 

[4421] 

) > 0 

THEN RETURN 


2420 

p=p+ 1:GOTO 2360 

[1517] 
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2000 plus ROM 
gleich 3000 

Die wundersame Wandlung 
eines Amstrad-Druckers 

Der DMP 2000 ist einer der am weitest verbreiteten 
Drucker für den CPC, seinen Bruder DMP 2160 nicht 
mitgerechnet. Leider fehlt ihm so einiges an Funktion 
und Möglichkeiten, die der Nachfolger DMP 3000/3160 
mit sich brachte, darunter der IBM-Zeichensatz und ein 
erweitertes RAM. Aber nicht verzweifeln, mit ein paar 
Werkzeugen, gutem Willen und einigen Bauteilen läßt 
sich der gute alte Nadeldrucker in einen guten (fast) neu¬ 
en Nadeldrucker verwandeln. 


Zuerst ein Hinweis: Auch wenn der DMP 2000 nicht der Neu¬ 
este ist, das Öffnen des Gerätes läßt eventuell noch vorhande¬ 
ne Garantieansprüche erlöschen, es sollte sich also jeder Bastler 
über diesen Punkt klar sein. Außerdem ist unbedingt der Netz¬ 
stecker zu ziehen, so mancher Möchtegern-Elektroniker hat sich 
auf diese Weise schon ein paar stehende Haarspitzen geholt, ein 
nicht auf die leichte Schulter zu nehmendes Problem. So, jetzt 
geht's aber los: 

Der Umbau 


Der Umbau gliedert sich in zwei Abschnitte: Dem Austausch 
des ROMs und dem Ausbau des Pufferspeichers von 2 auf 8 
kByte. Beide Schritte können auch jeweils ohne den anderen 
durchgeführt werden. 

1. Austausch des ROMs 

Als erstes benötigen Sie ein ROM des DMP 3000. Dieses hat 
eine Speicherkapazität von 32 kByte, während im DMP 2000 
ein 16-kByte-EPROM steckt. Daher sind für den Umbau Än¬ 
derungen an der Platine nicht zu vermeiden. 

Nachdem Sie den Netzstecker des Druckers aus der Steckdo¬ 
se gezogen haben, öffnen Sie das Gehäuse, indem Sie die sechs 
Schrauben auf der Vorderseite lösen und das Oberteil vorsich¬ 
tig abheben. Vorher muß noch das Farbband entfernt werden. 
Auf der Platine sind zwei ICs gesockelt. Das größere ist das 
EPROM; es ist auch an einem Aufkleber zu erkennen. Heben 
Sie es vorsichtig mit einem Schraubenzieher oder ähnlichem ab. 
Dann lösen Sie die beiden Schrauben, mit denen die Platine be¬ 
festigt ist und heben die Leiterplatte aus den Befestigungen her¬ 
aus. Die vielen Steckverbindungen brauchen nicht gelöst zu 
werden. 

Jetzt suchen Sie drei Lötpunkte oberhalb des EPROM-Steck- 
platzes, die mit J1 gekennzeichnet sind. Zwei Lötpunkte sind 
auf der Rückseite der Platine miteinander verbunden. Mit ei¬ 
ner scharfen Klinge trennen Sie diese beiden Punkte und ver¬ 
binden statt dessen den mittleren mit dem vorher unbenutzten. 
An den jetzt unbenutzten Lötpunkt löten Sie ein Kabel, das bis 
zum Pin 27 (A 14) des ROM-Sockels reicht. Dieser Pin 27 ist 
mit Pin 28 und damit mit +5 Volt verbunden. Diese Verbindung 
müssen Sie ebenfalls durchtrennen. Als nächstes löten Sie das 


vorher angelötete Kabel an Pin 27 an. Jetzt kann das DMP 3000 
ROM mit der Einkerbung in Richtung Centronicsbuchse in den 
Sockel eingesetzt werden. 

2. Erweiterung des Druckerpuffers 

Der Austausch des RAMs ist weniger aufwendig. Hierzu brau¬ 
chen Sie ein statisches 8-kByte-RAM mit der Bezeichnung 
6264. Den 24-poligen RAM-Baustein im Drucker mit der Be¬ 
zeichnung 6116 erkennen Sie daran, daß er in einem zu großen 
Sockel steckt. Zunächst suchen Sie wieder drei Lötpunkte, die 
mit J3 gekennzeichnet sind. Dann ändern Sie die Verbindung 
des mittleren Punktes wie oben bei dem ROM um. Jetzt kann 
das neue RAM gegen das alte ausgetauscht werden. Vor der 
Centronicsbuchse befindet sich ein Jumper, den Sie noch um¬ 
stecken sollten. Dadurch wird das AFD-Signal an Pin 14 der 
Buchse geschaltet. Es bewirkt einen Zeilenvorschub, falls ein 
Low-Pegel anliegt. Die CPCs machen davon keinen Gebrauch. 
Jetzt brauchen Sie nur noch den Drucker wieder zusammenzu¬ 
schrauben und die Arbeit ist getan. Nach dem fertigen Umbau 
können Sie Ihre Arbeit prüfen. Schalten Sie den Drucker in den 
Epson-Modus. Dann können Sie kursiv in NLQ drucken: 

PRINT # 8, CHR$( 27) w ra“CHR$(0) CHR$(27) “x“CHR$( 1) CHR$(27) “4“; 
“NLQ-kursiv drucken mit einem DMP 3000 ROM“ 

Der DMP 3000 besitzt ein neues Steuerzeichen, das den 
Drucker auf die gewünschte Kompatibilität einstellt: “ESC m 
< n > “. < n > steht für eine Zahl von 0 bis 2: 0: kennzeich¬ 
net den EPSON FX-Modus 1: steht für dem IBM-Zeichensatz 
Nr. 1 und 2: für den IBM-Zeichensatz Nr. 2. 

Bei den DIP-Schaltern hat sich die Bedeutung von DS1-7 und 
DS1-8 geändert. Jetzt wird damit der Standardzeichensatz aus¬ 
gewählt: 


Zeichensatz 

DS1-7 

DS1-8 

Epson FX-Standard 

OFF 

OFF 

Epson FX-NLQ 

ON 

OFF 

IBM #7 

OFF 

ON 

IBM #2 

ON 

ON 


Ein weiterer Steuercode, den zwar auch der DMP 2000 ver¬ 
steht, jedoch den meisten Besitzern dieses Druckers unbekannt 
sein wird, ist: “ESC ! <n>“ <n> ist eine Bit-signifikante 
Zahl, mit der man, mit Hilfe eines gesetzten Bits, die Schrift¬ 
art einstellen kann. 

Bit 0: Elite 
1: immer 0 
2: Schmalschrift 
3: Fettdruck 
4: Doppeldruck 
5: Doppelte Breite 
6: immer 0 
7: Kursivdruck 

Die Standard-Schrift wird mit n=0 gewählt. Auch gibt es beim 
DMP 2000 die Möglichkeit, daß der Drucker alle ASCII-Werte 
der ankommenden Daten hexadezimal ausgibt. Dazu müssen 
die Tasten LF und FF beim Einschalten gedrückt werden. Als 
Test können Sie dieses Programm eingeben: 

10 F0R i=0 to &7F 
20 PRINT # 8, CHR$(i); 

30 NEXT 

Zum Schluß noch ein Tip für CPC-Besitzer: Da Ihr Compu¬ 
ter nur über eine Sieben-Bit-Schnittstelle verfügt, müssen Sie 
das achte Bit mittels Software einstellen, um die Grafikzeichen 
auf das Papier zu bekommen. Die dazu nötigen Steuercodes ste¬ 
hen im Druckerhandbuch. 

(Michael Kruse/jb) 


8’89/90 Sonderheft 


CPC 111 




Tips & Tricks 


Der CPC-664/ 
6128-Emulator 
für den CPC 464 

BASIC 1.1 auf 
AMSTRADs Kleinsten 


Viele der Programme, die wir im 
Laufe der Zeit veröffentlicht haben, 
haben einen kleinen Mangel, den die 
Besitzer eines CPC 6128 oder 664 
überhaupt nicht bemerken, Besitzer 
eines CPC 464 allerdings um so 
mehr, denn auf ihrem Computer 
sind diese Programme kaum oder 
sogar überhaupt nicht zum Laufen 
zu bekommen. 



Woran liegt das, wird sich so mancher frischgebackene CPC- 
Anwender fragen. Nun, dies ist ziemlich einfach zu erklären: 
BASIC ist Schuld! 

Während der Kleinste, der 464, mit dem Locomotive-BASIC 
1.0 ausgeliefert wurde, bekamen seine Nachfolger 664/6128 eine 
verbesserte Version 1.1 ins ROM gesetzt. Der Erfolg: Das um 
neue Befehle erweiterte BASIC 1.1 wird nicht hundertprozen¬ 
tig vom 464 akzeptiert. 

Keine Möglichkeit oder etwa doch...? 

Wir haben für den Fall, daß Sie Besitzer des CPC 464 sind und 
auch die anderen Programme nutzen wollen, eine, wie wir glau¬ 
ben, sehr gute Lösung parat: den EMULATOR. 

Er ist ein Maschinenprogramm, welches den CPC 464, oder 
besser sein BASIC, um die erweiterten Befehle des BASIC 1.1 
bereichert. Dabei werden die Befehle nicht als RSXe eingebun¬ 
den, sondern als 'echte’ Befehle, somit können Programme der 
'großen Brüder’ fast ohne Probleme ablaufen. Das 'fast' steht 
für einen ganz geringen Prozentsatz, der sich nicht sofort zu er¬ 
kennen gibt. Hier kommt es aufs Probieren an. 

Die Befehle 

CLEAR INPUT dient zum Löschen des Tastaturpuffers. 
COPYCHR$( # WINDOW) liest ein Zeichen an der angege¬ 
benen Cursor-Position im angegebenen Textfenster. 
CURSOR Schalterl,Schalter2 ermöglicht eine Ab- oder An¬ 
schaltung des Cursors im Programmlauf. 
DEC$(numerischer Ausdruck, Formatstring) ist eigentlich 
auch schon auf dem CPC 464 vorhanden, hierbei jedoch ist der 
Interpreterfehler ausgemerzt, der nach DEC$ zwei geschlos¬ 
sene Klammem fordert. 

FILL Farbstift ist eine schnelle Füllroutine, die an der aktuel¬ 
len Position des Grafikcursors beginnt, also mit MOVE x,y be¬ 
stimmt werden muß. 

FRAME ist ein Synchronisierungsbefehl für den Strahlrück¬ 
lauf, damit wird das Scrolling sanfter. 

GRAPHICS PAPER Farbstift wird benötigt, um die Farbe des 
Grafikhintergrundes bei Textausgabe auf der Grafikposition und 
beim MASK-Befehl zu bestimmen. 

GRAPHICS PEN Farbstift, Hintergrund wählt die Schreib¬ 


farbe und den Hintergrund für eine Grafik aus, wobei der zweite 
Parameter für folgendes gilt: 

— 0 = normal überschreibend 

— 1 = transparent. 

MASK Bitmaske erstellt anstatt der durchgehenden Linien un¬ 
terbrochene, wobei der Wert ’Bitmaske’ (eine Zahl zwischen 0 
und 255) die Strichelung bestimmt. 

PEN # WINDOW, Farbstift, Hintergrund, ebenfalls vom 
CPC 464 bekannt, nur kann hierbei mit dem letzten Parame¬ 
ter bestimmt werden, ob der Hintergrund transparent (1) oder 
normal (0) erscheinen soll. 

MERGE und CHAIN MERGE“Dateiname“ diesmal auch 
in einwandfreiem Zustand beim Diskettenbetrieb. 

Die Parameterübergabe bei CALL und RSX kann jetzt direkt 
vorgenommen werden, hier ein Beispiel: 

Statt a$=“*.BAK“: IERA,@a$ 
jetzt IERA,“*.BAK“ 

Noch ein paar Hinweise 

Sollte ein CPC-664/6128-Programm auf Ihrem CPC 464 ein¬ 
mal mit 'SYNTAX ERROR’ abbrechen, so editieren Sie die Zei¬ 
le und drücken sofort die ENTER-Taste, danach sollte die Zei¬ 
le übernommen werden. 

Tippen Sie zuerst den Lader für das Maschinenprogramm ab, 
und speichern Sie ihn auf Datenträger, danach starten Sie ihn 
mit RUN, er erzeugt das Binärfile. Jetzt noch das BASIC-Pro- 
gramm abtippen, abspeichem und mit RUN starten, es lädt den 
Binärteil nach. 

Kassettenbesitzer sollten zwei Kassetten bereithalten. Auf der 
ersten Kassette speichern Sie Listing 2, dann tippen Sie Listing 
1 ab und speichern es auf der zweiten Kassette ab. Danach die 
erste wieder einlegen und Listing 1 mit RUN starten, das Bi- 
närfile wird nach dem BASIC-Teil auf die Kassette geschrieben. 
Wenn Sie jetzt zurückspulen, können Sie den Emulator mit 
RUN“EMU“ starten. 

(Matthias Uphoff/jb) 
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5 'Lader fuer 664/6128-Emu1ator [1585] 

10 SYMBOL AFTER 256 [1408] 

20 MEMORY &A1FF [450] 

30 SYMBOL AFTER 240 [1392] 

40 LOAD"emu.bin" [1942] 

50 CALL &A200 [597] 

60 PRINT"BASIC 1.1 installiert" [1931] 


1000 ' Generated by DataGen 1.0 
1010 MEMORY &A1FF 

1020 FOR ad r = &A200 TO 8.A639 STEP 8 
1030 FOR i=ad r TO adr+ 7 
1040 READ b$ 

1050 byte=VAL(+b$) 

1060 POKE i.byte 

1070 NEXT i 
1080 NEXT adr 

1085 SAVE"emu.bln",b,&A200,&439 
1090 END 

1100 DATA 3E,C3,32,16,AC,21,83,A2 
1110 DATA 22,17,AC,32,19,AC,21.8E 
1120 DATA A2.22,1A,AC,32,07,AC,21 
1130 DATA 9A,A2,22,08,AC,32,04,AC 
1140 DATA 21,B4,A4,22,05,AC,32,OD 
1150 DATA AC,21,2A,A3,22,OE,AC,32 
1160 DATA 01,AC,21,AB,A2,22,02,AC 
1170 DATA 32,90,BB,21,D8,A2,22,91 
1180 DATA BB,32,DE,BB,21,11,A3,22 
1190 DATA DF,BB,32,CO,BB,21,F5,A2 
1200 DATA 22,C1,BB,32,C3,BB,21,FA 
1210 DATA A2,22,C4,BB,21,53,A3,22 
1220 DATA E3,BD,21,62,A3,22,E9,BD 
1230 DATA 3A,80,BC,FE,C3,C8,32,36 
1240 DATA A6,2A,81,BC,22,37,A6,3E 
1250 DATA C3,32,80,BC,21,B2,A2,22 
1260 DATA 81,BC,C9,11,El,A5,CD,27 
1270 DATA E3,DO,Fl,C3,61,DF,21,El 
1280 DATA A5,CD,13,E3,DO,7E,23,CI 
1290 DATA C1,C9,FE,C5,D0,D6,BA,D1 
1300 DATA EB,4F,06,00,21,IC,A6,09 
1310 DATA C3,BB,DD,21,91,B2,75,C3 
1320 DATA 68,A2,E5,3A,36,A6,32,80 
1330 DATA BC,2A,37,A6,22,81,8C,CD 
1340 DATA 80,BC,21,80,BC,36,C3,21 
1350 DATA B2,A2,22,81,BC,El,D8,C8 
1360 DATA FE,1A,37,3F,CO,B7,37.C9 
1370 DATA CD,D5,A5,F3,D9,CB,59,D9 
1380 DATA FB,CO,El,E3,CD,55,DD,30 
1390 DATA OA,3E,02,CD,FB,CI,E5,CD 
1400 DATA 9F,BB,El,E3,E9,CD,DB,A5 
1410 DATA 18,03,CD,DE,A5,F3,D9,CB 
1420 DATA 59,D9,FB,C0,E1,E3,CD,55 
1430 DATA DD,DC,OE,A3,E3,E9,CD,4B 
1440 DATA C2,CD,D8,A5,F3,D9,CB,59 
1450 DATA D9,FB,CO,CD,55,DD,DO,3E 
1460 DATA 04,CD,F8,C1,E5,CD,59,BC 
1470 DATA El,C9,2B,7E,FE,20,28,FA 
1480 DATA FE,2C,C0,2B,E5,2A,34,AE 
1490 DATA CD,3F,DD,21,28,A6.CD.AA 
1500 DATA FF,El,38,08,FE,BB,CO,CD 
1510 DATA 93,BB,18,03,CO,El,BB,Dl 
1520 DATA C3,4F,DO,3A,2F,A6,2F,32 
1530 DATA 33,A6,CD,3C,18,AF,32,33 
1540 DATA A6,C9,3A,33,A6,B7,20,OF 
1550 DATA 3A,39,B3,B8,C2,CC,Bl,3A 
1560 DATA 30,A6,B7,CA,CC,B1,C9,3A 
1570 DATA 46,B3,B7,3A,2F,A6,20,11 
1580 DATA 07,32,2F,A6,3A,38,B3,47 
1590 DATA DA.CC,Bl,3A,39,B3,47,18 
1600 DATA DE,E5,D5,C5,21,CF,B1,5F 


[2863] 
[ 450 ] 

[1122 ] 
[ 1011 ] 
[315] 

[ 465 ] 
[294] 

[ 375 ] 
[547 ] 
[1427] 
[ 110 ] 
[1312] 
[1277] 
[1313] 
[1745] 
[1184] 
[1627] 
[1019] 
[1575] 
[1810] 
[1232] 
[1543] 
[1537] 
[2104] 
[1770] 
[944 ] 
[1562] 
[1497] 
[1285] 
[1633] 
[751] 

[1413] 
[1126] 
[1430] 
[1480] 
[1421] 
[1269] 
[1051 ] 
[ 1082 ] 
[1455] 
[2199 ] 
[ 1355 ] 
[1527] 
[1531] 
[2240] 
[1024] 
[1468] 
[1153] 
[1225] 
[1763] 
[1804] 
[1770] 
[ 754] 

[1266] 
[714] 
[921] 
[605] 

[ 1876] 
[1515] 
[1267] 
[1282] 
[ 1766] 
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1610 

DATA 

3A,07,B2,ED,44,47,AF,CB 

[1472] 

1620 

DATA 

01,30,05,CB,03,30,01,86 

[2015 ] 

1630 

DATA 

23,10,F4,4F,7B,32,2F,A6 

[960] 

1640 

DATA 

3A,30,A6,B7,20,0A,2A,38 

[ 1225 ] 

1650 

DATA 

B3,7D,AC,A1,AC,C1,18,01 

[1524] 

1660 

DATA 

Fl,47,Dl,El,C3,CC,B1,CA 

[1180] 

1670 

DATA 

A3,FE,CD,86,0C,32,3A,B3 

[1271] 

1680 

DATA 

CD,1A,16,CD,FF,16,D2,68 

[1264] 

1690 

DATA 

A4,E5,FD,El,05,DD,El,CD 

[1183] 

1700 

DATA 

A9.0B,3A,3A,B3,57,AE,Al 

[1195 ] 

1710 

DATA 

28,7E,3A,38,B3,5F,AE,Al 

[1188] 

1720 

DATA 

28,76,06,00,FD,23,CD,2D 

[458] 

1730 

DATA 

0C,3A,34,B3,FD,95,38,52 

[1326] 

1740 

DATA 

7A,AE,A1,28,4D,7B,AE,A1 

[2160] 

1750 

DATA 

20,EA,18,46,AE,77,CB,20 

[1201] 

1760 

DATA 

E5,CB,01,DC,05,OC,7A,AE 

[1551] 

1770 

DATA 

Al,28,12,7B,AE,Al,28,OD 

[1077] 

1780 

DATA 

CB,CO,CB,48,20,07,DD,2B 

[1427] 

1790 

DATA 

DF,8A,A4,DD,23,CB,AO,CB 

[1782] 

1800 

DATA 

09,El,E5,CB,09,DC,F9,OB 

[984] 

1810 

DATA 

7A,AE,Al,28,12,7B,AE,Al 

[1767] 

1820 

DATA 

28,0D,CB,E0,CB,68,20,07 

[ 733] 

1830 

DATA 

DD,23,DF,8A,A4,DD,2B,CB 

[1367] 

1840 

DATA 

01,El,3A,36,B3,FD,95,30 

[1917] 

1850 

DATA 

OF,FD,2B,CD,13,OC,7B,AE 

[1894] 

1860 

DATA 

Al,28,05,7A,AE,Al,20,A4 

[1286] 

1870 

DATA 

2A,34,A6,7D,B4,C8,2B,22 

[1518] 

1880 

DATA 

34,A6,DF,78,A4,C3,D3,A3 

[1234] 

1890 

DATA 

7B,A4,FD,2A,89,AE,2B,56 

[2087 ] 

1900 

DATA 

2B,5E,2B,22,89,AE,6E,26 

[ 1822 ] 

1910 

DATA 

00,C9,8D,A4,FD,C5,D5,2A 

[466] 

1920 

DATA 

89,AE,01,03,00,CD,18,F6 

[1345] 

1930 

DATA 

38,17,EB,22,89,AE,DD,E5 

[847] 

1940 

DATA 

Dl,FD,E5,C1,2B,72,2B,73 

[ 1147] 

1950 

DATA 

2B,71,2A,34,A6,23,22,34 

[ 1282 ] 

1960 

DATA 

A6,Dl,CI,C9,FE,03,28,41 

[1373] 

1970 

DATA 

FE,AB,28,57,FE,9F,CA,4A 

[1386] 

1980 

DATA 

A5,FE,2C,28,03,FE,28,CO 

[1562] 

1990 

DATA 

3E,02,B9,20,64,Fl,CI,F5 

[2185 ] 

2000 

DATA 

3E,F8,B8,C0,79,FE,EE,28 

[1224] 

2010 

DATA 

15,FE,F5,CO,7E,2B,FE,72 

[1151] 

2020 

DATA 

20,FA,7E,3C,20,F6,23,CD 

[1430] 

2030 

DATA 

3F,DD,CD,37,DD,28,Fl,CD 

[999 ] 

2040 

DATA 

FB,CE,CD,37,DD,2C,C3,F5 

[1746] 

2050 

DATA 

F8,3E,0D,BB,C0,2A,34,AE 

[1472] 

2060 

DATA 

CD,3F,DD,FE,7C,28,03,FE 

[1396] 

2070 

DATA 

83,C0,E1,2A,C2,B0,CD,21 

[ 556 ] 

2080 

DATA 

FB,37,C9,3E,05,BB,C0,3E 

[ 1681] 

2090 

DATA 

1A,91,CO,B8,CO,F1,CD,F5 

[1012] 

2100 

DATA 

CI,CD,D3,CI,CD,37,DD,29 

[ 526] 

2110 

DATA 

CD,60,BB,E5,CD,19,FA,El 

[1119] 

2120 

DATA 

C9,3E,49,B9,C0,F1,C1,F5 

[ 872 ] 

2130 

DATA 

3E,D0,B8,C0,3E,93,B9,C0 

[1553] 

2140 

DATA 

F1,E5,00,00,AF,CD,OA,FF 

[1716] 

2150 

DATA 

El,C9,F1,C1,F5,3E,C8,B8 

[1410] 

2160 

DATA 

CO,3E,D6,B9,CO,3E,8B,BE 

[998] 

2170 

DATA 

CO,Fl,11,61,A5,1B,C3,DA 

[846] 

2180 

DATA 

C8,06,00,FF,FF,C9,00,CD 

[2264] 

2190 

DATA 

55,DD,38,10,3E,02,CD,FB 

[ 1856] 

2200 

DATA 

C1,B7,CC,84,BB,C4,81,BB 

[393] 

2210 

DATA 

CD,55,DD,DO,3E,02,CD,FB 

[1575] 

2220 

DATA 

CI,B7,CA,7E,BB,C3,7B,BB 

[ 668] 

2230 

DATA 

23,01,E4,BB,FE,BA,CA,18 

[2158] 

2240 

DATA 

C2 , FE,BB,C2,C6,DD,CD,55 

[917] 

2250 

DATA 

DD,38,0A,CD,4B,C2,CD,D8 

[ 599 ] 

2260 

DATA 

A5,CD,55,DD,DO,3E,02,CD 

[2270] 

2270 

DATA 

FB,CI,32,30,A6,C9,CD,4B 

[889 ] 

2280 

DATA 

C2,E5,DF,C7,A3,E1,C9,CD 

[950] 

2290 

DATA 

55,DD,38,OA,CD,67,CE,32 

[1889] 

2300 

DATA 

2F,A6,CD,55,DD,D0,3E,02 

[1892] 

2310 

DATA 

CD,FB,C1,32,31,A6,C9,CD 

[2316] 

2320 

DATA 

09,BB,38,FB,C9,CF,A9,92 

[ 1262 ] 

2330 

DATA 

CF,F6,97,CF,F4,95,CF,Fl 

[ 723] 

2340 

DATA 

95,46,49,4C.CC,DD,47,52 

[ 1078] 

2350 

DATA 

41,50,48,49,43,D3,DE,4D 

[ 895 ] 

2360 

DATA 

41,53,CB,DF,46,52,41,4D 

[ 1 794 ] 

2370 

DATA 

C5,EO,43,55,52,53,4F,D2 

[1101] 

2380 

DATA 

El,43,4C,45,41,52,20,49 

[1288] 

2390 

DATA 

4E,50,55,D4,E2,43,4F,50 

[ 1622 ] 

2400 

DATA 

59,43,48,52,A4,7E,44,45 

[1573] 

2410 

DATA 

52,D2,49,00,AE,A5,88,A5 

[952] 

2420 

DATA 

B7,A5,19,BD,67,A5,CF,A5 

[1232] 

2430 

DATA 

94,95,AE,AF,BC,BD,00,FF 

[1309] 

2440 

DATA 

00,FF,FF,00,00,00,00,00 

[1953] 

2450 

DATA 

00 ,00,00,00,00,00,00-, 00 

[1005] 

Listing Emulator 
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Klein, aber oho! 

Erstaunliches aus einem kByte 

Wer will schon immer zwanzig Seiten staubkorngroße 
Listings eingegeben? Lange Werke sind derweilen des In¬ 
halts Feind, oder wie schon Shakespeare philosophierte: 
“Kürze ist des Witzes Seele“. 

Befassen wir uns also einmal mehr mit den Program¬ 
men, die durch ihre Präzision und Kompaktheit beste¬ 
chen. Was dabei zuweilen zustande kommt, ist in größ¬ 
tem Maße erstaunlich, wie die folgenden Kurzprogram¬ 
me eindrucksvoll belegen. 


Programm 1: BIG 

Problemstellung: Sie wollen dem Finanzamt die Antwort auf 
die Frage entlocken, ob Sie nicht die ein oder andere Mark am 
Jahresende zurückerstattet bekommen. Sie wissen, daß die Her¬ 
ren und Damen auf so manchem Ohre taub sind und beschlie¬ 
ßen, die Frage in Form eines Banners zu präsentieren, wobei 
jeder einzelne Buchstabe aus lauter Fragezeichen gebildet wird. 
BIG hilft Ihnen dabei. Sie starten das Programm und werden 
daraufhin aufgefordert, einige Parameter einzugeben. Zuerst 
wird eine Zeichenkette abgefragt. Um beim Finanzamt-Beispiel 
zu bleiben: die Kette könnte lauten: “Krieg’ ich Geld oder 
nicht?“ 

Die nächsten Werte wären x- und y-Streckung, die die Größe 
der Bannerzeichen darstellen. Der x-Wert kann dabei ins Un¬ 
ermeßliche reichen, der y-Wert sollte nicht über 9 gehen, da es 
sonst Schwierigkeiten mit der Größe des Papiers geben wird. 
Das vierte Parameter ist die Nummer des Zeichens, das als Fül¬ 
lung der Zeichenkette dienen soll. In unserem Beispiel wäre ein 
Fragezeichen angebracht. Fertig! Wenn nun der Drucker ein¬ 
geschaltet ist, erhalten wir einen riesigen Ausdruck, der auf¬ 
fällig genug ist, um Ihr Anliegen deutlich zu machen. 

(Michael Emmer/jf/cd) 


Programm 2: 
Schriftvergrößerung 

Bisher mußten Titelscreens mit großem 
Aufwand erstellt werden und wenn sie 
auch nur bildschirmgroße Worte darstel¬ 
len sollten. 

Wenn Sie ihr neuestes Programm mit ei¬ 
nem solchen relativ einfachen Titelbild 
schmücken wollen, dann hilft Ihnen das 
zweite Beispiel kurzer Programmier¬ 
kunst. 

Sie können hiermit zwei maximal sieben 
Zeichen umfassende Ketten so vergrö¬ 
ßern, daß beide nach Erstellen den ge¬ 
samten Bildschirm einnehmen. 

Was ist zu tun? Laden Sie das Programm, 
sorgen Sie dafür, daß sich eine Datendis¬ 
kette im Laufwerk befindet und geben Sie 
die beiden Zeichenketten ein. Das Pro¬ 
gramm errichtet nun den Bildschirm und, 
wenn es mit Schreiben fertig ist, sichert 
es ihn auf Diskette als normale 17 kByte große Binärdatei. Diese 
kann nach herkömmlicher Weise in den Bildschirmspeicher ge¬ 
laden werden: LOAD -Name-.bin“,&C000 
Das Programm arbeitet in MODE 2; das heißt, daß die fertige 
Datei, will man sie originalgetreu zurückholen, auch in MODE 
2 geladen werden muß. Verändert man den MODE vor dem La¬ 
devorgang, so ergeben sich interessante Effekte. In MODE 1 
erhalten die Buchstaben Schatten, in MODE 0 erscheinen se¬ 
henswerte Effekte, die durch gezielte Farbwahl in interessan¬ 
ter Weise beeinflußt werden können. 

(Tobias Sander/jf/cd) 

Programm 3: Calculat 

Wer sich mathematisch betätigt, stößt irgendwann auf jenen un¬ 
geliebten Zweig dieser oft gehaßten Wissenschaft: Bruchrech¬ 
nung! Alles wäre so einfach, wenn es simple Methoden gäbe, 
die in den Zahlen verborgenen Werte kgV (kleinstes gemeinsa¬ 
mes Vielfache) und ggT (größter gemeinsamer Teiler) zu bestim¬ 
men. Hat man die erst einmal berechnet, dann, ja dann ist 
Bruchrechnung kein Problem mehr. 

Der CPC kann’s kurz und knapp mit weniger als 1000 Bytes. 
19 Zeilen reines BASIC-Listing helfen Ihnen ab sofort, Herr der 
Mathematik zu werden. 

Sie geben dem Computer Zähler und Nenner, der berechnet Ih¬ 
nen die gesuchten Werte. Wem es dann immer noch zu schwierig 
ist, der kann sich um diese Zeilen ein Programm basteln, das 
in der Lage ist, dem Benutzer die ganze Arbeit der Bruchrech¬ 
nung abzunehmen. 

(Jens Budinger/jf/cd) 

Programm 4: Code 

Ob Geheimagenten, Datenschützer oder heimlich Liebende, alle 
haben ein existentielles Problem: wie verschlüssel ich meine 
Meldungen, ohne daß sie jede beliebige Person entziffern kann? 
Codierung heißt hier das Zauberwort. Für satzgroße Statements 
hilft Ihnen das Programm “Code“ weiter, das Sätze per bewähr¬ 
tem XOR-Verfahren für Unbefugte unkenntlich macht. Das 
funktioniert so: Sie geben Ihren Satz ein und bestätigen per 
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RETURN-Taste. Danach wird ein Codewort abgefragt, mit dem 
der Satz verschlüsselt wird. Nur wer im Besitz dieses Wortes 
ist, kann die Meldung wieder decodieren. 

Die verschlüsselten Daten können auf Diskette gelagert und wei¬ 
tergereicht werden, auf daß der Empfänger des scheinbaren Da¬ 
tensalates mit Hilfe von “Code“ den wahren Sinn des Durch¬ 
einanders verstehen kann. 

(Michael Quast/jf/cd) 

Programm 5: Dcode 

Wer sich in Assemblerprogrammierung übt, steht bisweilen vor 
dem Problem, die Anhäufung der entstehenden Daten in DATA- 
Zeilen eines BASIC-Programms einzubinden. Auch Zeichen¬ 
sätze, die per Symbol-Definition festgelegt wurden, tauchen in 
langen Datenketten auf, deren Übernahme in BASIC-Program- 
me oft nur mit erheblicher Fleißarbeit verbunden ist. 

Dcode nimmt sich dieses Problems an und sorgt für einen prä¬ 
zisen Datentransfer aus einer Binärdatei in ein BASIC-Pro- 
gramm. Die Datei muß auf der Diskette vorhanden sein. Dann 
kann Dcode gestartet werden. Sie geben dem Programm den 
Namen der Datei an und den des Basic-Programms, in welches 
die Daten geschrieben werden sollen. Die erste Zeilennummer 
wird noch abgefragt, den Rest erledigt das Programm von al¬ 
leine. 

Für Bastler: 

— Wenn in Zeile 195 ein CALL &BB06 eingefügt wird, erhält 
man eine Pause, die für eventuelle Diskettenwechsel genutzt 
werden kann. 

— Eine Veränderung der Variable w in 0 oder 8 bewirkt eine 
Ausgabe der Datei auf den Bildschirm oder den Drucker. 

— Will man nur Teile eines Binärfiles umwandeln, muß man 
die Variablen b, 1 und s mit Startadresse, Länge und Einsprung¬ 
adresse füttern. 

— Wer den Memory-Befehl verändert, sollte daran denken, daß 
der Diskettenbuffer 4 kByte Speicher benötigt. 

— Zum Abspeichem eines aktiven Zeichensatzes aus dem RAM 
gelten folgende Adressen: 

SYMBOL AFTER x (x=PEEK(&B 294) 464/x=PEEK( &B734) 664/6128) 

Beginn Zeichensatz: &B296 (464) und &B736 (664/6128) 

(Wolf-Thomas Gerner/jf/cd) 

Programm 6: Fittometer 

Wenn man den lieben langen Tag am Computer sitzt, drohen 
die wenig strapazierten Muskelansammlungen zu untrainier¬ 
tem Gewebe zu mutieren. Fettpolster wachsen schneller und 
man schlappt sichtlich ab. Manche stehen zweimal am Tage auf, 
um Nahrung zu bekommen, doch reicht diese Form der Bewe¬ 
gung meist nicht aus, um Oberschenkel- und Wadenmuskulatur 
in solchem Maße zu reizen, daß diese mit dem Wachstum be¬ 
ginnen. Der letzte Ausweg heißt dann Doping. Folge: Immer 
mehr Menschen wandern vom Computer weg, um Olympia¬ 
sieger zu werden! Dem muß entgegengewirkt werden. 

Das Programm Fittometer dient hier der schnellen Abhilfe die¬ 
ses Mißstandes, zumindest stärkt es die Armmuskulatur, und 
bei regelmäßiger Anwendung werden Sie bald zum stärksten 
Eintipper der Welt. 

Laden Sie Fittometer in den CPC und starten Sie das Pro¬ 
gramm. Sie haben nun die Möglichkeit, den Level zu bestim¬ 
men. Zu Beginn empfiehlt sich der Anfänger-Level, denn mer¬ 


ke: Auch Arnold S. Arme waren einst spindeldürr, und auch 
er begann das Training mit Kleinstgewichten. 

Dann kann die erste Trainingseinheit starten. Sie rütteln nun 
den Joystick von links nach rechts und wieder zurück, bis Ihr 
Arm abfällt, denn die Zeit ist gegen Sie. Durch Ihre Bewegung 
wird ein Balken auf dem Bildschirm verlängert, und erst wenn 
dieser eine bestimmte Größe erreicht hat, werden Sie erlöst. 
Also, ans Werk... 

(Thomas Hombert/Frank Puschin/jf/cd) 

Programm 7: Fractree 

Der Programmname erklärt bereits die Wirkungsweise dieser 
kleinen Routine. Es werden fraktale Baumstrukturen auf den 
Bildschirm gezeichnet. Die Vielfalt der verschiedenen Struk¬ 
turen, die durch Zufallszahlen und Variationen der Parameter 
möglich sind, ist erstaunlich. 

Betrachtet man sich die entstehenden Baumstrukturen genau¬ 
er, so wird man feststellen, daß ab bestimmten Parametergren¬ 
zen die Ähnlichkeit mit in der Natur vorkommenden Bäumen 
verlorengeht. Diese Frage aber, welche fraktalen Parameter in 
der Natur vorhanden sind und wieso, ist ein aktuelles For¬ 
schungsgebiet, welches in letzter Zeit immer wieder verblüf¬ 
fende Ergebnisse liefert. 

Das Programm verlangt die Eingabe vier verschiedener Para¬ 
meter, wobei s für die Anzahl der Rechenschritte, w für den 
Öffnungswinkel der Ästepaare, 1 für die Länge des Stammes 
und b für die Breite desselben steht. 

Experimentieren mit den Ausdrücken für die Variablen b und 
n liefert beliebig kuriose Baumstrukturen. Mit ein paar Spie¬ 
lereien am Programm läßt sich auch die Rechengeschwindig¬ 
keit noch steigern. Wählt man die Winkel größer als 45 Grad, 
geht die Baumähnlichkeit schnell verloren. Ansonsten heißt es: 
laden und probieren. Das kurze Programm birgt einige Geheim¬ 
nisse in sich, die es zu entschlüsseln lohnt. 

(Helmut Feuchtgruber/jf/cd) 

Programm 8: Hangman 

Hangman ist ein kleines Spiel, das so konzipiert ist, daß es lan¬ 
gen Spielspaß bringen kann. Die Regeln: 

Nach dem Laden müssen Sie Worte eingeben, die keinerlei Be¬ 
schränkungen unterliegen. Sie haben die Möglichkeit, dem 
Computer bis zu 999 verschiedene Begriffe einzuspeisen. Been¬ 
det wir diese Eingabe mit purem Druck auf die Return-Taste. 
Dann kann das Spiel beginnen. 

Ein noch leerer Galgen erscheint auf dem Bildschirm. Des wei¬ 
teren macht eine Schablone deutlich, daß es darum geht, Buch¬ 
staben zu drücken, um ein Wort zu raten. Die Schablone klärt 
über die Länge des Wortes auf. Wird ein Buchstabe gedrückt, 
den das gesuchte Wort enthält, so erscheint er innerhalb der 
Schablone an den Stellen, an denen er auch im Wort enthalten 
ist. Kommt er nicht im gesuchten Begriff vor, so wird der Gal¬ 
gen Stück für Stück erweitert. Hat man den Begriff erraten, be¬ 
vor ein Männchen am Galgen hängt (daher auch der Name des 
Programms), so gelangt man in die nächste Runde, schafft man 
es nicht, so ist das Spiel zu Ende. 

Auch dieses Produkt lädt den Benutzer zum Basteln ein. Ein 
paar Vorschläge sollen hier nicht verschwiegen werden. 
Wem das Zeichnen des runden Galgenstricks zu lange dauert, 
der kann dies durch einen kleinen Eingriff in Zeile 11 beheben. 
Man baut in die Laufanweisung die Schrittlänge 8 oder auch 
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16 ein (STEP 8 bzw. 16). Der Kreis wird zwar nicht mehr so 
durchgehend, dafür benötigt der Computer erheblich weniger 
Rechenzeit. 

Wer die Begriffe nicht im voraus wissen will, kann beispiels¬ 
weise Wortdateien auf Diskette ablagern und mittels kleinem 
Zusatzprogramm zufällig beliebige Mengen an Worten einla- 
den. Der Fantasie sind hier keine Grenzen gesetzt. 

(Fabian Vogelbruch/jf/cd) 

Programm 9: Kastler 

Geht es ums Essen, so fällt oft der Spruch: Das Auge ißt mit. 
Der CPC kann zwar eine ganze Menge, aber nach dem Anbie¬ 
ten eines Menüs ist er auch mit seinem Latein am Ende. Wir 
müssen uns schon auf das Auge beschränken und uns dem Ma¬ 
genwohl anderweitig zu wenden. 

Um dem Auge einiges Gutes zu tun, könnten wir beispielsweise 
das Programm Kastler benutzen. Der Name deutet daraufhin, 
daß diese wenigen Zeilen sich in irgendeiner Weise mit Kästen 
beschäftigen. 

So können wir mittels Kastler dann auch beliebig große Qua¬ 
drate oder Rechtecke auf den Bildschirm des CPCs bringen. 
Nach der Eingabe der Länge und Breite unseres Rechtecks wird 
noch ein Zerrwert abgefragt, der die Abstände der Rechtecke 
bestimmt. 

Kastler zeichnet daraufhin am linken unteren Bildrand begin¬ 
nend Kästen in der Größe, die wir durch die eingegebenen Wer¬ 
te bestimmt haben. In kontinuierlicher Folge wird nun gemalt, 
bis das die rechte obere Bildecke erreicht ist. Was dabei an 
“äuglichen Genüssen“ herauskommt, beurteilen Sie selbst. 

(Marco Kunz/jf/cd) 

Programm 10: Metronom 

Wenn Sie in einem Mietshaus wohnen, bei dessen Fertigstel¬ 
lung der Bauherr besonders an den Steinen zur Errichtung der 
Wände gespart hat und diese durch etwas stärkere Wellpappe 
ersetzt hat, dann könnte sich bald ein akustisches Problem ein¬ 
stellen. Es ist durchaus denkbar, daß der Nachbar aus der un¬ 
teren Etage sich eines Klaviers bereichert, ohne des Spielens 
auf solch einem monströsen Gerät mächtig zu sein. Sollte dieser 
sich desweiteren als recht taktlos entpuppen, so werden Sie von 
da ab mit akustischen Wellen beglückt, über deren ästhetischen 
Wert man streiten kann. 

Zumindest in punkto Takt kann dem guten Mann abgeholfen 
werden, sofern er einen CPC und das Programm Metronom be¬ 
sitzt. 

Metronom gibt in regelmäßigen Abständen ein akustisches und 
optisches Signal an den Musizierenden weiter, mit dessen Hilfe 
dieser im Takt bleiben kann. Die Frequenz kann vorab einge¬ 
stellt werden. Der Benutzer kann stufenlos zwischen 40 und 200 
Schlägen pro Minute wählen; da dürfte die Einhaltung der Tem¬ 
pi bestimmter Musikstücke nicht mehr schwerfallen. 

(Dominik Vollmer/jf/cd) 

Programm 11: Schlange 

Keine Angst, obwohl es sich bei diesem Programm um ein pa¬ 
radiesisches Werk handelt, geht es nicht um Verführung nichts¬ 
ahnender Personen durch irgendwelche Obstsorten. Ziel die¬ 
ses Spiels ist vielmehr, die zu steuernde Schlange mit möglichst 


vielen Herzen zu füttern; denn: auch Schlangen sind nur Men¬ 
schen. 

Das Reptil wird per Cursortasten über das Spielfeld gelenkt. 
Daß sich diese gute Fütterung auf das Wachstum des schlei¬ 
chenden Tieres auswirkt, ist selbstverständlich. Bei der Steue¬ 
rung ist ebenfalls zu beachten, daß sich die Schlange nicht selber 
in den Schwanz beißt; denn Schlangen können ja bekanntlich 
sehr giftig sein! 

Am unteren Rand des Bildschirms wird links die Länge der 
Schlange angezeigt (Score) und rechts die verbleibende Zeit bis 
zum nächsten Level. Aber jetzt genug beschrieben, schlängeln 
wir uns lieber ein wenig über den Bildschirm des CPCs. 

(O. Raether/jf/cd) 

Programm 12: Tabelle 

In Heft 5/89 erschien im PC-Teil dieser Zeitschrift das Pro¬ 
gramm “CONVERT“, mit dem man Maße umrechnen kann. 
Die hier vorliegende Version ist nun für die CPCs geschrieben. 
Das Programm kennt 12 Maße: 
mm - Millimeter 
cm — Zentimeter 
dm — Dezimeter 
m - Meter 
km — Kilometer 
me — Meile 
i — inch (Zoll) 
y - Yard 
1 — Liter 
a — Ar 
ha - Hektar 
f- Fuß 

Zuerst müssen Sie das Ausgangsmaß eingeben (z.B. “m“ für 
Meter) und danach das Maß, in das umgerechnet werden soll. 
Nun verlangt das Programm noch die Potenz, mit der gerech¬ 
net werden soll. Geben Sie z.B. 3 ein, so rechnet der Compu¬ 
ter in “Kubik“ (Kubikdezimeter etc.). Geben Sie jetzt die Größe 
des Ausgangsmaßes ein. Das Programm rechnet nun die ge¬ 
stellte Aufgabe aus und präsentiert das Ergebnis auf dem Mo¬ 
nitor. 

Ein Beispiel: 

Sie haben eine Fläche von 150 Quadratyards (englisches Maß) 
und wollen wissen, wieviele Ars das sind. Die Eingabe wür¬ 
de wie folgt lauten: 

1. Geben Sie y ein (Yard) 

2. Geben Sie a ein (Ar) 

3. Geben Sie 2 ein (Potenz 2, weil es hier um das Umrechnen 
von Flächen geht) 

4. Geben Sie 150 ein (es sind ja 150 Yards) 

5. Es erscheint auf dem Bildschirm: 

150 yT2 = 1.253094 a 

150 Quadratyards entsprechen also einer Fläche von 1.253 Ar. 

(Christop Lauble/jf/cd) 

Programm 13: Tennis 

Welch Balsam auf die Wunden unserer tennisgeplagten Nation 
durch dieses meisterliche Tennisspiel herabgelassen wird. Alle 
die, deren Fernseher noch nicht mit dem Kabel verbunden ist, 
können sich ihr ganz persönliches Wimbledon in einer ent¬ 
zückenden Miniversion auf den CPC bringen. Das Urtennis fei¬ 
ert mit diesem Stück Software Renaissance. Zwei Spieler ha- 
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ben sich hierbei den durch einen Pixel dargestellten Tennisball 
zuzuschlagen. Schafft es einer nicht, den Ball, der stetig schnel¬ 
ler wird, im Spiel zu halten, so bekommt der Gegner einen Vor¬ 
teil zugesprochen. Nach dreimaligem Ausgehen verliert der un¬ 
achtsame Spieler die Partie. 

Spieler 1 steuert den Schläger mit den Tasten “Q“ und “A“, 
Spieler 2 benutzt die Cursortasten. 

Zu Beginn eines Ballwechsels ist Vorsicht angesagt, denn die 
Schläger erscheinen erst, wenn sie zum ersten Mal gelenkt 
werden! 

(Daniel Adloff/jf/cd) 

Programm 14: Wortpuzzle 

Jeder, der schreibt, versucht seine Worte möglichst in geord¬ 
neter Buchstabenfolge zu entwerfen, es sei denn, er legt kei¬ 
nen Wert darauf, daß sein Geschriebenes für andere verständ¬ 
lich ist. Wenn sich ein so ordnungsliebender Satzentwerfer die¬ 
ses Programm anschaut, so stehen ihm die Haare zu Berge, 
schüttelt das Spiel Wortpuzzle doch eingegebene Worte der¬ 
art durcheinander, daß kein Stein mehr auf dem anderen steht. 
Natürlich ist es nun die Aufgabe des “Aufräumers“, die Worte 
zu richten, um sie wieder leserlich zu gestalten. Die Aktion wird 
ein Rennen gegen die Zeit. Schafft man es nicht, den ordent¬ 
lichen Begriff zu rekonstruieren bevor das Stündchen geschla¬ 
gen hat, so verliert man das Spiel. 

Das Rekonstruieren geschieht, indem man jeweils zwei Buch¬ 
staben, die nebeneinander stehen, austauscht. Man fährt mit¬ 
tels Cursortasten ein Symbol unter die beiden zu tauschenden 
Buchstaben und löst den Tauschvorgang mit der COPY-Taste 
aus. Schnelle Finger und Gedanken sind bei Wortpuzzle ge¬ 
fragt. 

Die Länge des Wortes, das der Benutzer zu Spielbeginn ein¬ 
zugeben hat, muß mindestens fünf Buchstaben besitzen. Die 
Zeit, die man zur Lösung des Problems zur Verfügung hat, steht 
in Abhängigkeit zur Wortlänge. 

Programm 15: Full-Screen-Editor 

Das Programm ist ein BASIC-Lader, der eine RSX-Befehlser- 
weiterung einbindet, die einen Full-Screen-Editor ermöglicht. 
Dies bedeutet, daß man mit dem Cursor beliebig auf dem Bild¬ 
schirm herumfahren und den Bildschirminhalt ändern kann. Bei 
dem CPC-Editor ist es ja sonst nur möglich, innerhalb der Ein¬ 
gabezeile den Bildschirminhalt zu editieren. 

Mit der Befehlserweiterung ist es so auch möglich, mehrere 
BASIC-Zeilen zunächst zu verändern, diese anschließend durch 
mehrmaliges Drücken der ENTER-Taste ins Programm zu 
übernehmen. Mehrere gleiche oder ähnliche Zeilen können so 
einfach durch Ändern der Zeilennummem eingegeben werden. 
Der Full-Screen-Editor wird durch den RSX-Befehl IScreen ak¬ 
tiviert. 

Er ist in der Regel aber nur im Direktmodus sinnvoll, da im¬ 
mer die gesamte Bildschirmzeile als Eingabe angesehen wird, 
so daß es bei Input-Anweisungen leicht zu Fehlern kommen 
kann. Bei einer numerischen Eingabe einer Zeile, in der schon 
Text vorhanden ist, kommt es z.B. zur Fehlermeldung “REDO 
FROM START“. 

Da unter BASIC Eingaben 256 Zeichen lang, also über den 
Bildschirmrand hinausgehend, sein dürfen, muß der Full- 
Screen-Editor erkennen können, ob zwei oder mehrere Bild¬ 
schirmzeilen zusammengehören oder nicht. 


Um das Programm kurz zu halten, habe ich dieses Problem fol¬ 
gendermaßen gelöst: 

Zwei Zeilen gelten als zusammengehörig, wenn eines der bei¬ 
den letzten Zeichen der oberen Zeile kein Leerzeichen ist; sind 
die letzten beiden Zeichen einer Zeile Leerzeichen, so ist die 
Eingabe hier zu Ende. Überflüssige Leerzeichen am Ende ei¬ 
ner Eingabezeile werden abgeschnitten. 

Diese Methode ist zwar ziemlich simpel, aber auch ziemlich 
treffsicher. Der Full-Screen-Editor bietet folgende Editiermög¬ 
lichkeiten: 

- Cursor in die linke obere Ecke setzen: Shift + Cursor hoch 

- Cursor in die rechte untere Ecke setzen: Shift + Cursor 
runter 

- Cursor auf Zeilenanfang setzen: Ctrl + Cursor links 

- Cursor auf Zeilenende setzen: Ctrl + Cursor rechts 

- Zeichen Löschen: DEL; Shift + Cursor links 

- Leerzeichen einfügen: CLR; Shift + Cursor rechts 

Den gewohnten Zeileneditor aktiviert man mit dem RSX-Be¬ 
fehl ILine. 

Das Programm läuft nur auf dem 6128! 

(S. Ostertun-Gaekel/jf/cd) 

Programm 16: Little Shape 

Kurzum, das Programm stellt Ihnen zwei neue RSX-Befehle 
zur Verfügung, die folgendermaßen zu gebrauchen sind: 
IREAD,x,y,n 

holt einen Bildschirmausschnitt, der seine linke obere Ecke an 
dem Bildschirmpunkt (x/y) hat, 8 Bildschirmbytes breit und 20 
Bildschirmzeilen tief ist, in den Speicher ab der Adresse &4000. 
ISET,x,y,n 

gibt denselben Bildschirmausschnitt wiederum an dem Punkt 
(x/y) aus. Der Parameter n ist nötig, um mehrere verschiede¬ 
ne Ausschnitte gleichzeitig im Speicher halten zu können — sie 
sind einfach zu numerieren, n ist also die Nummer des Aus¬ 
schnittes. 

Ein Ausschnitt belegt genau 160 Bytes in Block 1 des CPC- 
Rams, so daß bis zu 102 solcher “Shapes“ verwaltet werden 
können, was jedoch nicht unbedingt sinnvoll ist, da die Ermitt¬ 
lung der Speicheradresse des jeweiligen Shapes sich bei stei¬ 
gender Anzahl immer mehr in die Länge zieht. Der Parame¬ 
ter n darf sich also von 1 bis 102 bewegen. Wenn sie das Shape 
n auf Diskette/Kassette sichern wollen, so müssen Sie folgen¬ 
dermaßen Vorgehen: 

Save “Shape.bin“,b,&4000+(n-l)*l60, 160 

Geladen wird entsprechend mit: 

LOAD “shape.bin“,&4000+(n-l)*l60 

Jetzt noch etwas zu den Parametern x und y: Das Maschinen¬ 
programm arbeitet mit reellen Punktkoordinaten, das heißt, daß 
die y-Koordinate, die sich im BASIC ja von 0-398 erstrecken 
kann, immer durch 2 dividiert werden muß, und daß die x- 
Koordinate modeorientiert gewählt werden muß: 

ModeO: 0-159 
Mode 1: 0-319 
Mode 2: 0-639 

In Zeile 1025 des Dataladers befindet sich eine kleine Demo. 
Noch ein Tip zur Definition des Shapes: Zeichnen Sie die 
Shapes mit einem Grafikprogramm. Hier können Sie sich fe¬ 
ste Rahmen definieren, in die die Shapes gezeichnet werden. 
Wenn man nun die Rahmen an festgelegte Bildschirmpunkte 
setzt (sie sollten aufgrund der noch erwähnten Laufanweisung 
regelmäßig gesetzt werden), kann man nach Konstruktion der 


8’89/90 Sonderheft 


CPC 117 






Tips & Tricks 


Shapes und Sichern des Bildschirms mit einer Laufanweisung 
die einzelnen Bildschirmausschnitte auslesen und in den Spei¬ 
cher schreiben. 

(Carsten Brombach/jf/cd) 

Programm 17: 3D-Funktionsplot 

Das Sichtbarmachen der abstrakten mathematischen Funktio¬ 
nen ist im Gegensatz zu deren Berechnung oder Erstellung ein 
äußerst spannendes Thema, sieht man tatsächlich Wirkungs¬ 
weisen in graphischer Hinsicht, die von dem bloßen Zahlen- 
und Buchstaben werk der Funktionen ausgehen. 

Mit diesem kleinen Programm kann der CPC uns Funktions¬ 
graphen auf den Monitor bringen und diese noch in die dritte 
Dimension projizieren, so daß interessanteste Flächen und Ge¬ 
bilde entstehen. 

Die Bedienung des Programms ist etwas eigen und bedarf ei¬ 
niger Erläuterungen. Die kleine ENTER-Taste ist mit einer spe¬ 
ziellen Funktion belegt, so daß sie nur benutzt werden sollte, 
wenn das Programm dieses verlangt. Für alle anderen Einga¬ 
bebestätigungen muß die große ENTER-Taste bzw. RETURN- 
Taste verwendet werden. 

Nach Start des Programms verlangt selbiges die Eingabe einer 
mathematischen Funktion der Form y =..., wobei y der Funk¬ 
tionswert ist. Als Grundwerte können die Variablen x und z ge¬ 
braucht werden. 

Einige Beispiele: 
y=sin(x)*cos(z)*100 
y=sin(x) *sin(z) * 100 

Auch die Funktionen EXP, SQR und TAN können verwendet 
werden. Es werden vom Programm noch weitere Werte abge¬ 
fragt, die für die Darstellungsweise nötig sind. Der Neigungs¬ 


winkel etwa oder die Größe der Quadrate (die Fläche wird aus 
einzelnen Quadraten gebildet) sowie Werte, die die Dehnung 
bestimmen. 

Experimentieren mit diesem Programm lohnt sich, da es fan¬ 
tastische Bilder auf den Monitor zaubert. 

Programme 18 und 19: Kreis und Quadrat 

Das Sprichwort sagt: Die Axt im Haus erspart den Zimmer¬ 
mann. Dieses geflügelte Wort auf vorliegendes Programm be¬ 
zogen würde lauten: Kreis und Quadrat im Haus erspart Ham¬ 
mer und Nagel. Nicht, daß es jemandem gelungen wäre, mit 
Hilfe des CPCs Nägel in die Wand zu schlagen, um hübsche 
Bilder daran aufzuhängen, dafür ist der Computer nicht stabil 
genug, nein, gelungen ist es vielmehr, solche hübschen Bilder 
zu erstellen, die, sofern ausgedruckt, dann in Rahmen so man¬ 
che Wand schmücken würden. Es geht um Bilder, die früher 
mit Hammer, Nagel, Holz und Zwirn angefertigt wurden. Sie 
erinnern sich: Man nahm ein Stück Holz in Form eines Bret¬ 
tes und malte es in einer zur Farbe des Zwirns harmonisieren¬ 
den Tönung an. Danach wurden Nägel in geometrischen oder 
anderen Formen auf das Brett geschlagen. Der Zwirn konnte 
nun kunstvoll um die Nägel gewunden werden, worauf sich fas¬ 
zinierende Ansichten ergaben. 

Die beiden Programme Kreis und Quadrat geben uns die Mög¬ 
lichkeit, solche Gebilde per CPC zu erstellen, und das in einer 
denkbar einfachen Weise. Das erste Programm “schlägt die Nä¬ 
gel“ in runder Form auf den Bildschirm, das zweite in Form 
eines Quadrates. Durch Eingabe verschiedener Parameter las¬ 
sen sich Anzahl der Nägel, Abstand zueinander etc. bestimmen, 
worauf der Computer zu rechnen beginnt und mit der Präsen¬ 
tation toller Grafiken das Programm beendet. 
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1 REM BIG 

10 FOR n=&8000 TO &8014:READ a$:POKE n,VAL 
("&"+a$):NEXT 

20 DATA fe,02,cO,dd,7e,02,cd,a5,bb.dd,5e,0 
0,dd,56,01,7d,12,13,7c,12,c9 
40 ad r56=0: SYMBOL AFTER 0 
50 LINE INPUT "String: ",zug$ 

60 INPUT"x: ",x v 
70 IN PUT "y: ",yv 
80 INPUT "Nr.: ",znr 

90 IF znr >12 7 THEN PRINT#8,CHR$(27) ;CHR$(4 
9 ) ; :znr = znr-128:c = 27:d=>1 ELSE PRINT#8,CHR 
$(27);"0";:c=0:d=0 
100 FOR n=1 TO LEN(zug$) 

110 CALL &8000,ASC(MID$(zug$,n,1)),@adr% 
120 FOR adr=adr% TO adr*+7:a$(adr-ad r %)=BI 
N$(PEEK(ad r),8) :NEXT 

130 FOR sp=1 TO 8:FOR x=l TO xv:PRINT#8:FO 
R r= 7 TO 0 ST EP-1 

140 IF VAL(MID$(a$(r),sp,1))=1 THEN a=c:b= 

d:chr=znr ELSE a=0:b=0:chr=32 

150 GOSUB 180 

160 NEXT r.x.sp.n 

170 RUN 

180 FOR p=l TO yv:PRINT#8,CHR$(a) ;CHR$(b) ; 
CHR$(chr);CHR$(0);:NEXT 
190 RETURN 
Listing BIG 


[ 550] 
[2377] 

[ 2387 ] 

[1308] 
[2495] 
[ 62 7 ] 

[ 1022 ] 
[1298] 
[5891] 


[1303] 
[ 1789 ] 
[4909] 

[2817] 

[ 4325 ] 

[913] 

[ 783 ] 

[ 243] 
[2750] 

[ 555 ] 


1 REM SCHRIFTVERGROESSERUNG [2271] 

10 INK 0,0:INK 1,13:PAPER 0:BORDER 6:MODE [1720] 
1 

20 INPUT "Name des spaeteren 8ildes";P$ [4048] 
30 PRINT "Inhalt der 1. beiden Zeilen durc [8413] 
h Komma getrennt! (max.7 Buchstaben pro Ze 
i1e) "; :INPUT a$,b$ 


40 IF LEN(a$)>8 OR LEN(b$)>8 THEN SOUND 1, [2778] 

239:CLS:GOTO 30 

50 a=l:h=250 [1310] 

60 MODE 2 [513] 

70 IF a=1 THEN LOCATE 1,25:PRINT a$ ELSE L [2875] 

OCATE 1,25:PRINT b$; 

80 FOR x=—1 TO 70 STEP 0.3 [1352] 

90 FOR y=1 TO 15 [1110] 

100 IF TEST(x,y) THEN TAG:MOVE 10*x,10*y+h [ 2460] 
:PRINT CHR$(143); 

110 NEXT rNEXT [ 1022] 

120 IF a=2 THEN b$=”" [499] 

130 IF b$= THEN 160 ELSE 140 [1409] 

140 a=2:h=50:LOCATE 1,25:TAGOFF:PRINT SPC( [3803] 
10);:GOTO 70 

150 LOCATE 1,25:TAGOFF:PRINT SPC(IO) [1698] 

160 TAGOFF [1066] 

170 LOCATE 1,25:PRINT SPC(20); [1474] 

180 SAVE P$,B,&C000,&4000 [1184] 

190 CLS [gi] 

200 TAGOFF:PRINT "Noch ein Bild (J/N)?" [2907] 

210 IF INKEY$= THEN 210 [574] 

220 IF INKEY (45)0-1 THEN 10 [ 735 ] 

230 IF INKEY(46)<>-l THEN END [1788] 

240 GOTO 210 [427] 

Listing Schrittvergrößerung 


10 REM Calculation [1225] 
20 MODE 2 : CA L L 8<BC02:INK 0,0 [ 1896] 
30 PRI NT"1. Kuerzen (k) oder 2. Hauptn [8845] 
enner berechnen (h) - bitte waehlen Sie 


40 a$=UPPER$(INKEY$):IF a$="H" THEN 120 EL [3594] 
SE IF a$="K" THEN 50 ELSE 40 

50 MODE 1:PRINT"KUERZEN";PRINT:PRINT:INPUT [5092] 
" Zaeh1er,Nenner ";z,n 

60 GOSUB 150:PE N 2:PRINT:PRI NT"ggT: ";kle [3488] 
70 PEN 3:PRINT:PRINT"gekuerzt:" [1980] 

80 PRINT:PRINT" ";z/kle [976] 

90 PRINT" " ;STRING$(LEN(STR$(m/kle))-1,"- [ 2283 ] 

") 

100 PRINT" •“ j n / k 1 e [ 1603] 
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110 CALL &BB18:RUN [852] 

120 MODE 1:PRINT"HAUPTNENNER BERECHNEN":PR [6704] 
INT:PRINT:INPUT "Nenner,Nenner ";z,n 
130 GOSUB 150:h=z*n/k!e:PEN 2:PRINT;PRINT" [9676] 

Hauptnennerh:PEN 1:PRINT:PRINT z;:PEN 3 
:PRINT"*";h/z:PEN 1:PRINT n;:PEN 3:PRINT"* 

" ; h/n 


140 GOTO 110 [423] 

150 IF z > n THEN gro=z:kle = n ELSE gro = n:kle [2674 ] 
= z 

160 m=g ro [519 ] 

170 erg=gro/kle:erg=INT(erg) [1889] 

180 ganz=erg*kle [ 228 ] 

190 rest=gro-ganz:IF rest=0 THEN RETURN [2272] 
200 gro=k1e:kle=rest:GOTO 170 [963] 

Listing Calculat 


1 REM CODE 

10 MODE 2:LOCATE 25,1:PRINT" Your Security 
will be saved ! ":LOCATE 30,8:PRINT"Input 

text => 1":LOCATE 30,10:PRINT"Show text 
=> 2": LOCATE 30, 12: PRINT"Load text => 3": 
LOCATE 30,14:PRINT"Save text => 4":L0CATE 
30,16:PRINT"Quit = > 5":a = 0 

20 WHILE a<l OR a>5:a=VAL(INKEY$):WEND:ON 
a GOTO 30,40,50,60,70 

30 MODE 2:PRINT"P1ease input text :":PRINT 
:LINE INPUT a$:PRINT:INPUT"PIease input co 
de c$:CLS:PRINT a$:PRINT:PRINT"Coding . 

..GOSUB 80:GOTO 10 

40 CLS:INPUT"P1ease input code :",c$:GOSUB 
80:CLS:PRINT"Uncoded text :":PRINT:FOR a = 
1 TO LEN(a$):PRINT CHR$(l)MID$(a$,a,1);:NE 
XT:GOSUB 80:CALL 4BB18:G0T0 10 
50 CLS:INPUT"Fi1ename :",n$:0PENIN n$+".co 
d":INPUT#9,anz:a$="":FOR a=l TO anz:INPUT# 
9,c:a$=a$+CHR$(c):NEXT:CLOSEIN:GOTO 10 
60 CLS:INPUT"Fi1ename :",n$:OPENOUT n$+".c 
od":anz=LEN(a$):PRINT#9,anz:FOR a=l TO anz 
:PRINT#9,ASC(MID$(a$,a,1)):NEXT:CLOSEOUT;G 
0T0 10 

70 CLS:PRINT"Bye !":END 

80 C=1:FOR a=1 TO LEN(a$):MID$(a$,a,1)=CHR 
$(ASC(MID$(a$,a,1))XOR ASC(MID$(c$,c,1))): 
c=c+l+(c=LEN(c$))*LEN(c$):NEXT:RETURN 


[422 ] 

[ 16541 ] 


[3497] 

[ 10561] 

[9803] 

[7514] 

[8812 ] 


[ 1367 ] 
[7251] 


Listing Code 


1 REM DCODE [1039] 

1000 MODE 2:CLEAR:MEMORY &3FFF [1487] 

1010 DEF FNa=PEEK(ad r)+256*PEEK(adr + 1 ) [ 1542 ] 

1020 PRINT"DCODE *** Programm zum Umsetzen [13825] 
von Binaerfiles in Basicfi1es":PRINT:PRIN 
T"Bitte Datendiskette einlegen und eine Ta 
ste druecken" 

1030 CALL &B806:CAT [611] 

1040 INPUT"Name des Binaerfiles (alt) : [3547] 

",n$:LOAD n$ 

1050 INPUT"Name des Basicfiles (neu) : [2423] 

" , nn$ 

1060 INPUT"Numme r der 1.Zeile : [923 ] 

" , z 

1070 adr=&A76A:b=FNa-l [1488] 

1080 adr=&A76D:l=FNa [1278] 

1090 ad r = &A 7 6F:IF FNa THEN s = FNa ELSE s = b + [ 2235 ] 

1 

1100 w=9:n=8 [397] 

1110 OPENOUT nn$ [559] 

1120 PRINT#w,z"MEMORY &"HEX$(b,4) [2437] 

1130 z=z+10:PRINT#w,z“F0R i=l TO"l [1985] 

1140 z = z+10: PRINT#w, z"READ a$:P0KE HIMEM+i [5183] 

,val("CHR$(34)"&"CHR$(34)"+a$)" 

1150 z=z+10:PRINT#w,z"NEXT: REM Einsprung: [3733] 

&"H EX$(s,4) 

1160 p=0 [257] 

1170 IF p=l THEN 1220 [629] 

1180 IF p MOD n = 0 THEN z=z+10:PRINT#w:PRIN [2655 ] 

T#w,z"DATA ELSE PRINT#w,","; 

1190 p=p+l [78] 

1200 PRINT#w,HEX$(PEEK(b+p),2); [1796] 

1210 GOTO 1170 [305] 

1220 PRINT#w:CLOSEOUT [1676] 

Listing Dcode 


1 REM FITTOMETER [1828] 

10 MODE 1:PRINT"1) PROF I":PR I NT"2) AMATEUR [8171] 
":PRINT"3) ANFAENGER":PRINT:INPUT a:IF a=l 
THEN h=0.45 ELSE IF a=2 THEN h=0.35 ELSE 
h=0.08 


20 m=2:p=250:MODE 1:z=TIME:LOCATE 12,1:PRI [3076] 
NT"FITTO METER" 

30 FOR 1=1 TO 4:MOVE 306,100+i*50:DRAWR 10 [9937] 
,0:MOVE 310,100:DRAWR 0,200:NEXT I:MOVE 17 
0,2 55:TAG:PRINT"BAD"; :MOVE 170,205:PR INT"0 
KAY";:MOVE 170,153:PRINT"GREAT";:TAGOFF 
40 PLOT 320,300:DRAW 320,p,0 [1881] 

50 IF INKEY ( 74 ) =0 AND m=2 THEN p=p-l:m=l [2055] 

60 IF INKEY ( 75 ) =0 AND m=l THEN p=p-l:m=2 [1062] 

70 p=p + h:LOCATE 1,1:PRINT I NT(s):s=(TIME-z [ 3471 ] 
) /300 

80 CALL &BD19:PLOT 320,300:DRAW 320,p,l:PL [2579] 
OT 320,300:DRAW 320,p.l 

90 IF INT(s)=46 THEN PRINT:PRINT"Die 45 Se [4560] 
künden sind schon um..!":GOTO 130 

100 IF p > 300 THEN PRINT:PRINT"Schon nach " [6260] 
;INT(s);"Sekunden kaputt ?":GOTO 130 
110 IF pdOO THEN PRINT: PRINT“Spi tze ! Nur [ 6891 ] 
INT(s);“Sekunden gebraucht":CLEAR INPUT 
:h=h+0.1:FOR zeit=l TO 1500:NEXT:GOTO 20 
120 GOTO 40 [378] 

130 CLEAR:CLEAR INPUT:PRI NT:INPUT"Nochma1 [ 395 7 ] 

" ; no$ 

140 IF UPPER$(no$)="J" THEN RUN ELSE END [2510] 


Listing Fittometer 


1 REM FRACTREE 

10 MODE 2:DEG:c=2048:DIM w(c),x(c),y(c):w( 

1)=90:q=l:j=c 

20 INPUT "S:";m:INPUT "W:";g:INPUT "L:";b: 

INPUT "B:";a:CLS:GOSUB 100 

30 FOR i=1 TO m-1 

40 a=a/COS(g)/2:q=q*2:j=c/q 

50 FOR k=1 TO c STEP j:r=k-j 

60 IF ( k+1)/j MOD 4=0 THEN d=b ELSE d=b*n 

70 IF (k — 1) /j MOD 2 = 0 THEN x(k)=x(k)+d*COS 

(w(k)):y(k)=y(k)+d*SIN(w(k)):w(k)=w(k)+g:E 

LSE x(k)=x(r)+SIN(w(r))*a:y(k)=y(r)-COS(w( 

r))*a:w(k)=w(r)- 2 *g 

80 NEXT 

90 b=b*RND(1)+20:n=RND(2)+0.4:GOSUB 100:NE 
XT:END 

100 FOR k=1 TO c STEP j 

110 x=C0S(w(k)):y=SIN(w(k)):w=b*y:z=b*x 
120 IF (k+l)/j MOD 200 THEN w=w*n:z = z*n 
130 u=a*y:v=a*x:M0VE x(k)+300,y(k):MOVER u 
,-v:DRAWR z,w:MOVER-u,v:DRAWR-z,-w 
140 NEXT:RETURN 
Listing Fractree 


[ 890 ] 

[3889] 

[4198] 

[448] 

[1304] 
[1980] 
[2086] 
[8557] 


[ 350 ] 
[2771] 

[1648] 
[2612] 
[ 988 ] 

[4667 ] 

[ 940 ] 


1 REM HANGMAN 

10 DIM w$(9 99):RANDOMIZ E TIME 
20 INPUT"Wo rt";w$(j):IF w$(j) = ""THEN j=j-l 
ELSE j = j +1:GOTO 20 

30 DIM a$(30):o$=w$(INT(RND*j)):a=LEN(o$): 
MODE 1:DRAW 638,0:DRAWR 0,398:DRAWR -638,0 
;DRAWR 0,-398:MOVE 550,B0:0RAW 550,250:DRA 
W 450,250:MOVE 500,250:DRAW 550,200:LOCATE 
2,3:PRINT STRING$(a,"-") 

40 LOCATE 2,5:INPUT"Buchstabe";b$.FOR i=0 
TO t:IF a$(i)=b$ THEN 40 

50 NEXT:FOR i=l TO a:IF MID$(o$,i,1)=b$ TH 
EN LOCATE i+1,3:PRINT b$:d=l:p=p+l 
60 NEXT 

70 IF d=0 THEN 80 ELSE IF p=a THEN 100 ELS 
E d=0:a$(t )=b$ :t=t+1:GOTO 40 
80 d=l:f=f+1:ON f GOTO 90,110,120,130,140, 
150,160 

90 MOVE 470,250:DRAW 470,220:GOTO 70 

100 LOCATE 16,23:PRINT"GEWONNEN":GOTO 170 

110 X=470:y=200:DEG:FOR c=270 TO 630:PL0T 

x+20*C0S(c),y+20*SIN(c):NEXT:GOTO 70 

120 DRAW x,120:GOTO 70 

130 MOVE x,165:DRAW 450,145:GOTO 70 

140 MOVE x,165:DRAW 490,145:GOTO 70 

150 MOVE x,120:DRAW 450,99:G0T0 70 

160 MOVE x,120:DRAW 490,99:LOCATE 16,23:PR 

INT"VERLOREN" 

170 ERASE a$:t=0:p=0:d=0:f=0:CALL &BB18:G0 
TO 30 


[ 684] 
[ 688 ] 

[3984] 

[ 10481] 


[4040] 

[4723] 

[ 350 ] 

[2854] 

[3439] 

[1998] 
[2129] 
[5260] 

[ 683 ] 

[1445] 
[1307] 
[ 1610 ] 
[2872] 

[2011 ] 


Listing Hangman 


10 REM KASTLER [865] 

20 ’written by Marco Kunz [1857] 

25 INK 0,0:INK 1,26:BOR DER 0:GRAPHICS PEN [4238] 
1:PEN 1:MODE 2:CLS:xl=100:x2=540:y1=50:y2= 

350 

27 MOVE x1,y1:DRAW xl,y2:DRAW x2,y2:DRAW x [5195] 
2,y1:DRAW xl,yl:IF yl<10 THEN 30 ELSE yl=y 
1-3:y2=y2+3:xl = x1- 3:x2=x2+3:GOTO 27 
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Tips & Tricks 


30 LOCATE 18,6:PRINT"KÄSTLER VI.0 written 
by Marco Kunz / 1 Kbyte" 

40 LOCATE 34,9:INPUT"X-Staerke ”;xs:LOCATE 
34,12:INPUT"Y-Staerke ";ys:LOCATE 34,15:1 
NPUT"Z ERR-We rt ";z:LOCATE 33,18:PRINT"Tast 
e zum Begi nn" :CALL &BB18:GRAPHICS PEN 1:CL 
S : x = 20:y = 20 

50 x=x+z+(z/2):y=y+z:FRAME:PLOT x+xs,y+ys: 
DRAW x+xs,y-ys:DRAW x-xs,y-ys:DRAW x-xs,y+ 
ysrORAW x+xs,y+ys:IF y>360 THEN 60 ELSE 50 
60 CALL &BB18:RUN 

Listing Kastler 


[5047] 

[12876] 


[7411] 

[ 852 ] 


10 REM METRONOM written by Dominik Vollmer 
20 MODE 1:BORDER 0:INK 0,5:INK 1,26:INK 2, 
10 

30 WINDOW 3,38,3,23:PAPER 2:CLS:f=l 
40 LOCATE 15,2:PEN 1:PRINT"METRONOM";SPC(2 
7) ;STRING$(10,154) 

50 LOCATE 1,21:PRINT CHR$(24);SPC(5);" 198 
9 by Dominik Vollmer"; 

60 PRINT SPC(6);CHR$(24); 

70 LOCATE 2,9:INPUT"Wievie1e Schlaege in d 
er Min.";a 

80 LOCATE 2,9:PRINT SPC(35):IF a<40 OR a>2 
00 THEN 70 

90 WINDOW 5,36,7,20:PAPER 2:CLS:PLOT 260,1 
00,1:DRAW 380,100:DRAW 330,240 
100 DRAW 310,240:DRAW 260,100:PLOT 275,140 
: DRAW 365,140 

110 TAG:MOVE 250,290:PRINT " < SPACE > " ; : MOV 

E 282,125:PRINT a; :TAGOFF 

120 PLOT 320,140,1:DRAW 370,230 

130 FOR w=l TO 1 7950/a:IF INKEY(47)<>-1 TH 

EN 190 ELSE NEXT w:SOUND 1,142,4,15 

140 BORDER 26:FOR x=l TO 20:NEXT:BORDER 0: 

IF f=0 THEN 170 

150 PLOT 320,140,2:DRAW 370,230:PLOT 320,1 
40,1 

160 DRAW 2 70,2 30:P LOT 380,100,1:DRAW 330,2 
40:f=0:GOT0 130 

170 PLOT 320,140,2:DRAW 270,230;PL0T 320,1 
40,1 

180 DRAW 3 70,2 30:P LOT 310,240, 1:DRAW 260,1 
00;f=1:GOTO 130 

190 i$=INKEY$:IF i$<>""THEN 190 
200 CLS:WINDOW 3,38,3,23:f=1:GOTO 70 
Listing Metronom 


[ 2522 ] 
[1905] 

[2139 ] 
[3644] 

[ 3352 ] 

[1127] 

[3871] 

[2866] 

[ 2920 ] 

[ 2356 ] 

[ 4357 ] 

[1318 ] 
[3115 ] 

[3773] 

[ 2822 ] 

[2801 ] 

[ 1992 ] 

[ 3453 ] 

[ 1909 ] 
[1080] 


10 REM SCHLANGE [696] 

20 '1988 O.Raether [831] 

30 DIM x(1000),y(1000) [725] 

40 1=3 [186] 

50 MODE 1:PRINT STRING$(40,CHR$( 207 ) ) ; [2609] 

60 FOR a= 2 TO 23:PRINT CHR$( 207)SPACE$(38) [ 3334] 

CHR$(207);:NEXT 

70 PRINT 5TRING$(40,CHR$(207)) [1172] 

80 FOR a=1 TO 10:GOSUB 220:NEXT [2122] 

90 k=1:r=4:FOR a=l TO k:x(a)=10:y(a)=10:NE [2416] 
XT 

100 a$=INKEY$+" “ [482] 

110 IF ASC(a$)>239 AND ASC(a$)<244 THEN r= [1775] 
ASC(a$)-239 

120 k = k + l:IF k>1000 THEN 50 [1510] 

130 y(k )=y{k-1):x(k) = x(k-1) [1315] 

140 IF r =1 THEN y(k)=y(k)-l ELSE IF r=2 TH [8749] 
EN y(k)=y(k) + 1 ELSE IF r = 3 THEN x(k)=x(k)- 
1 ELSE x(k)=x(k)+1 

150 C = TEST(x(k)*16-8,414-y(k)* 16) [ 2465 ] 

160 IF C =1 THEN END ELSE IF c=2 THEN 1=1+2 [2110] 
:GOSUB 220 

170 LOCATE x(k-1),y(k-1):PRINT CHR$(202); [1598] 

180 LOCATE x(k),y(k):PRINT CHR$(239+r); [1984] 

190 LOCATE x(k-1 ), y(k-1 ):PRINT CHR$(32); [3494] 

200 LOCATE 11,25:PRINT 1,1000-k;:FOR a=l T [2258] 
0 100-k/10:NEXT 

210 GOTO 100 [417] 

220 PEN 2:LOCATE RND*37+2,RN0*20+2:PRINT C [3742] 
HR$( 228 ) ; :PEN 1:RETURN 

Listing Schlange 


10 

'*******«*******************»*** 

[ 1223] 

20 

’ * 

Umrechnungstabelle fuer 

CPC * 

[1443] 

30 

' * 



* 

[175] 

40 

' * 

written 

by C.Lauble 

* 

[ 1533] 

50 

' * 



* 

[175] 

60 

' * 

i n 

5/1989 

* 

[ 662 ] 

70 

’******************************* 

[1223] 


80 ' 

90 ' 

100 DATA mm,1,cm,10,dm,100,m,1000,km,10000 
00,me,1609300,y,914,f,304.8,1,100,a,10000, 
ha , 100000,i ,25.4 

110 INK 0,0:INK 1,26:PAPER 0:PEN 1:M0DE 2: 
BORDER 0 

120 LOCATE 15,2:PRINT"U m r e c h n 
ungstabelle" 

130 LOCATE 14,3:PRINT STRING$(54,208) 

140 LOCATE 31,4:PRINT"written by C. Lauble 

150 LOCATE 1,6:PRINT"Das hier vorliegende 
Programm wurde bereits im Locomotive BASIC 
VI.21 von" 

160 PRINT"Sven Kaestner programmiert. Dies 
e Version ist nun auf den CPC's lauffaehig 

iij" 

170 LOCATE 1,10:PRINT"Geben Sie das Mass e 
in, von dem aus gerechnet werden soll 
180 LINE INPUT ml$ 

190 LOCATE 1,13:PRINT"Geben Sie das Mass e 
in, in das gerechnet werden soll :" 

200 LINE INPUT m2$ 

210 LOCATE 1,16:INPUT "In welcher Potenz s 
oll gerechnet werden (1-3) ";p* 

220 IF pX>0 AND p56<4 THEN 240 

230 PRINT CHR$(7):RESTORE:GOTO 10 

240 FOR x*=l TO 12 : READ m$,ml:IF ml$Om$ T 

HEN NEXT x56: GOT0 230 

250 RESTORE 

260 FOR xX=l TO 12 : READ m$,m2:IF m2$Om$ T 

HEN NEXT x*:GOTO 230 

270 PRINT "Wieviele ";ml$;:INPUT a 

280 mal = L0G10(ml):ma2 = LOG10(m2) 

290 d=ABS(mal-ma2) 

300 el=10*(pX*d) 

310 IF mal>ma2 THEN e=a*el ELSE e=a/el 
320 PRINT"Ergebnis :";a;ml$; 

330 IF pX=2 AND ml$<>"a" AND ml$<>"ha" THE 
N PRINT"* 2 " ; 

340 IF pX=3 AND ml$<>"l“ THEN PRINT"*3"; 
350 PRINT" = ";e;m$; 

360 IF p*=2 AND m2$<>"a" AND m2$<>"ha" THE 
N PRINT"‘2"; 

370 IF pX=3 AND m2$<>"l" THEN PRINT" A 3"; 
380 PRINT:PRINT:PRINT"Weitere Berechnung d 
urchfuehren (J/N) ?" 

390 a$=INKEY$:IF a$="j" OR a$="J" THEN RUN 
400 IF a$< >"n" AND a$<>"N" THEN 390 
Listing Tabelle 


[117] 

[117] 

[4933] 


[2378] 

[4460] 

[1732] 

[3414] 

[6840] 


[7338] 


[7108] 

[1095] 
[5732] 

[1093] 
[5412] 

[1876] 
[2436] 
[3985] 

[621] 

[3451] 

[2439] 
[ 1859 ] 
[ 886 ] 

[ 933 ] 

[1925] 
[1080] 
[2340] 

[2684] 
[ 1407 ] 
[2695] 

[ 1980] 
[4051 ] 

[1806 ] 
[1146] 


1 REM MINI-TENNIS 

10 MODE 1:PEN 1:LOCATE 16,5:PR I NT"MI NI-TEN 
NIS":P LOT 270,200,3:DRAWR 100,0:PLOT 270,1 
50:DRAWR 100,0:CALL &BB06 

20 z=l:y=175:a=175:r=320:s=l75:u=l:t=z:PLO 
T 270,150,0:DRAWR 0,50:PLOT 370,150:DRAWR 
0,50 

30 IF INKEY{67)=0 AND y<194 THEN y=y+2 ELS 
E IF INKEY(69)=0 AND y>152 THEN y=y-2 ELSE 
50 

40 PLOT 270,y-2,0:DRAWR 0,10:PLOT 270,y,l: 
DRAWR 0,6 

50 IF INKEY(0)=0 AND a<194 THEN a = a + 2 ELSE 
IF INKEY(2)=0 AND a>152 THEN a=a-2 ELSE 7 

0 

60 PLOT 370,a-2,0:DRAWR 0,10:PLOT 370,a,l: 
DRAWR 0,6 

70 PLOT r,s,0:r=r+t:s=s+u:IF r<260 THEN i= 
2:GOTO 110 ELSE IF r>380 THEN i=l:GOTO 110 
80 IF TEST(r,s ) > 0 THEN 90 ELSE PLOT r,s,2: 
GOTO 30 

90 IF r>368 THEN t = -z:z = z* 1.2 ELSE IF r<27 

2 THEN t=Z:Z=Z*1.2 ELSE IF s>190 THEN u=-l 
ELSE IF s <160 THEN u = l 

100 r=r+t:s=s+u:GOTO 30 

110 p(i)=p(i)+l:IF p(i)=3 THEN LOCATE 9,20 
:PRINT "PLAYER "i" HAT GEWONNEN !":FOR i=l 
TO 300:SOUND 1,RND*500,1:NEXT:RUN ELSE 20 
Listing Tennis 


[ 1032] 
[8236] 

[7527] 

[4391] 

[2263] 
[ 2831 ] 

[ 2539 ] 
[5249] 
[ 2531 ] 
[8274] 

[ 1475 ] 
[ 7600 ] 


1 REM WORTPUZZEL [1814] 

10 h=150:h$="Merlyn":INK 0,0:INK 1,26:INK [5108] 

2,7,21:INK 3,17:BORDER 0 

20 MODE 1:PEN 1:INPUT"Bitte Wort eingeben! [5327] 
",w$: l=LEN(w$) :IF 1<5 OR 1>38 THEN 20 
30 t=3*l:w$=UPPER$(w$):n$=w$;LOCATE 5,5:PR [6032] 
INT"Highscore"h"by "h$ 


120 CPC 
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Tips & Tricks 


40 FOR n=1 TO 4*1 :x = INT(RND*(1 -1)) + 1:GOSUB [ 3452 ] 
160:NEXT 

50 LOCATE 15,17:PEN 2 : PRINT"TASTE = Start " [2848] 
60 CALL &BB18:x=l:EVERY 25 GOSUB 180 [1756] 

70 WHILE t:PEN 3:IF n$=w$ THEN 120 [1526] 

80 LOCATE 15,17:PRINT" Zeit:"t:LOCATE x+( [4657] 

38-1 )\2.11:PRINT" "STRING$(2,240)" " 

90 IF NOT INKEY(8)AND X>1 THEN x=x-l ELSE [2940] 
IF NOT INKEY(1)AND x<l-l THEN x=x+l 
100 IF NOT INKEY(9)THEN GOSUB 160 [949] 

110 WEND:PEN 2:LOCATE 15,17:PRINT"Ze1t ist [3102] 
aus ! " 

120 d=REMAIN(0) :s = ROUND(50*t/SQR(1 )) :PEN 1 [4490] 
: LOCATE 15,19 

130 PRINT CHR$(7)"Punkte:"s:WHILE INKEY$<> [3874] 
" " : W E N D 

140 IF s > h THEN h = s:LOCATE 6,21:PEN 2:INPU [2440] 
T"Highscore! Name: ",h$ 

150 LOCATE 15,24:PEN 3:PR I NT"TASTE = Neustar [3410] 
t":CALL &BB18:GOTO 20 

160 MID$(n$,x)=MID$(n$,x+1,1)+MID$<n$,x,1) [1867] 
170 LOCATE(42-1)\2,10:PEN 1:PRINT n$:SOUND [2284] 
1,300,1,15:RETURN 

180 SOUND 2,1000,2,10:t=t-1:RETURN [3109] 

Listing Wortpuzzle 


1 REM SCREEN-EDITOR 

10 r = 8.A400 : MEMORY r-l:FOR i=0 TO 2 : READ c$ 
:FOR j=l TO 204:a=ASC(MID$(c$,j))-48:IF a> 
12 THEN a=a-5:IF a>43 THEN a=a-6 
20 FOR k=1 TO 6:b$ = b$+MID$(BIN$(a,6) ,k, 1) : 
IF LEN(b$)=8 THEN POKE r,VAL("&x" + b$):r=r+ 
1:b$= " " 

30 NEXT k,j,i:CALL &A400 

100 DATA 8QmZ0EaYkx 6w4?H38eEM2 pB31YJ 5nY19 H 
gI0DgwV0ekMlHv38GuYAZux8ZyxmLvBKfgXhm3snM6 
vnEOvnMGvzbwk8zsUp5evACny42VOzUoUtApMdHsBn 
JevBMegTfQy2g10inT9zj0k2Ttz?lvBKfgMkxPkzUk 
kjMQadAOOPyYM5VUM6lcM71UW62YMP1Uw6?EMcVUX6 
2gy 

110 DATA 21U?DUcMlXs8608y2QpOiwAqd2410Qppi 
wAqd2sN60rBS@ga0QppilXDnLWvnIqZNlXmnLWvtQp 
MdGf?dQppim6?f7vBKfj XuzLBS@j1hy pGuy Dp DW3AK 
fj18vQUtS7BRPgMZQpsirmpvU4cxSLBK?IemeLBRPg 
VWe1ynJevsyjpnLWvwPThlijXxHs8813BKfj 1 xPQc2 
2By 

120 DATA nüevwLvpwGCr8BMy8ApOiy7BRPgy2ApOi 
1WitRLBOPhuZ 3nFsQbBS@gaOG@?dSLBRPj V8GUSDUX 
BKfjBM@jy823bDUXBKfjBM@jy823P?geZnLKv4Meg3 
U0MlHs9nJevnIqZFwpUi18H53oy2QFOikOc4V3j61c 
HzWOUrlgP6VAHzW0UpewGumhyzW30DUXBKfgqOOkUw 
QYO 

Listing Full-Screen-Editor 


[ 791 ] 

[ 6621 ] 


[6603] 


[ 701 ] 

[14446 ] 


[ 16029 ] 


[16063] 


1000 ' ### LITTLE SHAPE VON CARSTEN BROMBA [1954] 

CH 1989 ### 

1010 MEMORY &9FFF:FOR i=&A000 TO &A094:REA [3726] 
D byte$:POKE i,VAL("&"+byte$):NEXT 

1020 CALL 8.A000 [ 637 ] 

1025 MODE 0:PEN 1:PRINT:PRINT"#";:PEN 15:P [7714] 
RINT"#":!READ,0.199,1:FOR y=199 TO 25 STEP 
-4:!SET,100,y,1:NEXT:CLS:GOTO 1025:END 
1030 DATA 01,13,aO,21,lc,aO,cd,dl [1422] 

1040 DATA bc,01,20,aO,21,28,aO,cd [1138] 

1050 DATA dl,bc,c9,17,aO, 18, 15,52 [2024] 

1060 DATA 45,41,c4,00,00,00,00,00 [1405] 

1070 DATA 24,aO,18,2b,53,45,d4,00 [1266] 

1080 DATA 00,00,00,00,fe,03,CO,Cd [1822] 

1090 DATA 75,aO,cd,88,aO,06,14,c5 [1665] 

1100 DATA d5,e5,cd,ld,bc,06,08,7e [1682] 

1110 DATA fd,77,00,23,fd,23,10,f7 [1502] 

1120 DATA el,dl,cl,2b,10,e9,c9,fe [1229] 

1130 DATA 03,cO,cd,75,aO,cd,88,aO [1336] 

1140 DATA cd,19,bd,06,14,c5,d5,e5 [1188] 

1150 DATA cd,ld,bc,06,08,fd,7e,00 [906] 

1160 DATA 77,23,fd,23,10,f7,el,dl [1254] 

1170 DATA cl,2b,10,e9,c9,dd,7e,00 [1796] 

1180 DATA fd,21,00,40,47,c5,06,a0 [1339] 

1190 DATA fd,23,10,fc,cl,10,f6,c9 [1766] 

1200 DATA dd,6e,02,dd,66,03,dd,5e [1062] 

1210 DATA 04,dd,56,05,c9 [979] 

Listing Little Shape 


1 REM 3D-FUNKTIONSPLOTTER [1035] 
10 MODE 2:DEG:ORIGIN 320,200 [1222] 
20 PRINT "Geben Sie die Funktion ein, dana [5967] 
ch die kleine ENTER-Taste !" 


30 KEY ll,CHR$(248)+"270 "+CHR$(13)+"GOTO 

[3467] 

50"+CHR$(13) 


40 END 

[ 110 ] 

50 INPUT "Winkel ",w 

[ 1053 ] 

60 INPUT "Quadratgroesse ",gr 

[1866] 

70 INPUT "X-Dehnung ",dx 

[1067] 

80 INPUT "Y ",dy 

[598] 

85 CLS 

[91] 

90 zx = COS(w):zy=SIN(w) 

[1873] 

100 FOR z=180 TO -180+gr STEP -gr 

[ 1865 ] 

110 FOR x=-180 TO 180-gr STEP gr 

[2531 ] 

120 GOSUB 270 

[ 92 7 ] 

130 bxl=dx*(x+z*zx):byl=dy*(y+z*zy) 

[1323] 

140 x = x + g r 

[ 1 292 ] 

150 GOSUB 270 

[ 927 ] 

160 bx2=dx«(x + z* zx):by2=dy*(y+z*zy) 

[3193 ] 

170 z=z-gr 

[ 751 ] 

180 GOSUB 270 

[ 927] 

190 bx3=dx*(x+z#zx):by3=dy#(y+z*zy) 

[2790] 

200 x = x-g r 

[ 1236] 

210 GOSUB 270 

[927] 

220 bx4=dx*(x+z*zx):by4=dy*(y+z*zy) 

[834] 

230 z = z + g r 

[839 ] 

240 MOVE bxl,by1:DRAW bx2,by2:DRAW bx3,by3 

[5122 ] 

:DRAW bx4,by4:DRAW bxl.byl 


250 NEXT x,z:END 

[1038] 

260 ' 

[117] 

270 ' 

[117] 

280 RETURN 

[ 555 ] 

Listing 3D-Funktionsplot 


1 REM KREIS 

[ 625 ] 

10 MODE 1 

[ 506 ] 

20 lNPUT"Anzahl der Punkte ";p 

[1979] 

30 IF p/2 < >INT(p/2) THEN 10 

[1019 ] 

40 I NPUT" Ve r satz 11 ; v 

[1432] 

50 INPUT"Radius x-Richt.";rx 

[2380] 

60 INPUT"Radius y-Richt.";ry 

[ 1912] 

70 INPUT"Dral1";d 

[1081] 

80 IF vOINT(v) OR v<0 OR v>(p-2)/2 THEN 1 

[2136] 

90 CLS:DIM f(2*p,2):xm=320:ym=200 

[1006] 

100 FOR i=1 TO p 

[406] 

110 f(i ,l) = xm+rx*SIN(2*PI*( i -1)/p) 

[2690] 

120 f(1 ,2 ) = ym+ ry*COS(2*PI*(i-l)/p) 

[1186 ] 

130 PLOT f(1 ,l),f(i ,2) 

[914] 

140 NEXT 1 

[ 375 ] 

150 pl=p/2+v 

[ 453 ] 

160 FOR i=1 TO p 

[406] 

170 xa=f(i,1):ya=f(i,2) 

[ 1669 ] 

180 pl=pl+d 

[117] 

190 IF pl>p THEN pl=pl-p 

[1012 ] 

200 xe=f(pl,1):ye=f(pl. 2 ) 

[1475] 

210 MOVE xa,ya:DRAW xe,ye 

[1584] 

220 NEXT 

[ 350] 

Listing Kreis 


1 REM QUADRAT 

[ 401 ] 

10 MODE 2 

[513] 

20 INPUT "Anzahl Punkte:";p 

[1365] 

30 IF p/4 <> INT(p/4) THEN 10 

[1027] 

40 INPUT"Abstand Quadrat:";ab 

[1568] 

50 INPUT"Versatz:"; v 

[1822] 

60 IF vOINT(v) OR v < 0 OR v>p/2 THEN 50 

[ 1807 ] 

70 a=p/4:e=(2*ab)/a 

[1398] 

80 DIM f(2*p,2) 

[ 694] 

90 ORIGIN 320,200 

[215] 

100 FOR i=1 TO p 

[ 406] 

110 IF j =a THEN j =0 

[ 719 ] 

120 IF i<=a THEN f(1,l)=-ab+e*j:f(1,2)=ab 

[2345] 

130 IF i<=2*a AND i>a THEN f(1,1)=ab:f(i,2 

[1356] 

)=ab-e*j 


140 IF 1<=3#a AND i>2*a THEN f(i,1)=ab-e*j 

[1630] 

: f Ci , 2)=-ab 


150 IF i< = 4*a AND i> 3* a THEN f ( i ,1 ) =-ab:f( 

[3136] 

i ,2 )=-ab+e*j 


160 j =j +1:NEXT:CLS 

[ 709] 

170 FOR i=1 TO p:PLOT f(i ,1) ,f(i ,2 ) : NEXT 

[1143] 

180 ’k=2*a+v 

[449] 

190 FOR i=1 TO p 

[406] 

200 xa=f(i,1):ya=f(i, 2 ) 

[ 1669 ] 

210 k = k + v:IF k > p THEN k=k-p 

[ 1860 ] 

220 xe = f(k, 1 ) :ye = f(k , 2 ) 

[1769] 

230 MOVE xa,ya:DRAW xe.ye 

[1584] 

240 NEXT 

[350] 

Listing Quadrat 



8’89/9Q Sonderheft 


cpc 121 










Tips & Tricks 


Neues vom 
Bankmanager 

Eine Verbesserung 

Wer einen CPC 6128 käuflich oder anders erworben hat, 
erhält gleichzeitig zwei Systemdisketten. Auf Seite 1 der 
Systemdiskette ist ein Programm mit dem Namen 
“BANKMAN.BAS“ vorhanden. Dieses lädt nach Start 
“BANKMAN.BIN“ nach und ermöglicht uns die Nut¬ 
zung der zweiten 64 kByte des 6128 unter BASIC. Das 
Handbuch erklärt auch die nähere Umgangsweise damit. 
Bei den dort gegebenen Beispielen läuft die ganze Sache 
auch reibungslos ab. Wenn man nun aber beginnt, eige¬ 
ne Programme unter Zuhilfenahme der RSX-Erweite- 
rung zu erstellen, kann es leider sehr leicht zu Programm¬ 
abstürzen, Fehlermeldungen oder unkorrekter Verarbei¬ 
tung der übergebenen Variablen kommen. Und das 
“vergällt“ einem sehr schnell die Freude an der Nutzung 
der zweiten RAM-Bank. Dieser Artikel soll Ihnen hel¬ 
fen, bei der Benutzung der zweiten RAM-Bank ohne 
großen Ärger auszukommen. 

Das Handbuch des CPC 6128 erklärt die Benutzung des BANK¬ 
MANAGERS leider.nicht abschließend und ausführlich genug, 
um ohne weiterführende Kenntnisse eine reibungslose Arbeit 
damit zu gewährleisten. 

Bankmanager als Bildspeicher 

Die Arbeit mit dem Programm zur schnellen Bearbeitung und 
Austausch von Bildschirminhalten wird im Handbuch ausrei¬ 
chend erklärt. Anzumerken ist hier nur, daß die Bild- und Da¬ 
tenverwaltung nicht gleichzeitig benutzt werden sollte, wenn Sie 
im Umgang mit dem Bankmanager noch nicht richtig vertraut 
sind. Denn was nützt Ihnen die schönste Grafik, wenn diese im 
zweiten Block der zweiten 64 kByte abgelegt ist und durch Ein¬ 
schreiben von Stringvariablen zerstört wird. Des weiteren ist 
darauf zu achten, in welchem Mode die Bilder bearbeitet wer¬ 
den . Am besten jedesmal einer numerischen Variablen den ak¬ 
tuellen Mode mit übergeben. Wird das nicht beachtet, kann es 
zu unliebsamen Überraschungen kommen, wenn Bilder in ver¬ 
schiedenen Modes getauscht werden. Am Ende des Artikels ist 
ein Berechnungsbeispiel aufgefühlt, welches aber nur mit wei¬ 
teren Kenntnissen aus diesem Text verstanden werden kann, aber 
für die gleichzeitige Bearbeitung von Grafiken und Daten mit 
dem Bankmanager wichtig sind (siehe auch Handbuch des CPC 
6128, Kap. 8, Seite 2 bis 4). 

Bankmanager als Datenverwaltung 

Das Programm verarbeitet ausschließlich Daten, welche vor¬ 
her einer Stringvariablen übergeben wurden. Zwar werden nu¬ 
merische Werte ohne Fehlermeldung oder Fehlercode (darauf 
kommen wir noch später zu sprechen) angenommen, aber nicht 
verarbeitet. Folglich müssen Daten immer mit STR$ oder 
DEC$ in Stringvariable umgewandelt werden, um diese dann 
in den zweiten 64 kByte ablegcn zu können. Abgesehen davon 
sollte von einer vorher festgelegten Länge eines Datensatzes 
nicht abgewichen werden (ähnlich wie bei der Behandlung von 
Variablen in der relativen Datenverwaltung mit Diskettenbe¬ 
trieb) . 


Nun geht es ans Eingemachte 

Zu Beginn müssen Sie vor aller Überlegung den Bankmanager 
mit RUN“BANKMAN.BAS“ starten, um die neuen RSX-Be- 
fehle zur Verfügung zu haben. Vor jeder neuen Inbetriebnah¬ 
me eines Programmes, welches mit dem erweiterten Befehls¬ 
satz arbeitet, muß die RSX-Erweiterung gestartet werden. Das 
kann auf die Dauer mit den ganzen Diskettenwechseln lästig 
werden. Leichter ist es da, die benötigten Programme von der 
Systemdiskette auf die jeweilige Arbeitsdiskette abzuspeichem. 
Das BASIC-Listing des Bankmanagers sträubt sich allerdings 
schon gegen eine normale Überspielung. Kein Wunder, das Pro¬ 
gramm wurde mit dem Zusatz “P“ abgespeichert, also LIST- 
geschützt. Entweder Sie heben den Listschutz mit einem Di- 
rectory-Editor-Programm auf, oder Sie kopieren beide Pro¬ 
gramme unter CP/M+ mit PIP. 

Vorgehensweise: Seite 1 der Systemdisketten einlegen und 
ICPM gefolgt von PIP eingeben. Dann “B:=A:Bankman.Bas“ 
tippen (gilt nicht für Besitzer eines zweiten Laufwerkes) und 
den Anweisungen auf dem Bildschirm folgen. Das gleiche mit 
“Bankman.Bin“ wiederholen. Nun haben Sie den Bankmanager 
vollständig auf Ihrer Arbeitsdiskette stehen. Dennoch muß nun 
immer noch vor Start eines Programms RUN “BANK¬ 
MAN.BAS“ eingegeben werden. Für alle diejenigen, die den 
binären Teil etwas professioneller innerhalb Ihres Programms 
laden wollen, können die Zeilen aus Listing 1 
(BANKMAN1.BAS) an den Beginn Ihres Listings setzen. 

Als darauffolgende Zeile empfehlen wir, gleich mit IBANKO- 
PEN,(x) festzustellen, ob tatsächlich der Bankmanager vorhan¬ 
den ist. Denn wird hier die Fehlermeldung UNKNOWN COM- 
MAND ausgegeben, kann in einer Fehlerabfangroutine entspre¬ 
chend darauf reagiert werden. Vor Neustart des Programms 
dann allerdings den Computer mit CTRL+SHIFT+ESC zu¬ 
rücksetzen. Nun können Sie “BANKMAN.BAS“ getrost ver¬ 
gessen. 

RSX-Befehle in der Datenverwaltung 

Eingabe eines RSX-Balkens erfolgt mit SHIFT+©-Taste gleich¬ 
zeitig. 

Syntax: IBANKOPEN,(numerischer Integerwert) 

Zu Beginn eines jeden Programms muß die längste Variablen¬ 
größe hiermit festgelegt werden. Sie sollten sich also Gedan¬ 
ken darüber machen, wie lang die längste in den zweiten 64 
kByte abzulegende Stringvariable sein wird. Hierbei sind ganz¬ 
zahlige Werte von 0-255 zugelassen. Null ist allerdings witz¬ 
los. Sollte bei diesem Befehl eine Fehlermeldung ausgegeben 
werden, ist der Bankmanager nicht oder nicht korrekt geladen. 
Gemäß Ihrer gewählten Länge werden die zweiten 64 kByte dar¬ 
aufhin organisiert. Während des Programmlaufes können Sie 
die Länge verändern, so oft Sie wollen. Doch Vorsicht! Daten 
können dabei leicht verlorengehen, wenn die Länge zu oft va¬ 
riiert. Es ist daher empfehlenswert, bei einer festgelegten Größe 
zu bleiben. 

Syntax: IBANKWRITE,©(numerischer Integerwert), 
(Stringvariable),( wähl weise numerischer Wert) 

Mit diesem Befehl werden Stringvariablen in die zweiten 64 
kByte geschrieben. Hierbei muß besonders sorgfältig gearbeitet 
werden. Der erste Parameter muß eine Integer (ganzzahlige)-Va- 
riable sein. 

Wurde zu Beginn Ihres Listings der Variablenname mit DE- 
FINT bereits als ganzzahlig festgelegt, kann auf ein nachgestell¬ 
tes %-Zeichen verzichtet werden. Ansonsten immer mit ange¬ 
ben! Bedeutung: Mit diesem Wert kann die als zweiter Parame¬ 
ter angegebene String variable in die entsprechende Stelle des 
Speichers geschrieben werden. Allerdings muß die Variable zu 
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Anfang des Listings zum Beispiel mit a% =0 unbedingt definiert 
werden. Denn c$=“ Versuch“: a % =3:1BANKWRITE, @a % ,c$ 
schreibt die Stringvariable c$ in die dritte Speicherstelle. 
Allerdings sollten Sie es tunlichst vermeiden, diese Variable für 
diesen Zweck zu benutzen. Denn selbst wenn der Variablen ein 
Wert zugewiesen wird, heißt es noch lange nicht, daß die jewei¬ 
lige String variable auch an die entsprechende Stelle geschrie¬ 
ben wird. Dieses ist besonders dann gegeben, wenn die Varia¬ 
blenzuweisung innerhalb einer FOR-NEXT- oder WHILE- 
WEND-Schleife geschieht. Zugegeben, das kann zwei oder 
auch fünfzigmal gutgehen. Aber die Erfahrung hat gezeigt, daß 
der erste Parameter einzig und allein zur Ausgabe des Fehler¬ 
codes wirklich brauchbar ist. 

UND DAS GLEICHE GILT SINNGEMÄß AUCH FÜR DEN 
BEFEHL IBANKREAD. 

Sollte bei Einschreiben oder Auslesen eines Strings ein Fehler 
auftreten, wird nicht, wie sonst unter BASIC üblich, eine Feh¬ 
lermeldung ausgegeben, sondern dem ersten Parameter ein ne¬ 
gativer Wert zugewiesen. 

- 1 Der gewählte Wert hegt außerhalb der zweiten RAM-Bank. 
Der letzte Einlese- bzw. Schreibbefehl wurde nicht ausgeführt. 

— 2 Es ist ein interner Umschaltfehler bei der Auswahl des Spei¬ 
cherbereiches innerhalb der zweiten RAM-Bank aufgetreten. 
Es ist unbedingt erforderlich, daß Sie jedesmal, wenn ein Wert 
ausgelesen bzw. eingeschrieben werden soll, gleich danach eine 
Routine aufrufen, welche prüft, ob ein Fehlercode ausgegeben 
wurde. 

Beispiel: 

100IF a% =-l THEN PRINT “Speicher voll! Ich gehe wieder 
zum Menue.“: GOTO (Menü) 

110 IF a%=-2 THEN CLS: PRINT“ BANKUMSCH ALTFEH¬ 
LER! Ich versuche es noch einmal“: GOTO (zum vorherigen 
Einschreib- oder Auslesebefehl. Achtung! Auf dritten Parameter 
achten) 

120 GOTO (zurück) 

Eine solche Routine muß natürlich den Programmgegebenheiten 
angepaßt werden. Grundsätzlich ist es nach einem Bankum- 
schaltfehler und interner Kontrolle der Variablen möglich, ei¬ 
nen erneuten Versuch zu starten. Beim zweiten Parameter 
(Stringvariable) ist es erlaubt, einen normal in Anführungszei¬ 
chen ausgegebenen String zu bearbeiten. Die Arbeitsweise ist 
die gleiche wie mit einer Stringvariablen. 

Wichtig! Bevor Sie das erste Mal (und auch während des Pro¬ 
grammablaufes beachten) arbeiten, muß eine Stringvariable erst 
einmal im Speicher definiert werden, sonst kann es zu Abar¬ 
beitungsfehlern kommen. Es empfiehlt sich daher, der Varia¬ 
blen bereits zu Beginn eines Listings die Länge des vorher mit 
lBankopen,(x) festgelegten Wertes zu geben. 

Nehmen wir an, Sie haben mit IBankopen,100 die zweite RAM- 
Bank organisiert, und Ihre Arbeitsvariable wurde mit arbeit$ 
benannt. Weisen Sie nun dieser Variablen einen Leerstring oder 
eine andere Länge mit arbeit$=SPACE$(100) zu. 

Weiterhin ist darauf zu achten, daß die Variable während des 
Programmablaufes diesen Wert nicht unter- beziehungsweise 
überschreitet. Problematik: Ist arbeit$ bei einem Schreibbefehl 
(IBankwrite) kürzer und Sie haben in der gleichen Speicherstelle 
bereits einmal einen String eingeschrieben, werden nicht alle 
Zeichen überschrieben. In späteren Auslesungen kann es dann 
zu unliebsamen Überraschungen kommen. Ist arbeitS bei ei¬ 
nem Lesebefehl (iBankread) ein Leerstring von der Länge Null, 
passiert (vielleicht) überhaupt nichts. 

Es findet folglich keine Auslesung statt. Ist arbeit$ bei einem 
Schreibbefehl (IBankwrite) länger, werden die überzähligen Zei¬ 
chen einfach abgeschnitten, und es gelangt nur ein Teil des 
Strings in den Speicher. Dann ist es zu überlegen, ob der Wert 
von lBankopen,(x) nicht vergrößert werden sollte. Vor jedem 


Der Wettbewerb 

Zum Sonderheft 
ein Sonderwettbewerb 

Damit sich all die kleinen grauen Zellen unserer Hirne nach 
der intensiven Lektüre dieses Sonderheftes ein wenig ent¬ 
spannen können, wollen wir an dieser Stelle einen kleinen 
Wettbewerb einstreuen. Es handelt sich dabei um ein soge¬ 
nanntes Spiralkreuzworträtsel. Die zu suchenden Begriffe 
werden von links oben im Uhrzeigersinn in das Gitter ein¬ 
getragen, wobei der letzte Buchstabe eines jeden Begriffe dem 
ersten des nächstgesuchten entspricht. Bei richtiger Lösung 
ergeben die Buchstaben in den Kreisen, falls richtig zusam¬ 
mengesetzt, ein Lösungswort, das auf eine Postkarte ge¬ 
schrieben an den 
DMV-Verlag 
Redaktion PC Amstrad 
Stichwort “Rätsel“ 

Postfach 250 
3440 Eschwege. 
geschickt werden sollte. 

Der Einsendeschluß ist der 7. März 1990. 

Unter allen richtigen Einsendungen werden folgende Prei¬ 
se verlost: 

1. Preis — Ein Software-Paket für den CPC, bestehend aus 
Context CPC, Turbo Data CPC, Fast Basic Compiler und 
Copy Shop. 

2. bis 10. Preis — je eines der oben genannten Programme 
nach eigener Wahl. Auf der Postkarte sollte daher das 
Wunschprogramm angegeben werden. 

Der Rechtsweg ist wie immer ausgeschlossen, Mitarbeiter 
des DMV-Verlages und deren Angehörige dürfen leider auch 
diesmal nicht teilnehmen. 

Aber nun zu unserem Rätsel: 
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1. Name der Firma, die den CPC ins Leben rief 

2. Dort, wo es gut munkeln ist 

3. BASIC-Befehl, der die For-Schleife beendet 

4. Weiblicher Verwandter, auch als Frau des Onkels bekannt 

5. Zusammensetzung aus arktischem Untergrund und brum¬ 
migem braunem Altgenossen 
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Zugriff auf die zweite RAM-Bank sollten Sie daher im Pro¬ 
gramm eine Routine einrichten, die prüft, ob der String zu lang 
oder zu kurz ist (sofern dieses nicht vorher geschehen ist). 

Beispiel: 

10 länge=100 :IBankopen, 100 usw. 

100 IF LEN(arbeit$)> länge THEN PRINT “STRING TOO 
LONG-ERROR!“:GOTO (zurück zur Eingabe) 

110 WHILE LEN(arbeit$) < länge: arbeit$ = arbeit$+“ 
WEND:GOTO (Lese/Schreibbefehl) 

Der dritte Parameter sollte nach Möglichkeit ein Integerwert 
sein. Gemäß meiner vorher gemachten Ausführungen ist der Pa¬ 
rameter eigentlich kein Wahlparameter mehr, sondern ein 
MUSS. 

Der Wert darf zwischen 0 und.hängt von der Speicheror¬ 

ganisation durch IBankopen,(x) ab (siehe auch Handbuch, 
Kap.8, S.4 bis 6). 

Syntax: IBankread,©(numerischer Integerwert), (String¬ 
variable), (wahlweise numerischer Wert) 

Für IBankread gilt sinngemäß das gleiche, wie zu IBankwrite 
ausgeführt. Nur daß hier ausschließlich Stringvariablen aus der 
RAM-Bank gelesen werden. 

Syntax: IBankfind,@(numerischer Integerwert),(Text), (nu¬ 
merischer Integerwert BEGINN), (numerischer Integerwert 
ENDE) 

Dieser Befehl ist ähnlich dem INSTR-Befehl des normalen 
BASIC. Auch hier sollte der erste Parameter nur zur Überprü¬ 
fung genutzt werden. Ansonsten vergleichen Sie die Hinwei¬ 
se in Ihrem Handbuch in Kapitel 8, Seite 6+7. 

Leider, der Befehl hat so seine Macken! 

1. Leicht kommt es bei Nutzung zu einem Fehlercode (häufi¬ 
ger -2). 

2. Auch der zu suchende String muß auf die Höchstlänge eines 
Datensatzes gebracht werden. 

3. Die Benutzung ist nicht komfortabel. 

4. Sie sind von Groß- und Kleinschreibung abhängig. 

Ihr CPC 6128 stellt für diesen Zweck einen wesentlich mäch¬ 
tigeren Befehl zur Verfügung (INSTR). 

Folgende kleine Routine ersetzt IBANKFIND nicht nur, son¬ 
dern ermöglicht eine bessere Arbeit mit den zu übergebenden 
Daten. Die Variablenbezeichnungen, wie auch die der anderen 
Beispiele, sind natürlich Ihren Programmgegebenheiten anzu¬ 
passen. 

10 INPUT,anfang:INPUT,ende:INPUT,such$ 

20 F0R x=anfang T0 ende 

30 IBANKREAD,@a#,arbeit$,x: 'Fehlerroutine aufrufen 
40 IF INSTR(arbeit$,such$) >0 THEN PRINT “Gefunden“ 

50 NEXT: GOTO (Menue usw.) 

Wie benutze ich die Datenverwaltung und die 

Bildbearbeitungsbefehle gleichzeitig? 

Schlagen Sie hierzu Ihr Handbuch Kapitel 8, Seite 2, auf. Die 
dort vorhandene Grafik verdeutlicht, wie der Bankmanager mit 
den Bildaustauschbefchlen arbeitet. Aber das geschieht nicht 
nur bei IScreenswap oder IScreencopy, sondern auch bei der 
Datenverwaltung mit den anderen Befehlen (nur unmerklich). 
Mit den Datenverwaltungsbefehlen werden die zweiten 64 kBy- 
te immer von Block 4 bis 7 in aufsteigender Reihenfolge gefüllt. 
Der Vorteil der Bildaustauschbefehle liegt auf der Hand. Hier 
können Sie selbst anhand der Parameter bestimmen, welcher 
Block gefüllt wird. Wenn Sie nun beide Möglichkeiten nutzen 
wollen, müssen Sie durch einfache Berechnungen nur sicher¬ 
stellen, daß sich die Befehle “nicht in die Quere“ kommen. 


Beispielprogramm Zeileneditor 

Genug der Theorie. Für alle, die auch gerne ein praktisches Bei¬ 
spiel haben, ist das Listing BANKMAN2.BAS von Interesse. 
Gegenüber den anderen Rechnern der CPC-Reihe bietet es er¬ 
hebliche Arbeitserleichterungen und Geschwindigkeitsgewin¬ 
ne. Es handelt sich hierbei um einen einfachen Zeileneditor für 
BASIC-Programme, Mit etwas Programmiererfahrung können 
Sie ihn problemlos erweitern (Beispiel: Erkennungsroutine für 
BASIC-SchlüsselWörter). Wer möchte, kann hier mit MER- 
GE das BANKMAN1-Listing bereits einfügen. 

Bedienung: 

Das zu bearbeitende Programm muß mit SAVE“a“,a als 
ASCII-Datei abgespeichert werden. Nach Möglichkeit sollte 
das zu bearbeitende Programm höchstens aus 256 Zeilen be¬ 
stehen und vor Abspeicherung mit RENUM eine Zeilenorga¬ 
nisation durchgeführt werden (muß nicht). Das Programm be¬ 
steht hauptsächlich aus fünf Optionen, welche während des Pro¬ 
grammlaufes fast immer bereit sind. Gerade begonnene Optio¬ 
nen werden dann allerdings nicht mehr durchgeführt. Alle 
Optionen werden mit den Tasten des Zehnerblockes aufgeru¬ 
fen. Aus Platzgründen wird hier nur auf die wesentlichen Op¬ 
tionen eingegangen. 

< fl > Zeileneditor: Als Vorzeichen ist vor jeder Nummer ent¬ 
weder ein “d“ für einen bekannten und bestimmten Datensatz, 
oder, falls nicht bekannt, ein “z“ für Zeilennummer einzuge¬ 
ben. Bei “d“ ist die Abarbeitung allerdings schneller, daher 
auch das RENUM vor Abspeicherung. Faustregel bei einge¬ 
ladenen Programmen mit Zeilennummembeginn bei 10 und 10 
Zeilen Unterschied zur nächsten: Zeilennummer / 10 = Da¬ 
tensatz. Wird die entsprechende Zeile gefunden, werden, je 
nach Länge der vorhergehenden Zeilen, bis zu fünf gleich zum 
Nachschauen mit auf dem Bildschirm ausgegeben. Geändert 
wird genauso, wie bei dem Ihnen bereits bekannten String-Edi¬ 
tor. Als kleines Schmankerl können Sie aus den abgebildeten 
Zeilen auch mit der COPY/CURSOR-Methode einzelne Zei¬ 
chen kopieren. 

< f2 > Zeichenfolge suchen: Hier kann eine zu suchende Zei¬ 
chenfolge (auch Steuercodes mit der CTRL-Tastenmethode) 
mit einer maximalen Länge von 255 Zeichen eingegeben wer¬ 
den. Übrigens! Das Programm verarbeitet in jedem Falle über 
CONTROL eingegebene Steuerzeichen. Auf Groß- und Klein¬ 
schreibung braucht nicht geachtet zu werden. Es sei denn, Sie 
geben ein BASIC-Schlüssel wort ein. 

< f3 > Zeilen zeigen: Ist dem LIST-Befehl im Direktmodus 
ähnlich. Eingaben müssen hier allerdings immer Datensatz¬ 
nummern sein, keine Zeilen. 

< f4 > Beenden: Der RAM-Bank-Inhalt wird unter dem Na¬ 
men “A“ abgespeichert und gleich gestartet. Die alte “A“-Datei 
erhält den Namen “A.BAK“. Besonderheit: Der Speicherin¬ 
halt der RAM-Bank bleibt bestehen. Nach Neustart des Pro¬ 
gramms können Sie dann diesen Inhalt weiterbearbeiten. Aus 
Gründen erhöhter Arbeitsgeschwindigkeit wird unter dem Na¬ 
men “B“ immer eine zusätzliche Datei abgespeichert, um die 
enthaltenen Daten bei Programmbeginn nicht neu zu berech¬ 
nen. Diese muß immer mit auf der Diskette mi t der dazugehö¬ 
renden “A“-Datei vorhanden sein. 

< f5 > Neustart: Das Programm wird neu gestartet. Der In¬ 
halt der RAM-Bank ist dennoch weiter bearbeitbar. 

(Holger Schäkel/cd) 
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für 6128 

lzi" . : - 



xo ' ************************************ 
20 ' * Listing Bankman1.Bas * 

40 ' 

50 IF HIMEM= 4 2 619 AND PEEK(4143X)<>201 THE 
N SYMBOL AFTER 256:MEMORY 41430:LOAD"bankm 
an.bin",41431:SYMBOL AFTER 240:CALL 41431: 
ELSE IF PEEK(41431)< >201 THEN PRINT"Speich 
erorganisation nicht kompatibel. Neustart 
erbeten!":END 


[1383] 

[1940] 

[1383] 
[117] 

[ 15355 ] 


10 1 Als Zeile 10 koennen Sie hier das Lis [3866] 
ting BANKMAN1.BAS nutzen. 

20 ' ************************************* [1543] 

* 

30 a$="Programmbearbeitung auf CPC 6128 [3493] 


40 b$=" von Holger Schaekel" 

* 

60 ' *** Initialisierungen 
70 1 

80 ON ERROR GOTO 2140 

90 MODE 2:DEFINT a-z:DIM zahl(257),numner( 
257):a=0:an=l:anfang=0:ende=0:INK 0,26:INK 
1,0:PEN 1:PEN#1,0:PAPER 0:PAPER#1,1:CLS:B 
ORDER 26 

100 IBAN KOPEN,255:1 ese$ = SPACE$(255 ):c$="<f 
1> Zeilenedit <f2> Zeichensuche <f3> Zeile 
n zeigen <f4> Beenden <f5> Neustart " 

110 PRINT STRING$(81,42)SPC(8)CHR$(24)a$CH 
R$(164)" 05/1988"b$CHR$(24)SPC(8)"*"STRING 
$(80,42) 

120 FOR x = 4 TO 23:LOCATE 1,x:PRI NT"*":LOCA 
TE 80 , x : PRINT"*' 1 : NEXT 

130 LOCATE 1,24:PRINT CHR$(24)SPC(28)"* Ak 
tuelle Menuepunkte *"SPC(28)CHR$(24) 

140 WINDOW 3,78,5,23:WIND0W#1,1,80,25,25:W 
INDOW#2,3,78,5,23:CLS:CLS#1:PRINT”Bitte Di 
skette mit Datei >"CHR$(24)"A"CHR$(24)"< e 
inlegen!" 

150 PRINT:PRI NT 'Ist das gewuenschte Progra 
mm bereits in der zweiten RAM-Bank [J/N]" 
160 GOSUB 1140:CLS#1:IF a$="J" THEN GOSUB 
12 30:IF d aten >1 THEN 300 
170 ' *** Programm laden *** 

180 ' 

190 PRINT:PRINT"Bitte eine Taste druecken" 
:CLEAR INPUT:CA L L &BB06 

200 PRINT CHR$(ll)SPC(25):daten=l:fehler=0 
: 1 ERA, "b":PRINT CHR$(11)CHR$(20) 

210 OPENIN "A":OPENOUT"B":WHILE NOT EOF 
220 LINE INPUT#9,1ese$:IF NOT EOF AND(lese 
$="" OR 1ese$=SPACE$(255))THEN 220 
230 zahl(daten)=LEN(lese$):nummer(daten)=V 
AL(lese$):WRITE#9,zahl (daten),numme r(daten 
):GOSUB 1190 

240 ]BANKWRITE,@a,1ese$,daten:IF a=-2 THEN 
ERROR 33 

250 IF a=-1 THEN PR I NT:PR I NT"Speicher voll 
!":GOSUB 1370:GOTO 280 

260 LOCATE 1,5:PRI NT"Ich bearbeite Datensa 

tz :";USING"####";daten 

270 daten=daten+1:WEND 

280 daten=daten-l:CLOSEIN:CLOSEOUT 

290 1BANKWRITE,@a,DEC$(daten,"####")+SPACE 

$(246),0:IF a=-2 THEN ERROR 33 

300 ' *** Laenge laden *** 

310 ' 


[ 1792 ] 
[1543] 

[1283] 
[117] 

[ 1471] 
[8345] 


[6284] 

[4678] 

[ 4932 ] 
[ 5329 ] 
[10464 


[ 5879 ] 

[ 2671 ] 

[2253] 

[117] 

[4852] 

[ 4352 ] 

[ 2439 ] 
[5124] 

[6150] 


[3444] 

[ 4688 ] 

[4490] 

[1280] 
[2388] 
[4806 ] 

[2652] 
[117] 
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320 IF a$=" J 11 THEN OPENIN" B" : FOR x=l TO da 
ten:INPUT#9,zahl(x),nummer(x):NEXT:CLOSEIN 
330 ' *** Hauptroutine *** 

340 ' 

350 LOCATE#3,2,24:PRINT#3,CHR$(24)"Daten : 
"DEC$(daten,"####")CHR$(24) 

360 CLS:CLS#1:CLEAR INPUT:pruef:x=80:s 

pringe= 10 :kopie =0 

370 WHILE springe=10:FRAME 

380 LOCATE#1,l,l:PRINT#l,RIGHT$(c$,x)LEFT$ 
(c$,80-x ) ; 

390 GOSUB 1290:x=x-l:IF x=0 THEN *=80 
400 WEND:PRINT#1,c$; 

410 ON springe GOTO 420,650,730,890,1020 
420 ‘ *** <fl> Zeilenedit *** 

430 ' 

440 kopie= 1 :fehler = 0:datenl = 0:CURSOR 0,0:C 
LS 

450 PRINT"Welche(r) "CHR$(24)"D"CHR$(24)"a 
tensatz Oder "CHR$(24)"Z"CHR$(24)"ei1e :" 
460 PRINT:PRINT"Eingabe mit Vorzeichen 
;:1aenge=6:GOSUB 1980:such$=hilf$ 

470 IF springeOlO THEN 410 

480 IF such$="" THEN 330 

490 pruef$=UPPER$(LEFT$(such$,1)) 

500 IF pruef$="Z" THEN such$=RIGHT$(such$, 
LEN(such$)-l):anfang=l:ende=daten:GOTO 153 
0 

510 IF pruef$="D" THEN daten1=VAL(RIGHT$(s 
uch$,LEN(such$)-l)) 

520 IF daten1<1 OR datenlidaten THEN PRINT 
:PRINT"Falsehe Werte. Bitte neu auswaehlen 
!":GOSUB 1370:GOTO 420 

530 CLS:anfang=1:zah11=0:IF daten1-anfang< 
= 1 THEN an f ang=1:GOTO 600 

540 zahll=zahl1+zahl(datenl-anfang):IF zah 
11<537 AND daten1-an fang>1 THEN anfang = anf 
ang+l;G0T0 540 

550 IF daten1-anfang<1 THEN anfang=anfang- 
1:GOT0 550 

560 IF anfang>5 THEN anfang=5 
570 FOR x=anfang TO 1 STEP-1 

580 (BANKREAD,@a,1ese$,datenl-x:IF a=-2 TH 

EN ERROR 33 

590 GOSUB 1870:NEXT 

600 !BANKREAD,@a,1ese$,datenl:IF a=-2 THEN 
ERROR 33 

610 zaehl e r = daten 1 : GOSUB 1650:IF springeO 
10 THEN 410 
620 GOSUB 2090 

630 !BANKWRITE,@a,1ese$,datenl: IF a = -2 THE 
N ERROR 33 
640 GOTO 330 

650 ' *** < f 2 > Zeichen suchen *** 

660 ' 

670 pruef$="":fehler=0:datenl=l:CURSOR 0,0 
: CLS 

680 PRINT"Bitte geben Sie die zu suchende 
Zeichenfolge ein 

690 PRINT:PRINT:1aenge=255:GOSUB 1980:such 
$ = hi1f$ 

700 IF springeOlO THEN 410 
710 IF such$="" THEN 330 
720 GOSUB 1420:GOTO 330 
730 *** < f 3 > Zeilen zeigen *** 

740 ' 

750 anfang=l:ende=daten:fehler=0:CURSOR 0, 
0 : CLS 

760 anfang=l:LOCATE 1,3:PRINT"Beginn Daten 
: 1aenge = 6:GOSUB 1980:IF hilf$="" THEN 

780 ELSE anfang = VAL(hi 1f$) 

770 IF anfangd OR anfangidaten THEN 760 
780 IF springeOlO THEN 410 
790 ende=daten:LOCATE 1,5:PRINT"Ende Daten 
: 1aenge=6:GOSUB 1980:IF hilf$="" TH 

EN 810 ELSE ende=VAL(h11f$) 

800 IF ende<anfang OR ende>daten THEN 790 
810 IF springeOlO THEN 410 
820 FOR x=anfang TO ende 

830 !BANKREAD,@a,1ese$,x:IF a=-2 THEN ERRO 
R 33 

840 LOCATE 1, 7:PR I NT"Arbeitsdaten : ";USIN 
G"####" ; x 

850 zaehl er = x :G0SUB 1650:IF springeOlO TH 
EN 410 

860 GOSUB 2090 

870 IBANKWRITE,@a,1ese$,x:IF a=-2 THEN ERR 
OR 33 

880 NEXT:GOTO 330 
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[4442 ] 

[ 1840 ] 
[117] 

( 3338 ] 

[2300] 

[ 1607 ] 
[2379] 

[ 1530 ] 
[953] 

[ 1921 ] 
( 988 ] 
[117] 
[3170] 

[6044] 

[5759] 

[2148 ] 
[ 1472 ] 
[2039 ] 
[3668] 


[1826] 
[6050] 


[4259] 
[5549] 


[2658] 

[1605 ] 
[1625] 
[3038] 

[ 1502 ] 
[ 2723 ] 

[ 3402 ] 

[ 865 ] 

[ 3229 ] 

[ 506] 

[ 1626 ] 
[117] 
[2820] 

[ 5635 ] 

[4309] 

[2148] 
[1472] 
[1368] 
[ 1207] 
[117] 

[ 2261] 

[6224] 


[2841] 
[2148] 
[5034] 


[ 2535 ] 
[2148] 
[1553] 
[2837] 

[3180] 

[2658] 

[ 865 ] 

[4290] 

[1172] 
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890 ' *** <f4> Beenden *** [514] 

900 ‘ [117] 

910 fehler = 0:CURSOR 0,0:CLS:PRINT "Sol 1 das [ 5869 ] 
Programm wirklich beendet werden [J/N]":G 


OSUB 1140 

920 IF a$="N" THEN 330 [937] 

930 ;ERA,"a.bak":|REN,"a.bak","a":OPENOUT" [4316] 

a" 

940 FOR x=l TO daten: 1ese$ = SPACE$( 255 ) [2 728 ] 

950 LOCATE 1,3:PR1 NT"Datensatz : ";USING" [2650] 
####";x 

960 |BANKREAD,@a,1ese$,x:IF a=-2 THEN ERRO [2848] 

R 34 

970 IF 1ese$=SPACE$(255) THEN 1000 [1963] 

980 1ese$=LEFT$(lese$,zahl(x)) [1629] 

990 PRINT#9,lese$ [1265] 

1000 NEXT:CLOSEOUT:GOSUB 1090 [1596] 

1010 MODE 2 : CAL L &BC02 : RUN a[ 1583] 
1020 1 *** < f 5 > Neustart *** [ 1053 ] 

1030 ' [117] 

1040 fehler = 0:CURSOR 0,0:CLS:PRI NT"Sie wue [5628 ] 
nschen einen Neustart [J/N]":GOSUB 1140 
1050 IF a$="N" THEN 330 [937] 

1060 GOSUB 1090:RUN [ 1556 ] 

1070 ' *** Unterprogramme **# [1727] 

1080 ' [117] 

1090 ' *** Laenge sichern *** [2861] 

1100 ' [117] 

1110 !ERA,"b":OPENOUT"b":FOR x=l TO daten [3569] 
1120 WRITEÜ9,zahl(x),nummer(x) [1731] 

1130 NEXT:CLOSEOUT:RETURN [855] 

1140 ' *** [J/N] Abfrage *** [1131] 

1150 ' [117] 

1160 CLS#1:CLEAR lNPUT:a$="" [907] 

1170 WHILE a$ < >"J" AND a$<>"N":a$ = UPPER$(I [4071] 
NKEY$): WEND 

1180 RETURN [555] 

1190 ' *** Stringlaenge *** [1019] 

1200 ' [117] 

1210 laenge=LEN(lese$):IF laenge<255 THEN [3583] 
lese$=lese$+STRING$(255—1aenge,32) 

1220 RETURN [555] 

1230 1 *** Programm bereits im Speicher ** [2529] 

* 

1240 1 [117] 

1250 1 BANKREAD,@a,1ese$,0:IF a = -2 THEN ERR [ 1996 ] 
OR 33 

1260 daten=VAL(1ese$) [253] 

1270 IF d a t en <1 THEN PRI NT:PRI NT"Stimmt ja [ 4237] 
gar nicht!":a$="NGOSUB 1370 
1280 RETURN [555] 

1290 *#* Welche Taste wurde gedrueckt ** [3180] 

* 

1300 ' [117] 

1310 springe=10:IF INKEY(13)=0 THEN spring [3946] 
e= 1 

1320 IF INKEY(14)=0 THEN springe=2 [905] 

1330 IF INKEY(5)=0 THEN springe-3 [981] 

1340 IF INKEY(20)=0 THEN springe=4 [1652] 

1350 IF INKEY(12)=0 THEN springe=5 [1563] 

1360 RETURN [555] 

1370 ' *** Warteschlange *** [ 1745 ] 

1300 ' [117] 

1390 pause=l:AFTER 150,0 GOSUB 1410:PRINT [2929] 
CHR$(7) 

1400 WHILE pause=l:WEND [1958] 

1410 pause=0:RETURN [2026] 

1420 ' *** Zeichenfolge suchen *** [3158] 

1430 ' [117] 

1440 anfang = l:ende=daten:fehler=0 [1236] 


1450 CLS:PRINT"So 11 bestimmbar bei der Suc [7211] 
he vorgegangen werden [J/N]":GOSUB 1140:IF 
a$="N" THEN 1520 

1460 anfang=l:LOCATE 1 , 5:PR I NT ' Anfang Such [7173] 
e bei 1aenge=6:GOSUB 1980:IF hilf$="" 

THEN 1480 ELSE anfang = VAL(hi 1f$) 

1470 IF an f ang <1 OR anfang>daten THEN 1460 [2990] 
1480 IF springeOlO THEN 410 [2148] 

1490 ende = daten:LOCATE 1,7:PRI NT"Ende der [ 7234 ] 
Suche bei 1aenge=6:GOSUB 1980:IF hilf$ 

="" THEN 1510 ELSE ende = VAL(hi1f$ ) 

1500 IF ende <1 OR ende>daten OR ende<anfan [2133] 
g THEN 1490 

1510 IF springeOlO THEN 410 [2148] 

1520 CLS:PRINT CHR$(24)"Gesucht wird :"CHR [7712] 
$(24):PRINT:FOR y=l TO LEN(such$):PRINT CH 
R$(l)MID$(such$,y,1);:NEXT 
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1530 PRINT#1,c$;:FOR x=anfang TO ende 
1540 IF pruef$=”" THEN LOCATE l,8:PRINT"Da 
tensatz : ;USING"####";x 

1550 !BANKREAD,@a,1ese$,x:IF a=-2 THEN ERR 
OR 33 

1560 GOSUB 1290:IF springeOlO THEN 410 
1570 IF pru e f$=“Z" AND VAL(1ese$) = VAL(such 
$) THEN 1600 

1580 IF pruef$='"' AND I N STR ( UPPE R$ ( 1 e s e $ ) , 
UPPER$(such$))>0 THEN 1610 
1590 NEXT:CLS:PRINT"Ich habe das Ende der 
Daten erreichtGOSUB 1370:GOTO 330 
1600 IF pruef$="z" THEN daten1=x:GOTO 530 
1610 zaehler = x: GOSUB 1650:IF springeOlO T 
HEN 410 

1620 GOSUB 2090 

1630 !BANKWRITE,@a,1ese$,x:IF a = -2 THEN ER 
ROR 33 

1640 GOTO 1590 

1650 *** Editor *** 

1660 ' 

1670 falsch=l:LOCATE l,15:GOSUB 1870 :lOCAT 
E 1,19:PRINT SPC(43);:LOCATE 1,15:buchstab 
e=l:PRINT CHR$(7);:CURSOR 1,1 
1680 CLEAR INPUT:tipp$="":WHILE tipp$="":t 
ipp$=INKEY$:WEND 

169 0 )i=P0S(#0);re = V POS(# 0): 1in=POS(#2): re 
C=VP05(#2):ti= ASC(tipp$) 

1700 GOSUB 1290 : IF ti=13 OR springeOlO TH 
EN CURSOR 0,0:CURSOR#2,0,0:an=l:GOSUB 1930 
: IF(VAL(1ese$)<>0 OR 1ese$=SPACE$(255))ANO 
falsch THEN nummer(zaeh1er)=VAL(1ese$):RE 
TURN:ELSE LOCATE 1,19:PRI NT"Zei1ennummer f 
ehlt bzw. bereits vorhandenGOTO 1650 
1710 IF Kopie AND an AND(ti=247 OR ti=246 
OR ti=244 OR ti=245)THEN an = 0 : ti=255: LOCAT 
E#2,1i,re:CURS0R#2,1,1 

1720 IF ti= 243 THEN ti=255:IF buchstabe<25 
5 THEN PRINT CHR$(9);:buchstabe=buchstabe + 
1:GOT 0 1680 

1730 IF ti=2 4 7 AND kopie THEN ti=255:IF 1i 
n+ rec < >95 THEN PRINT#2,CHR$(9) ; 

1740 IF ti=242 THEN ti=255:IF buchstabe)1 
THEN PRINT CHR$(8);:buchstabe=buchstabe-1: 
GOTO 1680 

1750 IF 11=246 AND kopie THEN ti=255:IF li 
n+rec< >2 THEN PRINT#2,CHR$(8) ; 

1760 IF ti=240 THEN ti=255:IF re>15 THEN P 
RINT CHR$(11);:buchstabe=buchstabe-76:GOTO 
1680 

1770 IF ti=244 AND kopie THEN ti=255:IF re 
C>1 THEN PRINT#2,CHR$(11); 

1780 IF ti= 241 THEN ti=255:IF re<18 THEN I 
F buchstabe+76>255 THEN 1680 ELSE PRINT CH 
R$(10);:buchstabe=buchstabe+76:GOTO 1680 
1790 IF ti=245 AND kopie THEN ti=255:IF re 
C < 19 THEN PRINT#2,CHR$(10) ; 

1800 IF ti=12 7 THEN 1ese$=LEFT$(lese$,buch 
stabe-1)+RIGHT$(1ese$,255-buchstabe)+" ":C 
URSOR 0,0:LOCATE 1,15:GOSUB 1870:L0CATE li 
,re:CURSOR l,l:GOTO 1680 

1810 IF INKEY(47)=32 AND buchstabe>l THEN 
1ese$=LEFT$(1ese$,buchstabe-1)+" "+MI0$(1e 
se$,buchstabe,256-(buchstabe+1)):CURSOR 0, 
0:LOCATE l,15:GOSUB 1870:LOCATE li,re:CURS 
OR 1,1:GOTO 1680 

1820 IF ti=16 THEN 1ese$=SPACE$(255):CURSO 
R 0,0:LOCAT E 1,15:PRINT 1ese$; :LOCATE 1,15 
:CURSOR 1,1:buchstabe=l:GOTO 1680 
1830 IF ti=2 2 4 THEN tipp$=" " 

1840 IF ti=224 AND kopie AND an=0 THEN tip 
p$=COPYCHR$(#2):IF lin+rec<>95 THEN PRINT# 
2,CHR$(9 ) ; 

1850 IF ti=2 5 5 THEN 1680 ELSE IF buchstabe 
>255 THEN buchstabe=255:PRINT CHR$(8);:GOT 
0 1680 

1860 PRINT CHR$(1)tipp$|:MID$(1ese$,buchst 
abe,l)=tipp$:buchstabe=buchstabe+1:GOTO 16 
80 

1870 ' *** Zeile ausgeben *** 

1880 ‘ 

1890 FOR y=1 TO 25S:PRINT CHR$(1)MID$()ese 

$.y, i); 

1900 IF RIGHT$(1ese$,255-y)=SPACE$(255-y)T 
HEN y=255:PRINT CHR$(20) 

1910 NEXT 

1920 PRINT:RETURN 


[2547] 

[4808] 

[ 2837 ] 

[ 1877] 
[ 1022 ] 

[2829] 

[ 7878 ] 

[1041 ] 
[2658] 

[ 865 ] 

[ 4290 ] 

[317] 

[ 1227 ] 
[117] 

[8293] 


[3222] 

[3895] 

[ 18819 ] 


[7667] 

[6064] 

[ 5563 ] 

[4816] 

[3484] 
[5842] 

[ 2609 ] 
[7673] 

[3895 ] 

[ 8678 ] 

[ 14095] 


[4516] 

[1104] 

[5519] 

[4169] 


[6579] 


[2939] 
[117] 

[3041 ] 

[3608 ] 

[350] 

[914] 
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1930 

'*** Nummer pruefen *** 

[1108 ] 

1940 


[117] 

1950 

FOR y=1 TO daten 

[1413] 

1960 

IF nummer ( y )=VAL (1 ese$ ) AND zaehlerOy 

[2624] 

THEN y=daten:falsch=0 


1970 

NEXT:RETURN 

[ 940 ] 

1980 

' *** Eingabe *** 

[1674] 

1990 


[117] 

2000 

CLEAR INPUT:hi 1 f$="":CURSOR 1,1 

[ 1509 ] 

2010 

a$="":WHILE a$="":a$=INKEY$;WEND 

[ 1812 ] 

2020 

GOSUB 1290 

[865 ] 

2030 

IF a$ = CHR$ (13) OR springeOlO THEN CU 

[1217] 

RSOR 

0,0:PRINT:RETURN 


2040 

IF INK EY(16)=0 THEN CURSOR 0,0:x=LEN( 

[4754] 

hi1f$):PRINT STRING$(x,8)SPC(x)STRING$(x,8 


);:GOTO 2000 


2060 

IF INKEY(79)=0 AND LEN(hilf$)>0 THEN 

[ 5523 ] 

PRINT CHR$(8)" "CHR$(8); :hi 1f$=LEFT$(hi1f$ 


,LEN(hi1f$)-l):GOT0 2010 


2060 

IF NOT(INKEY(2) AND INKEY(O) AND INKE 

[4627] 

Y ( 1 ) 

AND INKEY(8) AND INKEY(79)) THEN 2010 


2070 

IF LEN(hi1f$)=1aenge THEN 2010 

[2316] 

2080 

PRINT a$; :hi 1f$ = hi1f$ + a$:GOTO 2010 

[2460] 

2090 

' *** Variable zahl? *** 

[1683] 

2100 

' 

[117] 

2110 

FOR z=l TO 255 

[1142] 

2120 

IF RIGHTS(1ese$,255-z)=SPACE$(255-z)T 

[4529 ] 

HEN zahl(zaehler)=255-(255-z): z = 255 


2130 

NEXT:RETURN 

[ 940 ] 

2140 

*** Fehler abfangen *** 

[1441] 

2150 

' 

[117] 

2160 

CLS: di skfehl er = DERR AND 8.7F : f ehl e r = fe 

[ 1595] 

hler+1 


2170 

IF ERR <33 OR fehler>5 THEN 2290 

[ 1 772 ] 

2180 

IF ERL = 240 THEN RESUME 240 

[1404] 

2190 

IF ER L= 2 9 0 THEN RESUME 290 

[2088] 

2200 

IF ER L= 5 8 0 THEN RESUME 580 

[1138 ] 
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2210 IF ERL= 600 THEN RESUME 600 

2220 IF ER L= 6 3 0 THEN RESUME 630 

2230 IF ERL = 830 THEN RESUME 830 

2240 IF ERL = 8 70 THEN RESUME 870 

2250 IF ERL = 960 THEN RESUME 960 

2260 IF ERL=1250 THEN RESUME 1250 

2270 IF ER L=15 5 0 THEN RESUME 1550 

2280 IF ERL=1630 THEN RESUME 1630 

2290 IF ERR > 32 THEN PRI NT"' e1der ist ein u 

nreparabler BANKUMSCHALTFEHLER aufgetaucht 

i " 

2300 IF ERR=33 THEN PRI NT:PR I NT"Ich versuc 
he durch Abspeicherung, die Daten zu rette 
n!“:PRINT:PRINT CHR$(24)"TASTE“CHR$(24):CL 
EAR INPUT:CALL &BB06:RESUME 890 
2310 IF £RR=34 THEN PRINT:PRINT"Ich versuc 
he durch Neustart, die Daten zu retten! 11 : P 
RINT:PRINT CHR$(24)"TASTE"CHR$(24):CLEAR I 
NPUT:CALL &BB06:GOSUB 2310:RUN 
2320 IF diskfehler=19 OR diskfeh 1er = 20 THE 
N PRINT"Diskette ist voll. Bitte eine ande 
re einlegen. Programm wird neugestartet!": 
GOSUB 13 70:RUN 

2330 PRINT"Es ist ein Fehler aufgetaucht!" 
2340 PRINT:PRINT"In Zeile : "DEC$(E 

RL,"#*##") 

2350 PRINT:PRINT"Fehlernummer : "DEC$(E 

RR,"####" ) 

2360 PRINT:PRINT"Diskettenfehler : "DEC$(d 
iskfehler,"####") 

2370 PRINT:PRINT"Bitte schauen Sie in Ihre 
m Handbuch nach." 

2380 PRINT:PRINT CHR$(24)"Programm wurde b 
eendet!"CHR$(24) 

2390 IF ERR=28 THEN PRINT:PRINT"BANKMAN no 
ch laden!" 

2400 PRINT:END 


[319] 

[1016] 
[974] 
[1157] 
[1745] 
[1473] 
[1038] 
[1497] 
[ 5499 ] 


[10722] 


[ 10694 ] 


[9631] 


[2811] 
[ 2258 ] 

[3024] 

[2437] 

[ 3768 ] 

[ 2855 ] 

[2522] 

[ 738 ] 
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Sie wollen uns ein Programm zusenden! Folgende Regeln sollten Sie beachten: 


1) Schicken Sie Ihre Programme auf 
Diskette oder Kassette. Dabei mehr¬ 
mals abspeichem. 

2) Legen Sie eine ausführliche Pro¬ 
grammbeschreibung bei, aus der ein¬ 
deutig der Sinn und Zweck des Pro¬ 
gramms hervorgeht. Am besten spei¬ 
chern Sie die Beschreibung als Text¬ 
file (Wordstar, ConText, LocoScript 
o.ä.) ebenfalls auf Datenträger. 

3) Schicken Sie auf jeden Fall ein Pro- 
grammlisting mit. 

4) Vergessen Sie Ihren Absender nicht! 
Vollständige Anschrift, wenn mög¬ 
lich auch die Telefonnummer, erspa¬ 
ren unnötige Verzögerungen unserer¬ 
seits. 

5) Behalten Sie auf jeden Fall eine Ko¬ 
pie Thres Programms, unvorherseh- 
barc Umstände werden somit nicht 
zur Katastrophe. 


6) Wenn Sie sogar mehrere Programme 
geschrieben haben und diese veröffent¬ 
lichen wollen, nehmen Sie bitte für je¬ 
des Programm einen separaten Daten¬ 
träger (mehrmals abspeichern!). 

Damit erleichtern Sie uns die Arbeit 
wesentlich, und eine schnellere Bear¬ 
beitung wird möglich. 

7) Versehen Sie das Programm mit den 
sehr wichtigen RJEM-Statements. Das 
fördert nicht nur die Übersicht für uns 
und unsere Leser, sondern unterstützt 
zusätzlich das strukturierte Program¬ 
mieren. Merke: Auch erfahrene Pro¬ 
grammierer verwenden REM-Zeilen, 
das Programm sollte schließlich jeder 
verstehen und anwenden können. 

8) Vermeiden Sie möglichst Variablenna¬ 
men, wo leicht I und i oder O und o 
verwechselt werden können. Variablen 
sollten grundsätzlich in Kleinbuchsta¬ 


ben geschrieben werden und mög¬ 
lichst verständlich sein. Die Variable 
butter sagt mehr aus als nur bu. 

9) Bieten Sie das Programm niemals 
verschiedenen Verlagen gleichzeitig 
an! Mit der Veröffentlichung und dem 
daraus resultierenden Honorar gehen 
die Urheberrechte an den Verlag 
über! Sollte Ihr Programm noch in ei¬ 
ner anderen Zeitschrift abgedruckt 
werden, hegt ein Verstoß gegen das 
Wettbewerbsrecht vor. 

10) Jedes bei uns ordnungsgemäß einge¬ 
gangene Programm wird ausführlich 
begutachtet und getestet. Sie erhalten 
von uns dann umgehend Bescheid, ob 
Ihr Programm veröffentlicht wird 
oder nicht. Wenn Sie das Programm 
nach unserer Begutachtung zurück¬ 
haben wollen, legen Sie bitte der Ein¬ 
sendung einen frankierten Rückum¬ 
schlag bei. 


Falls wir uns für den Abdruck Ihres Programms entschieden haben, setzen wir uns unverzüglich mit Ihnen in Verbindung 
und besprechen Ihr verdientes Honorar! 

Übrigens wäre es nett, wenn Sie uns auch ein paar persönliche Daten schreiben würden (z.B. Ihr Alter, Tätigkeit, wie und 
wann kam die Idee zu dem Programm, was alles machen Sie mit dem Rechner usw.?). So, jetzt aber genug der Theorie, mit 
fast unerträglicher Spannung und Neugier wartet Ihre »PC International« auf Ihre Beiträge. 

Einsendung bitte an: DMV-Verlag • Postfach 250 • 3440 Eschwege 
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bei der Abfrage “BASIC-Aufruf (j/n) ?“ 
die n-Tastc. Der Bildschirm wird nun ge¬ 
löscht, das Programm simuliert den er¬ 
sten Befehl, den es an Ihrer Startadresse 
findet und zeigt die Registerinhalte in der 
unteren Bildschirmhälfte an. Drücken 
Sie nun irgendeine Taste außer ENTER 
und das Programm nimmt sich den näch¬ 
sten Befehl vor. Am Inhalt des PC-Regi- 
sters erkennen Sie, wo der Befehl steht, 
der als nächstes simuliert wird. Diesen 
Vorgang können Sie nun solange wieder¬ 
holen, bis die Meldung *RETURN* er¬ 
scheint. Nach einem erneuten Tasten¬ 
druck kehrt das Programm in Zeile 440 
des BASIC-Programmes zurück. Wenn 
Sie nun die ENTER-Taste drücken, so 
wird das Programm beendet. Andernfalls 
werden Sie wieder nach einer Startadres¬ 
se gefragt und die Simulation beginnt von 
neuem. Mit ENTER können Sie die Si¬ 
mulation jederzeit unterbrechen und in 
Zeile 440 zurückkehren. 


Die Prozessor-Lupe 

Einzelschri ttsim ula tor 
für CPC 464 


Viele Leser, die in Maschinensprache programmieren, 
werden folgende Situation sicherlich kennen: Das müh¬ 
sam erstellte Programm stürzt schon beim ersten Probe¬ 
lauf ab, und eine langwierige Fehlersuche beginnt. Die¬ 
ses Debugging kann mit einem Einzelschrittsimulator, 
der die Abarbeitung des Maschinenprogrammes simu¬ 
liert und nach jedem Befehl die Registerinhalte anzeigt, 
erheblich verkürzt werden. 


Die Programmübersicht 

— Die Verarbeitung fast aller Z80-Befehle. 

— Eine übersichtliche Ausgabe aller Registerinhalte nach 
jedem Schritt. 

— Die Möglichkeit, sowohl im echten Einzelschrittmodus 
zu arbeiten (das heißt, das Programm wartet nach jedem 
Schritt auf einen Tastendruck), oder aber eine fortlaufen¬ 
de Abarbeitung der Befehle zu wählen. 

— Eine hohe Verarbeitungsgeschwindigkeit durch Program¬ 
mierung in Maschinensprache. 

— Eine einfache Bedienung. 


Der BASIC-Aufruf 


Wenn Sie bei der “BASIC-Aufruf (j/n) ?“ Abfrage j eingeben, 
also BASIC-Aufruf wählen, so können noch bis zu 32 Parameter 
übergeben werden. Sie werden dann vom Programm nach der 
Anzahl der Parameter gefragt. Wenn Sie einen BASIC-Aufruf 
ohne Parameter wünschen, geben Sie 0 ein, ansonsten die An¬ 
zahl der zu übergebenden Parameter. Anschließend können Sie 
die Parameter eingeben. Bei Beginn der Simulation haben dann 
die einzelnen Register folgenden Inhalt: 


ohne Parameter 

A : 0 
F.&68 
B: &20 
C: &FF 

DE: anzuspringende 
Adresse 

Di: Stapeladr. &BFFE 
(n = Anzahl der Parameter) 


mit Parametern 

n 

&28 
&20 - n 
&FF 

letzter übergebener Parameter 
Stapeladr. &BFFE - 2*n 


Die Parameter selbst werden ab Adresse &BFFE auf den Sta¬ 
pel gelegt (für jeden Parameter zwei Bytes). Danach kommen 
noch sechs weitere Bytes, die für die Simulation nicht von Be¬ 
deutung sind, auf den Stapel. Wird nun zum Beispiel ein Ma¬ 
schinenprogramm mit drei Parametern aufgerufen, so enthält 
das SP-Register (der Stackpointer, der immer auf den letzten Sta¬ 
peleintrag zeigt) folglich die Adresse &BFF2. Ohne Parame¬ 
ter enthält das SP-Register die Adresse &BFF8. Dieser beson¬ 
dere Aufbau des Stapels und die speziellen Registerinhalte wer¬ 
den somit bei einem BASIC-Aufruf wirklichkeitsgetreu simu¬ 
liert. 


Der Umgang mit dem Simulator 

Doch nun zum Programm selbst. Nachdem das Programm ge¬ 
laden ist, werden Sie nach der Startadresse des zu testenden Pro¬ 
grammes gefragt. Es muß unterhalb der Adresse &9C50 liegen, 
da der Binärteil des Simulators im Adreßbereich ab &9C50 liegt. 
Ferner wäre es auch nützlich, wenn Sie neben sich ein Listing 
Ihres Maschinenprogrammes liegen hätten. Danach drücken Sie 


Aufruf von Maschinenebene 

Zu Beginn der Simulation enthalten alle Register (bis auf PC 
und SP) den Wert Null. Das SP-Register hat stets den Inhalt 
&BFFE, da nur die Rücksprungadresse (symbolisiert durch den 
Wert &FFFF) auf dem Stapel liegt. Das Maschinenprogramm 
beendet die Simulation durch Ausgabe der *RETURN* -Mel¬ 
dung nur dann, wenn es auf einen RET-Befehl trifft und das SP- 
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Register den gleichen Wert enthält wie zu Beginn der Simula¬ 
tion (nur dann kann die korrekte Rücksprungadresse vom Sta¬ 
pel geholt werden), 

Die Ausgabe auf dem Bildschirm erfolgt beim F-Register binär 
(die wichtigsten Flags sind beschriftet), beim a-, HL-, DE- und 
BC-Register dezimal und hexadezimal. Die übrigen Register 
(Dt, IY, SP und PC) werden hexadezimal ausgegeben. Bei der 
dezimalen Ausgabe kann (bis auf das A-Register) eine vorzei¬ 
chenfreie (0 bis 65535; dargestellt durch das + Symbol) oder 
eine vorzeichenbehaftete (-32768 bis +32767; dargestellt durch 
das +/- Symbol) Ausgabe gewählt werden. Dies kann während 
der Simulation jederzeit durch drücken der -Taste erreicht 
werden. Ein Drücken der rechts davon (über der CTRL-Taste) 
liegenden Taste führt dazu, daß der untere Bildschirmteil, in 
dem die Ausgabe erfolgt, gelöscht und neu aufgebaut wird. 

Durch Drücken der -Taste können Sie vom echten Einzel¬ 
schrittmodus in eine fortlaufende Verarbeitung der Befehle (kein 
Warten auf einen Tastendruck nach jedem Befehl) umschalten. 
Durch erneutes Drücken dieser Taste gelangen Sie wieder in den 
ursprünglichen Modus. Bei der fortlaufenden Verarbeitung kann 
die Geschwindigkeit durch Drücken der -Taste in vier Stu¬ 
fen verändert werden. Ein Druck auf die ENTER-Taste führt, 
wie schon erwähnt, zum Abbruch der Simulation. 

Das Funktionsprinzip 

.. .des Einzelschrittsimulators läßt sich grob folgendermaßen be¬ 
schreiben: nach der Einrichtung des simulierten Stapels wer¬ 
den die Register gespeichert. Bei einem Teil der Befehle (JP, 
CALL, RET, sämtliche Befehle, die das SP-Register beeinflus¬ 
sen etc.) werden diese vom Maschinenprogramm selbst mani¬ 
puliert; mit den übrigen (LD, BIT, RES, SET etc.) wird jedoch 
wie folgt verfahren: ein solcher Befehl wird mit dem Opcode 
&C9 am Ende in einen bestimmten Speicherbereich kopiert, die 
Register werden mit den gespeicherten Werten geladen und der 
Befehl als normales Unterprogramm ausgeführt. Danach wer¬ 
den die dadurch veränderten Register und Flags wieder gespei¬ 
chert und anschließend ausgegeben. 

Bitte beachten Sie deswegen; 

Solche tatsächlich ausgeführten Befehle, die das Maschinenpro¬ 
gramm ab Adresse &9C50 oder andere wichtige Adressen im 
RAM überschreiben, werden wahrscheinlich zum Absturz des 
Rechners führen. Dies gilt auch für Sprünge ins ROM mittels 
RST-Befehlen, die zum Absturz führen können (zum Beispiel 
ein Sprung nach &000). Die übrigen Sprünge ins ROM werden 
jedoch problemlos ausgeführt, wobei eine Ausgabe der Regi¬ 
ster jedoch erst wieder nach der Rückkehr ins RAM erfolgt. Be¬ 
achten Sie außerdem, daß folgende Z80-Befehle nicht ausge¬ 
führt werden: 


Der Einzelschrittsimjlator fuer den CK 464 bietet folgende Noegliekkeiten: 

1. si*ulierter Ablauf von kscMnerorograiwen. 

1. Anzeige aller Jemter, inkl. DTimfl IV. 

3. Bohe ftrheitsgesclwinäigkeit. 


«eitere Hilfen zur Kontrolle, der MC-Frograiwe. 


S1 *i PNC */. 

kflßöOOG K s *8903 IX : 40303 

SP ; 4B1TE 


PC : «9081 


Der Einzelschrittsimulator, eine Hilfe für Assemblerfreunde 


IMO 

IM 1 

IM2 

RETI 

RETN 

sowie 

EXAF, 

AF 

EXX 

RST&00 

RST&38 

HALT 

DI 

EI 

Bei diesen Befehlen wird lediglich das PC-Register für den 
nächsten Befehl erhöht. Bei den letzten sieben Befehlen wer¬ 
den Sie zusätzlich noch akustisch darauf aufmerksam gemacht. 

Das Abtippen 

Listing 1 ist der BASIC-Teil des Programmes. Nach dem Ab¬ 
tippen sichern Sie ihn mit SAVE “Name auf Datenträger“ (zum 
Beispiel: Diskette) ab. Listing 2 erzeugt nach dem Starten den 
Maschinencode und speichert ihn unter dem Namen eschmco- 
de.BIN ab. 

Der abgespeicherte Maschinencode wird dann vom Listing 1 
nachgeladen und initialisiert. Das Listing 2 sollte aus Sicher¬ 
heitsgründen vor dem Start abgespeichert werden. Danach ist 
es mit RUN zu starten. 

(Manfred Doser/cd) 


für 464 

I 



10 • *************************** [1051] 

20 * * [175] 

30 ' * Einzelschritt- * [1510] 

40 ' * Simulator * [1310] 

50 ' * * [175] 


Listing EINZEL 


60 

* 1987 by 

* 

[ 648 ] 

70 

* Manfred Doser 

* 

[538] 

80 

* 

* 

[175] 

90 

************************ 

*** 

[1051] 

100 



[117] 

110 

MEMORY &1FFF 


[ 710] 

120 

LOAD "eschmcod,bin",&9C50 


[ 1875 ] 

130 

DEF FNhigh(x)=INT(x/256): 

DEF FN1ow(x)= 

[2550] 

x-INT(x/256)*256 



Listing EINZEL 
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140 MODE 2 : INK 1,24:INK 0,1:B0RDER 1:PEN 1 [3216] 


:PAPER 0 

150 PRINT " EINZELSCHRITT-SIMULATOR":PRIN [4211] 
T TAB(3)STRING$(28,) 

160 FOR i= &9 F5 6 TO &9F62:POKE i,0:NEXT i [2383] 
170 1x=42241 [509] 

180 CALL &9ED0 [769] 

190 LOCATE 1,7:IN PUT "Startadresse &",ad [ 2854 ] 
r$ 

200 IF ad r $ = THEN adr$="0" [1181] 


210 adr=VAL("&"+adr$):IF adr<0 THEN adr=ad [2014] 
r+65536 

220 LOCATE 1,10:INPUT "BASIC-Aufruf (j/n) [2781] 

? ",bm$ 

230 IF bm$ < > " j " THEN bmf1=0:POKE &A2CC,0:P [7410] 
OKE 8.A2CD , &C0 : POKE &A2D9,0:POKE &A2DA.&C0: 

GOTO 420 : ELSE bmf 1 = 1: POKE &9F59.8.FF 

240 LOCATE 1,13:PRINT "Anzahl der Paramete [2428] 

r ?" 

250 LOCATE 24,13:INPUT "",pz [1618] 

260 IF pz 10 OR pz >32 THEN LOCATE 24,13:PRI [3721 ] 
NT STRING$(10, "):PRINT CHR$(7):G0T0 250 
270 IF pz=0 THEN POKE &9F57,&68:POKE &9F5B [5561] 
,FN1ow(adr):POKE &9F5C,FNhigh(adr):ELSE PO 
KE &9F57.&28 

280 POKE &9F58,pz:POKE &9F5A,32-pz [1173] 

290 FOR i=l TO pz [499] 

300 LOCATE 17,17:PRINT STRING$(10," ") [1628] 

310 LOCATE 1,17:PRINT #0,USING "##";i;:PRI [3886] 
NT ". Parameter : INPUT "",pm 

320 IF pm < 0 OR pm>65536 THEN PRINT CHR$(7) [3113] 

:GOTO 300 

330 ix=ix+1:POKE ix,FN1ow(pm):ix=ix+1:POKE [3272] 
i x , F N h i g h ( pm ) 

340 NEXT i [375] 

350 IF pz > 0 THEN POKE &9F5B,FNlOw(pm) :POKE [2186] 
&9F5C,FNhigh(pm) 

360 POKE &9F4E,FN1ow( ix):POKE &9F4F,FNhigh [1985] 
(ix) 

370 ixrg=49150-pz*2 [548] 

380 POKE &9F5F,FNlow(ixrg):POKE &9F60,FNhi [2891] 
gh(ixrg ) 

390 sp=49146-pz*2 [1202] 

400 POKE &A2CC,FNlow(sp):POKE &A2CD,FNhigh [1803] 

( sp) 

410 POKE &A2D9,FN1ow(sp) :POKE &A2 DA,FN hig h [2483] 

( sp ) 

420 MODE 2 : POKE 8.9CFD , 1 6 : POKE &9CFE,l:POKE [3846] 
&9CFF , 0 


430 CALL &9C5D;CALL &9F60,bmfl,adr [1618] 

440 MODE 2:PRINT " EINZELSCHRITT-SIMULATO [3543] 
R":PRINT TA8(3)STRING$(28,) 

450 LOCATE 1,7:PRINT "Abbruch mit 'ENTER'" [3078] 
460 CALL &9ED0:CALL &BB06:IF INKEY(18)=0 T [5374] 
HEN MODE 2:PRINT " BASIC 1.0":PRINT:END 
470 LOCATE 1,7:PRINT CHR$(20):GOTO 160 [1684] 


10 ’ BASIC-Lader zu "ESCHMCOD.BIN" [2278] 

20 ' [117] 

30 ' am Ende jeder Zeile Pruefsumme [2297] 


40 [117] 

100 DATA 00,00,01,00,01,00,00,00,00,81,69, [3080] 
9C,00,21.50.9C,0295 

110 DATA 11,01,00,01,01,00,C3,E9,BC,F3,21, [2463] 
ED,9C,97,BE,28,0696 

120 DATA 03,35,FB,C9,3E,16,CD,IE,BB,F3,28, [2083] 
OA,21,FD,9C,CB,07A0 

130 DATA 86,CB,E6,C3,E6,9C,3E,1E,CD,IE,BB, [2423] 
F3.28,11,21,F D,08C8 

140 DATA 9C,CB,E6,CB,4E,28,04,CB,8E,18,4B, [2784] 

CB,CE,18,47,3E,0784 

150 DATA 12,CD,1E,BB,F3,28,07,3E,02,32,56, [3478] 
9F, 18,38,3E, IF,04EE 

160 DATA CD,IE,BB,F3,28,IE,21,FD,9C,CB,56, [3257] 
28,13,CB,96,21,0777 

170 DATA 3C,B5,36, 15 , 23,AF, 77,23,36,01,23, [ 2765 ] 
77,23,77,18,16,0441 

180 DATA CB,D6,18,12,3E,27,CD,IE,BB,F3,28, [2521] 
OF,11,00,40,2A,057B 

190 DATA FE,9C,19,22,FE,9C,3E,19,32,ED,9C, [2349] 
FB,C9,00,00,00,0745 

200 DATA 00,00,00,00,00,00,00,00,00,00,00, [1623] 
00,00,05,01,00,0006 

210 DATA 21,00,00 ,.39,01 , OC , 00,11,5 7,9F , ED , [2936] 
BO,21,FD,9C,CB,0590 
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220 DATA 46,20,3F,CB,C6,21,14,01,E5,CD,75, [3090] 
BB,3E,14,CD,5A,06C7 

230 DATA BB,El,CD,75,BB,3E,20,06,50,CD,5A, [1268] 
BB,10,FB,DD,21,0845 

240 DATA E2,9E,FD,21,OA,9F,06,09,C5,CD,88, [3912] 

9E,C1,CD,96,9E,08D0 

250 DATA 78,FE.09,28,OB,FD,E5,FD,21,21,9F, [3534] 

CD,96,9E,FD,El,0951 

260 DATA 10,E6,21,FD,9C,CB,66,28,1B,CB,A6, [3425] 
E5,21,15,22,CD,079F 

270 DATA 75,BB,El,CB,4E,28,06,FD,21,28,9F, [4048] 
18,04,FD,21,25,069C 

280 DATA 9F,CD,96,9E,DD,21,F4,9E,CD,88,9E, [2141] 
3A,57,9F,4F,06,08A8 

290 DATA OB,CB,21,C5,3E,30,30,01,3C,CD,5A, [2037] 

BB.Cl,10,F2,CD,0706 

300 DATA 88,9E,3A,58,9F,F5,CD,A7,9E,CD,88, [2895] 
9E,06,03,3E,20,07B8 

310 DATA CD,5A,BB,10,FB,CD,88,9E,El,6C,26, [3754] 
00,CD,00,B9,CD,08A6 

320 DATA 79,EE,06,05,21,62,9F,C5,E5,CD,88, [2968] 
9E,El,7E,2B,CD,0888 

330 DATA A7,9E,7E,2B,CO,A7,9E,CI,10,ED,CD, [2964] 

88,9E,2A,50,9F,08CA 

340 DATA CD,BD,9E,C0,88,9E,2A,54,9F,CD,C2, [4336] 
A2,CD,BD,9E,06,0997 

350 DATA 03,21,15,21,E5,El,2C,E5,C5,CD,75, [3392] 
BB,06,06,3E,20,065D 

360 DATA CD,5A,BB,10,FB,CI,10,ED,El,3A,FD, [2615] 

9C,CB,4F,28,05,08A6 

370 DATA 21,79,EE, 18,03,21,05,9E,22, 1E,9 E, [ 3649] 
22,2A,9E,22,36,0547 

380 DATA 9E,CD,00,B9,21,16,21,CD,75,BB,2A, [3463] 
59,9F,CD,C5,9E,07CB 

390 DATA 21,17,21,CD,75,BB,2A,5B,9F,CD.C5, [3140] 
9E,21,18,21,CD,06D1 

400 DATA 75,BB,2A,5D,9F,CD,C5,9E,3A,56,9F, [3704] 
FE,02,28,3A,FE,0815 

410 DATA 01,20,15,21, 19,30,CD,75,BB,FD,21, [3216] 
2B,9F,CD,96,9E,0686 

420 DATA CD,DO,9E,CD,06,BB,18,21,3A,FD,9C, [2557] 
CB,57,28,13,2A,075C 

430 DATA FE,9C,2B,7C,B5,FE,00,20,F9,3A,56, [2592] 
9F,FE,02,28,09,076D 

440 DATA 18,13,CD,06,BB,FE,OD,20,OC,El,El, [3253] 

El,El,El,El,21,0857 

450 DATA 50,9C,C3,EC,BC,C3,E1,9F,DD,6E,00, [2809] 
DD,23,DD,66,00,0928 

460 DATA DD,23,CD,75,BB,C9,FD,7E,00,FD,23, [2115] 
CB,7F,CB,BF,C2,09F7 

470 DATA 5A,BB,CD,5A,BB,18,EF,F5,IF,IF,IF, [3008] 
1F.CD,B0.9E,Fl,087B 

480 DATA E6,OF,FE,OA,38,02,C6,07,C6,30,C3, [3109] 

5A,BB,7C,CD,A7,07C2 

490 DATA 9E,7D,C3,A7,9E,3E,02,32,CI,BO,22, [2594] 

C2,BO,C3,36,F2,0885 

500 DATA F3,21,3C,B5,36, 15,23,AF,77,23,36, [3102] 
01,23,77,23,77,0527 

510 DATA FB,C9,15,02,18,02,16,12,17,12,18, [2503] 
12,16,20,17,2D,02F7 

520 DATA 16,3E,17,3E,16,02,18,07,18,OB,18, [3266] 
08,17,33,16,33,01B9 

530 DATA 18,18,17,18,16,18,17,44,16,44,53, [3487] 
5A,20,48,20,50,02C7 

540 DATA 4E,C3,C1,42,C3,44,C5,48,CC,49,D8, [2933] 
49,D9,53,DO,50,08AA 

550 DATA C3,20,3A,20,A6,2B,2F,AD,20,2B,AO, [2481] 
2A,20,52,45,54,050A 

560 DATA 55,52,4E,20,AA,00,00,00,00,00,00, [2579] 
00,00,00,00,00,01BF 

570 DATA 00,00,00,00,00,00,00,00,00,00,00, [1562] 
00,00,00,01,A5,00A6 

580 DATA FF,FF,00,A5,00,A5,01,A2,F4,00,00, [2131] 

00,00,00,00,00,04DF 

590 DATA 00,00,00,EA,Fl,86, 7F , 9A,B9,86,7F, [ 1996] 
EA,Fl,ED,53,50,08A3 

600 DATA 9F,DD,7E,02,FE,01,20,4A,21,8B,DD, [2422] 

22,00,A5,ED,5B,06FD 

610 DATA 4E,9F,D5,13,21,63,9F,01,06,00,ED, [3175] 
BO,EB,22,54,9F,069C 

620 DATA 28,2B,22,52,9F,El,11,01,A5,B7,ED, [2426] 

52,28,17,45,CB,0646 

630 DATA 38,OE,FF,11,FD,BF,21,02,A5,1B,ED, [2002] 
AO,ED.AO,1B,1B,0745 

640 DATA 1B,10,F6,18,03,11,FD,BF,21,6C,9F, [3337] 
01,06,00,ED,B8,05E1 

650 DATA 18,14,21,FF,FF.22,00,A5,21,00,A5, [2880] 
22,52,9F,23,23,0531 
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660 DATA 22,54,9F,11,F3,BF,21,62,9F,01,OC, 
00,ED,B8,13,EB,06AA 

[3583] 

670 DATA F9,2A,50,9F,7E,16,00,FE,C9,CA, 7C, 
AO,14,14,FE,C3,083C 

[2727] 

680 DATA CA,7C,AO,14,14,FE,CD,CA,7C,AO,5F, 
16,01,OE,08,06,0651 

[3065] 

690 DATA 06,3E,10,BB,28,1A,81,10,FA,16,00, 
3E,CO,82,06,08,0480 

[2332] 

700 DATA BB,28, 15,81,10,FA,14,14, 7A,FE,06, 
20,EE,C3,02,Al,069D 

[2783] 

710 DATA CB,20,3E,08,80,47,18,02,CB,20,21, 
EC,A0,48,06,00,04F8 

[2162] 

720 DATA 09,D5,5E,23,56,EB,Dl,Fl,F5,E9,FA, 
7C,AO,18,28,F2,0988 

[2493] 

730 DATA 7C,AO,18,23,EA,7C,AO,18,IE,E2,7C, 
AO,18,19,38,2C,0626 

[2099] 

740 DATA 18,15,30,28,18,11,28,24,18,00,20, 
20,18,09,18,IC,01B4 

[2459] 

750 DATA Fl,CI,05,C5,F5,20,15,7A,3C,FE,03, 
38,02,3E,03,47,061F 

[2168] 

760 DATA 2A,50,9F,23,10,FD,22,50,9F,C3,00, 

9 D, 7A,FE,01,28,065B 

[2765] 

770 DATA 35,FE,00,28,18,2A,50,9F,23,5E,23, 
56,ED,53,50,9F,05B5 

[2495] 

780 DATA FE,02,CA,00,9D,23,EB,CD,D6,AO,C3, 
00,9D,CD,E1,A0,0966 

[1855] 

790 DATA ED,53,50,9F,ED,5B,52,9F,B7,ED,52, 
C2,00,9D,3E,01,07FC 

[3774] 

800 DATA 32,56,9F,C3,00,9D,2A,50,9F,23,5E, 
23,16,00,CB,7B,05AO 

[2680] 

810 DATA 28,OD,7B,2F,3C,5F,87,ED,52,22,50, 
9F,C3,00,9D,19,05FA 

[2119] 

820 DATA 22,50,9F,C3,00,9D,2A,54,9F,73,23, 
72,23,22,54,9F,05CE 

[2330] 

830 DATA C9,2A,54,9F,2B,56,2B,5E,22,54,9F, 
C9,00,00,3A,AO,05A8 

[ 3305 ] 

840 DATA 3F,AO,44,AO,49,AO,4E,AO,52,AO,56, 
AO,5A,AO,5E,AO,077A 

[ 3922 ] 

850 DATA 60,AO,OE,10,3E.C5,06,04,BB,CA,IC, 
Al , 81 , 10,F9,3E,0635 

[2436] 

860 DATA CI,06,04,BB,28,06,81,10,FA,C3,6B, 
A1,2A,50,9F,23.064A 

[2895] 

870 DATA 22,50,9F,CB,57,28,21,78,FE,01,20, 
0A,ED,5B,57,9F,065B 

[3483] 

880 DATA CD,D6,A0.C3,00,9D,05,CB,20,21,5F, 

9 F,2B, 10,FD,5E,0748 

[3364] 

890 DATA 23,56,CD,D6,AO,C3,00,9D,CD,El,AO, 
78 , FE,01,20,05,0806 

[2605] 

900 DATA El,D5,C3,00,9D,05,3E,31,91,10,FD, 
21,FO,A4,77,ED,0841 

[2924] 

910 DATA 53,Fl,A4,3E,C9,32,F3,A4,C3,10,A3, 
3E,E3,BB,C2,93,095F 

[1420] 

920 DATA Al,CD,El,AO,3E,21,32,FO,A4,ED,53, 
Fl,A4,3E,09,32,0922 

[2133] 

930 DATA F3,A4,ED,5B,5D,9F,CD,D6,A0,2A,50, 
9F,23,22,50,9F,086B 

[2877] 

940 DATA C3,10,A3,3E,E9,BB,20,09,2A,5D,9F, 
22,50,9F,C3,00,067B 

[3871] 

950 DATA 9D,3E,F9,BB,20,13,2A,50,9F,23,22, 
50,9F,2A,5D,9F,0635 

[2945] 

960 DATA CD,C2,A2,22,54,9F,C3,00,9D,3E,39, 
BB,20,22,2A,54,0698 

[2679] 

970 DATA 9F,CD.C2,A2,ED,5B,5D,9F,19,3E,21, 
32,FO,A4,22,Fl,0865 

[1771] 

980 DATA A4,2A,F3,A4,36,C9,2A,50,9F,23,22, 
50,9F,C3,10,A3,0727 

[2919] 

990 DATA 2A,50,9F,23,3E,FD,BB,28,06,D6,20, 
BB,C2,26,A3,16,06B2 

[3090] 

1000 DATA 04,47,7E,FE,36,CA,FB,A2,FE,21,CA 
,FB,A2,FE,2A,CA,09DC 

[2643] 

1010 DATA FB,A2,FE,22,CA,FB,A2,FE,CB,CA,FB 
,A2,FE,E3,20,17,0B6C 

[2460] 

1020 DATA C0,DD,A2,FE,DD,28,06,ED,5B,61,9F 
,18,04,ED,5B,5F,0860 

[2234] 

1030 DATA 9F,CD,D6,AO,C3,10,A3,FE,F9,20,19 
,78,FE,DD,28,05,0908 

[3452] 

1040 DATA 2A,61,9F 1 18,03,2A,5F,9F,CD,C2,A2 
,22,54,9F,CD,F2,0772 

[3023] 

1050 DATA A2,C3,00,9D,FE.E5,20,18,78,FE,DD 
,28,06,ED,5B,61,0847 

[2698] 

1060 DATA 9F,18,04,ED,5B,5F,9F,CD,D6,AO,CD 
,F2,A2,C3,00,9D,0905 

[2027] 

1070 DATA FE,El,20,06,CD,DD,A2,C3,10,A3,16 
,02,FE,09,CA,FB,08AB 

[2059] 

1080 DATA A2,FE,19,CA,FB,A2,FE,29,CA,FB,A2 
,FE,23,CA,F8,A2,0B36 

[2386] 

1090 DATA FE,2B,CA,FB,A2,FE,E9,20,13,78,FE 
,DD,28,05,2A,61,08B5 

Listing EINZEL 
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1100 DATA 9F,18,03,2A,5F,9F,22,50,9F,C3,00 
,9D,FE,39,20,1D.05C7 

1110 DATA 2A,54,9F,CD,C2,A2,78.FE,DD,28,06 
,ED,5B,61,9F,18,082F 

1120 DATA 04,ED,5B,5F,9F,19,EB,CD,E0,A2,C3 
,10,A3,16,03,C3.07EF 

1130 DATA FB,A2,ED,5B,52,9F,B7,ED,52,38,08 
,ll,0O,CO,EB,B7,O87F 

1140 DATA ED,52,C9,19,EB,B7,ED,52,11,00,CO 
,19,C9,CD,El,AO,0903 

1150 DATA 3E,21,32,Fl,A4,78,32,FO,A4,ED,53 
,F2,A4,21,F4,A4,08F3 

1160 DATA 36,C9,2A,50,9F,23,23,22,50,9F,C9 
,42,2A,50,9F,E5 I 0678 

1170 DATA 23,10,FD,22,50,9F,4A,El,11,FO,A4 
,ED,BO,EB,36,C9,0898 

1180 DATA Fl,CI,Dl,El,DD,El,FD,El,CD,FO,A4 
,FD,E5,DD,E5,E5,ODEA 

1190 DATA D5,C5,F5,C3,00,9D,3E,ED,BB,C2,FD 
,A3,2A,50,9F,23,0973 

1200 DATA 7E,FE,73,20,18,23,5E,23,56,23,22 
,50,9F,ED,53,48,05DD 

1210 DATA A3,2A,54,9F,CD,C2,A2,22,00,00,C3 
,00,90,21,97,A3,06CE 

1220 DATA 06,04,BE,28,05,23,10,FA,18,41,D6 
,10,32,80,A3,CB,0581 

1230 DATA 47,20,05,21,00,00,18,03,21,28,03 
, 22,89,A3,CD,F2,0401 

1240 DATA A2,21,77,A3,22,86,9E,Fl,CI,Dl,El 
,DD,El,FD,El,ED,0B10 

1250 DATA 00,FD,E5,DD,E5,E5,D5,C5,F5,00,00 
,EA,00,9D,21,El,09A1 

1260 DATA 9F,22,86,9E,C3,00,9D,30,B8,Bl,B9 
,21,AD,A3,06,04,0792 

1270 DATA BE,28,05,23,10,FA,18,09,16,04,C3 
,FB,A2,4B,5B,43,059C 

1280 DATA 53 , FE , 7A , 28,04, FE, 72,20-, 26 , D6,20 
,32,CB,A3,2A,54,06C1 

1290 DATA 9F,CD,C2,A2,EB,2A,5D,9F,Fl,F5 , ED 
, 00,3E,21,32,FO,0935 

1300 DATA A4,22,Fl,A4,3E,C9,32,F3,A4,CD,F2 
,A2,C3,10,A3,21,0923 

1310 DATA F8,A3,06,05,BE,28,08,23, 10,FA , 16 
,02,C3,FB,A2,CD,0706 

1320 DATA F2,A2,00,00,00,C3,00,9D,46,56,5E 
,4D,45,21,4F,A4,0594 

1330 DATA 06,04,7E,BB,28,05,23, 10 , F9, 18,48 
, F5,78,FE,03,3B,05A2 

1340 DATA 1F,CD,El,AO,2A,50,9F,E5,ED,53,50 
,9F,2A,54,9F,ED,08A4 

1350 DATA 5B,52,9F,B7,ED,52,20,05,3E,01,32 
,56,9F,E1,18,OB,05D1 

1360 DATA 2A,50,9F,E5,23,23,23,22,50,9F,E1 
,Fl,32,FO,A4,23,0733 

1370 DATA 5E,23,56,ED,53,Fl,A4,3E,C9,32,F3 
,A4,C3,10,A3,CF,08C1 

1380 DATA EF,07,DF,21,66,A4,06,07,7E,BB,28 
,05,23,10,F9,18,0687 

1390 OATA OC,16,03,C3,FB,A2,32,3A,01,11,21 
,2A,22,21,8A,A4,04BF 

1400 DATA 06,07,7E,BB,28,05,23,10,F9,18,16 
,2A,50,9F,23,22 1 042B 

1410 DATA 50,9F,3E,07,CD,5A,BB,C3,00,9D,08 
,D9,C 7,FF,76,F3,0886 

1420 DATA FB,3E,33,BB,20,06,2A,54,9F,23,18 
,09,3E,3B,BB,20,0502 

1430 DATA 11,2A,54,9F,2B,22,54,9F,2A,50,9F 
,23,22,50,9F,C3,057E 

1440 DATA 00,9D,3E,06,16,02,06,08,OE,08,BB 
,CA,FB,A2,81,10,04D0 

1450 DATA F9,3E,C6,06,08,BB,CA,FB,A2,81,10 
, F9,3E,CB,BB,CA,0945 

1460 DATA FB,A2,16,01,C3,FB,A2,00,00,00,00 

,00,00,00,00,00,0414 

1470 zei1e=l:adr=40016 

1480 FOR looplX=l TO 137 

1490 summe=0:FOR !oop2%=l TO 16 

1500 READ byte$:byte=VAL("&"+byte$):POKE a 

d r,byte 

1510 summe=summe+byte:adr=adr+l:NEXT 1oop2 
* 

1520 READ pruefsum$:pruefsum=VAL("&"+pruef 
sum$) 

1530 IF pruefsum<>summe THEN PRINT ' Fehler 

in Zeile :";zei1e:END 

1540 zei1e=zei1e+1:NEXT loopl« 

1550 SAVE"eschmcod.bin",b,40016 ,2183 
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[2069] 

[3305] 

[3538] 

[2445] 

[2539] 

[3526] 

[2978] 

[3819 ] 

[ 2437 ] 

[ 2858 ] 

[3723] 

[1385] 

[2544] 

[1808] 

[ 2858 ] 

[2630] 

[2818] 

[1968] 

[2726] 

[2287] 

[2233] 

[2958] 

[1347] 

[2712] 

[3716] 

[2464] 

[3436] 

[2677] 

[2818] 

[ 2701 ] 

[2948] 

[2898] 

[ 3085 ] 

[ 1634 ] 

[4169] 

[319C] 

[ 3055 ] 

[ 1823 ] 
[ 748 ] 

[ 1098] 
[2844] 

[3487] 

[2374] 

[ 3738 ] 

[1150] 

[1612] 
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CPC-Fitneß-Center 

Joystickmatte im Eigenbau 

Heute zeigt sich der CPC mal ausgesprochen sportlich. Eine Bauanleitung 
für eine Joystickmatte mit der passenden Software verwandelt Ihren CPC in 
ein kleines Fitneß-Center. Ob nun als Partygag oder als Entspannungsmög¬ 
lichkeit, wenn man zu lange am Computer gearbeitet hat, bietet diese Matte 
neue Möglichkeiten. 


Das Programm 


Das Programm bietet acht verschiedene 
Übungen an: 

— Jogging 

— Rumpfbeugen 

— Liegestütze 

— Springen 

— Sit-up 

— Kniebeugen 

— Liegestützwechselhüpfen 

— Entspannen 


müssen. Aus diesem Grund wurden 22 
kleine Sprites entworfen und dann ver¬ 
größert. 

Das Spiel und die Matte 


Die Matte: 



Es können bis zu neun Spieler an diesem 
Wettkampf teilnehmen. Drei Schwierig¬ 
keitsstufen stehen zur Auswahl. Die 
Highscore-Liste kann abgespeichert und 
auf Wunsch geladen werden. Falls man 
sich in seiner Gesamtpunktzahl verbes¬ 
sert, wird die Liste entsprechend aktua¬ 
lisiert. Das Programm wurde großzügig 
mit mehrstimmiger Musik versehen. Zu 
erwähnen ist hier noch, daß von der 
Möglichkeit Gebrauch gemacht wurde, 
Musikstücke auch in BASIC unter Inter¬ 
rupt zu spielen. Bei der Grafik mußte ein 
Kompromiß in Kauf genommen werden. 
Zum einen sollen die Sprites möglichst 
groß sein, damit man sie von der Matte 
aus gut erkennen kann, zum anderen 
möchte man möglichst wenig abtippen 


3 


4 


5 


Die Matte wird einfach an den Joystick¬ 
port angeschlossen. Die numerierten Fel¬ 
der sind Kontaktplatten, die wie Schalter 
eines Joysticks auf Druck reagieren. 

1. Jogging 

Man stellt sich auf die Flächen 4 und 5 und tritt abwechselnd 
auf diese Flächen. Je schneller man dies macht, desto höher 
wird die Punktzahl. 



Skizze 1: Aiifteilungs- 
schema der Folie 


2 . Rumpfbeugen 

Mit den Füßen stellt man sich auf die Flächen 1 und 2 und be¬ 
wegt die Arme bei durchgestreckten Beinen auf die 
Fläche 3. Dies so oft wie möglich wiederholen. Die Füße 
müssen immer auf den Flächen 1 und 2 stehenbleiben. 

3. Liegestütze 

Die Hände werden auf die Platten 1 und 2 gelegt, dann wird 
der Körper immer so weit nach unten bewegt, bis man mit 
dem Oberkörper die Fläche 3 berührt. Auch hier gilt es, mög¬ 
lichst viele Liegestützen in möglichst kurzer Zeit zu schaffen. 

4. Springen 

Die Beine werden auf die Platten 1 und 2 gestellt, dann wird 
mit beiden Beinen auf die Fläche 3 gesprungen, dann wieder 
zu den Flächen 1 und 2 zurück und so weiter. 

5. Sit-up 

Man legt sich so hin, daß die Füße auf den Flächen 1 und 2 
liegen. Dann wird der Oberkörper mit den Armen zur Flä¬ 
che 3 geführt und wieder zurück. 

6. Kniebeugen 

Mit den Füßen stellt man sich auf die Flächen 4 und 5, dann 
geht man in die Hocke und berührt mit den Händen die Flä¬ 
che 3. Nun streckt man sich w'ieder und beginnt von vorne. 

7. Liegestützwechselhüpfen 

Man nimmt die Haltung wie bei den Liegestützen ein. Die 
Arme bleiben gestreckt. Die Beine werden jedoch immer an¬ 
gezogen und gestreckt. Wenn sie angezogen sind, müssen sich 
die Füße auf den Flächen 4 und 5 befinden. 

8. Entspannen 

Beliebige Felder werden mit den Füßen berührt. Es darf je¬ 
doch nicht ein Feld gedrückt gehalten werden, während man 
ein anderes berührt. Um am Ende einer Übung in die näch¬ 
ste zu gelangen, wird ausschließlich das Feld 3 berührt (ent¬ 
spricht 'Fire'). 

So, das waren genug trockene Erklärun¬ 
gen, am besten ausprobieren! Zu Beginn 
des Programms wird die Anzahl der 
Spieler eingegeben. Wenn hier ’0’ einge¬ 
geben wird, geht das Programm davon 
aus, daß die Highscore-Daten und Na¬ 
men der Spieler von der Diskette geholt 
werden sollen und fragt nach dem File¬ 
namen. Wird kein entsprechendes File 
gefunden, dann wird das Inhaltsverzeich¬ 
nis ausgegeben und das Programm neu 
gestartet. Wenn man keine Daten laden 
möchte, werden nun die Namen der Mit¬ 
spieler eingegeben. Schließlich kann man 
noch den Schwierigkeitsgrad auswählen. 
Kassettenbenutzer sollten die Listings in 
folgender Reihenfolge abtippen: 

1. Listing: FITSP.BAS, erzeugt FIJSPBIN 
(Sprites) 

2. Listing: FFTMC.BAS. erzeugt 
FITMC. BIN (MC-Teil) 

3. Listing: FITNESS. BAS (Hauptpro¬ 
gramm), lädt SPM.BIN und FflMC.BIN 
nach. 

Für Diskettenbenutzer spielt die Reihen¬ 
folge keine Rolle. 

Was man für die Matte benötigt: 

Was die Zahlen in Klammern bedeuten, 
ist den Bezugsquellenhinweisen zu ent¬ 
nehmen. 

2 x Baufolie, transparent Im x Im 
ca. 0.14 mm dick (I) 

2 x Gewebeklebeband 10m/50mm breit 
(2,3) 

3 x Gummiringe fü r Einmachgläser (2) 

1 x Joystickstecker, eventuell mit Kabel 
(4,5) 

10 x Pertinax-Platten (Platinen) 1,5 mm 
stark mit einseitiger Kupferauflage 
160mm x 100 mm (4,5) 

5 m Mikrofonkabel 5polig + 
Abschirmung (4,5) 
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1 x Kabelring-Litze (10m) Querschnitt 
ca. 0,14 mm (4,5) 

1 x Rolle Isolierband 

- Hefter mit Heftklammern 

- Lötkolben mit etwas Lötzinn 

— Lineal, Schere (Messer, Rasierklinge), 
Folienstift (wasserlöslich) 

— Schleifpapier 

Bezugsquellenhinweise 

(1) Baugeschäft, Geschäfte für den Dach¬ 
deckerbedarf, Baumärkte, teilweise auch 
Holzhandlungen 

(2) Supermarkt, Warenhaus 

(3) Bastei-Laden 

(4) Elektronik-Laden 

(5) Elektronik-Versand, z.B Conrad 
Elektronik, Klaus-Conrad-Str. 1, 

8452 Hirschau. 

Die Maße der angegebenen Bauteile sind 
allerdings nicht bindend, denn beispiels¬ 
weise wäre statt Folie auch Stoff denkbar, 
und ob die Litze etwas dünner oder 
dicker ist. spielt keine besonders große 
Rolle. 

Wie wird’s nun gemacht? 

1. Schneiden Sie die zwei Folienstücke 
auf 1 raxlmzu. 

2. Auf eine dieser Folien zeichnen Sie 
nun das Aufteilungsschema. 

3. Mit etwas Schleifpapier runden Sie die 
Kanten und Ecken der Platinen etwas ab 
(vor allem die Kanten, auf denen sich 
kein Kupfer befindet). Dies dient zum 
Schutz der Folie. 

4. Von den Gummiringen schneiden Sie 
nun 20 Stücke ä 1,5 cm ab und kleben je¬ 
weils vier davon auf die Ecken der Kup¬ 
ferseite der Platinen (das heißt auf jede 
Ecke ein Gummistück). Fünf Platinen 
werden so präpariert. 

5. Von Ihrem Litzen-Kabelring schneiden 
Sie vier Kabelstücke ä 60 cm ab. 

6. Die präparierten Platinen werden auf 
die schraffierten Flächen der Folie gelegt 


(siehe Zeichnung) und mit Hilfe eines 
Lötkolbens und den Kabelstücken unter¬ 
einander verbunden. Die Kabel sollten 
direkt neben den Gummistücken auf den 
Platinen angelötet werden. 

7. Nun wird das Mikrofonkabel auf 90 
cm abisoliert (nur die äußere Hülle) und 
die Kabel aus der Abschirmung (= die 
nicht isolierte Litze) herausgezogen, so 
daß man am Ende sechs einzelne Leitun¬ 
gen erhält. 

8. Neben den bereits verbundenen Plati¬ 
nen wird jeweils eine andere Platine ge¬ 
legt. Die Abschirmung wird mit der prä¬ 
parierten Platte rechts unten verbunden, 
sie dient als gemeinsame Masse-Leitung. 
An die danebenliegenden, nicht präpa¬ 
rierten Platinen werden die anderen Lei¬ 
tungen des Mikrofonkabels angelötet (die 
Farbe der Kabel spielt für die Anordnung 
keine Rolle). Es muß nun darauf geach¬ 
tet werden, daß beim Übereinanderlegen 
einer präparierten Platte und der dazuge¬ 
hörigen Platine nicht zwei Lötstellen 
Übereinanderliegen, das heißt, solange 
kein Druck auf die Platinen ausgeübt 
wird, darf zwischen den Platinen keine 
leitende Verbindung entstehen. 

9. Wenn zwei solcher Platten übereinan¬ 
der gelegt werden, dann halten die Gum¬ 
mistücke die Kupferflächen auseinander. 
Sobald die Platten jedoch zusammenge¬ 
drückt werden, schließt sich der Strom¬ 
kreis. 

10. Nun werden jeweils zwei zusammen¬ 
gehörige Platten mit den Kupferflächen 
nach innen übereinander gelegt und mit 
Isolierband so verbunden, daß sie nicht 
verrutschen können. Die Kabel Verbin¬ 
dungen bleiben so lang, damit man die 
Matte später falten kann. 

11. Jetzt wird das Joystickkabel mit dem 
Mikrofonkabel verbunden . Die Abschir¬ 
mung des Mikrofönkabels wird mit der 
schwarzen Leitung des Joystickkabels 
verbunden. Wenn Sie einen Joystick¬ 
stecker verwenden, dann wird der ’Com- 
mon-Anschluß (aus dem CPC-Bedie- 


nungshandbuch zu entnehmen) mit der 
Abschirmung verbunden. Da die Plati¬ 
nen noch nicht verdeckt sind, kann man 
sehen, welche Mikrofonleitungen zu wel¬ 
cher Platte gehen. Drücken Sie nun die 
mittlere Kontaktfläche, und berühren Sie 
mit der zu dieser Platte führenden Lei¬ 
tung die einzelnen Leitungen des Joy¬ 
stickkabels, bis ein ’X’ = Fire auf dem 
Bildschirm erscheint. Diese Kabel gehö¬ 
ren zusammen. Entsprechend wird mit 
den anderen Flächen verfahren, nur müs¬ 
sen dort andere Zeichen erscheinen: 
Pfeil nach unten = unten, Pfeil nach 
oben = oben, X = Fire, Pfeil nach 
links = links, Pfeil nach rechts = 
rechts. 

12. Sind die entsprechenden Verbindun¬ 
gen hergestellt, wird das zweite Stück Fo¬ 
lie über die Platinen gelegt, die bereits 
auf der anderen Folie liegen. Das Mikro¬ 
fonkabel wird seitlich herausgeführt. 
Man kann es mit einem Knoten versehen, 
der als Zugentlastung dient. Der Knoten 
muß dann noch von der Folie verdeckt 
sein. 

13. Um die Kontaktflächen herum werden 
Heftklammern gesetzt, die verhindern, 
daß die Platten verrutschen. Es empfiehlt 
sich, die Matte auf einen weichen Unter¬ 
grund zu legen, um die Heftklammern 
leicht durch die Folie drücken zu können. 
Dann wird die Matte gewendet und die 
hervorstehenden Enden der Heftklam¬ 
mern umgebogen, dafür sollte besser ein 
fester Untergrund vorliegen. 

14. Sind auf diese Weise alle Platinen be¬ 
festigt, wird der Rand der Matte um 2 cm 
umgeknickt und mit dem Hefter und 
Klammern zusammengeheftet. 

15. Mit dem Gewebe-Klebeband werden 
die Kontaktflächen und die Ränder der 
Matte beklebt (von beiden Seiten). 

Alle Heftklammern müssen vom Klebe¬ 
band bedeckt sein. Nun wird die Matte 
einfach an den Joystickport angeschlos¬ 
sen und ist einsatzbereit. 

(Klaus Eberle/jb) 



Skizze 2: Schaltplan fiir die einzelnen Leitungen mit der jeweiligen Richtungs¬ 
angabe 



Bild I. Das ist die komplette Joystickmatte im Eigenbau 
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Joyce/PCW: 


Grundl: 


Wissen Sie eigentlich, was Sie versäumt haben? 


Nicht nur, daß ihnen eine geballte Fülle an 
Informationen fehlt, Sie haben gleichzeitig 
jeden Monat das Superprogramm für Ihren 
CPC, PCW oder PC verpaßt. Entgangen 
sind Ihnen höchstwahrscheinlich seit Ja¬ 
nuar 1988: 

POPCORN - das Super-Strategiespiel... 
(CPC) 

LOCOCON - schnelle Konvertierung von 
LocoScript-Texten... (PCW-Joyce) 

(Heft 1/88) 

DESKMAN - Komfortable Benutzerober¬ 
fläche für Diskettenoperationen... (CPC) 
SCREENY - Grafik-Module ohne GSX für 
Mallard- BASIC... (PCW-Joyce) 

(Heft 2/88) 

SCHREIBMASCHINENTRAINER - zum 

Erlernen der Zehnfinger-Schreibweise... 
(CPC) 

TINY - Ein Texteditor der Sonderklasse... 
(PCW-Joyce) 

(Heft 3/88) 

ROTORMANIA - Actionspiel mit Hub¬ 
schrauber... (CPC) 

DIN-A4-QUERHARDCOPY - nutzt das ge¬ 
samte Druckerpapier... (PCW-Joyce) 

(Heft 4/88) 

PICTURE-PRINTER - Super-Hardcopy- 
Programm... (CPC) 

3DZEICH - vektororientiertes Zeichenpro¬ 
gramm (PCW-JOYCE) 

(Heft 5/88) 


CPC-ASSEMBLER V 2.0 - Der Z80- 
Assembler zum Abtippen... (CPC) 
XX-FORMAT - 188 kByte freie Kapazität 
auf Diskette... (PCW-Joyce) 

FONTEDIT - Neue Zeichensätze unter 
BASIC2... (PC) 

(Heft 6/88) 

MAGIC SCREEN - Manipulation von Gra¬ 
fiken... (CPC) 

MONITORVERBESSERUNG - Klares Bild 
auf CGA-Monitoren... (PC) 

(Heft 7/88) 

BACKGAMMON - DIE Super-Simulation 
des Brettspiels... (CPC) 

MILLION - BASIC2-Spiel ums liebe Geld... 
(PC) 

(Heft 8/88) 

RSX-SYMBOL-DESIGNER - Zeichenedi¬ 
tor der Spitzenklasse... (CPC) 
3D-GRAFIK - Fortsetzung des 3D- 
Zeichenprogrammes... (PCW-Joyce) 
DIAGRAMM - Balken-, Torten- und Kreis¬ 
diagramme in BASIC2... (PC) 

(Heft 9/88) 

LOOK - Das tolle Mahjongg-Spiel zum Ab¬ 
tippen... (CPC) 

SCHOOLDAT - Literatur-Verwaltung für 
PC 1512/1640... (PC) 

(Heft 10/88) 

ARTWORX - Riesig: Desktop Publishing 
auf dem CPC... (CPC) 

REISEKOSTEN - Abrechnung der Reise¬ 
kosten in BASIC2... (PC) 

(Heft 11/88) 


Nicht zu vergessen die Highlights dieses 
Jahres: 

MAZE-GLIDER (Spiel, 1/89), 

ANIMATOR (Anwendung, 2/89), 
TEXT-EDIT DE LUXE (Anw., 3/89), 
SOUNDMANAGER (Anw., 4/89), 
AUSTRALIEN (Spiel, 5/89), 

VIDEODATEI (Anw., 6/89), 
für den CPC. 

FILE RESCUE (Anw., 1/89), 
BACKGAMMON (Spiel, 2/89), 
MINI-LEXIKON (Anw., 4/89), 
KASSETTENLABEL (Anw. ,5/89), 
für PCW-Joyce 

FARBE (Anw., 1/89), 

KONTOFÜHRUNG (Anw., 2/89), 
VOKABELTRAINER (Anw., 3/89), 
BÖRSENSIMULATION (Spiel, 5/89), 
REGENT (Spiel, 6/89), 
für PC 1512/1640. 

Dabei war das nur ein kurzer Ausschnitt aus 
der Menge an Programmen, die seit dem 
Januar 1988 in der PC AMSTRAD erschie¬ 
nen sind. Und das alles haben Sie verpaßt. 

Eine Chance... 

...haben Sie noch, wenn Sie die Bestellkar¬ 
ten im Heft ausfüllen und das jeweilige Heft 
nachordern (außer 12/88, dieses ist ausver¬ 
kauft). 

Also, nehmen Sie die letzte Chance wahr, 
ehe die Gelegenheit verpaßt ist. 


Bitte benutzen Sie den Bestellcoupon auf Seite 7 . 

DMV-Verlag - Postfach 250 • 3440 Eschwege 


/ / 


/ /Daten- und 

Medienverlag 
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für 464-664-6128 



1000 '==== Fitness-Center ==== 

1010 KEY 138,"mode 2:ink 0,13:ink l,0:pen 
1:paper 0:1ist " :MEMORY 26999:INK 0,15:B0R 
DER 15 : PEN 15.-MODE 0: GOTO 1090 
1020 FOR i=25 TO 0 STEP -1:0UT &BCOO,6:OUT 
&BDOO, i :CA LL &BD19:CALL &BD19:NEXT:FOR i = 
0 TO 15:INK i , 15:NEXT:RETURN 
1030 n=0:fl=l:e=0:!FBLOCK,adr(n):n=n+l:IF 
jump THEN !SET,5:!FBLOCK,33912SET,0 
1040 GOSUB 4400:GOSUB 1250:GOSUB 1740:EVER 
Y 50,0 GOSUB 1470:RETURN 

1050 !INIT:IF gfl<>l THEN FOR i=0 TO 2:1SE 
T,0:!WINDOW,x,y,xb,yb:|FBLOCK,sp(i):[XZOOM 
,4:|YZOOM,5 

1060 IF gf1=2 THEN ;WINDOW,0,0,24,96 

1070 IF gflOl THEN i GETSPR , ad r ( i ) : N EXT : R E 

TURN 

1080 IF g f1 = 1 THEN FOR i=0 TO 1:!SET,0:!WI 
NDOW,X,y,xb,yb:!FBLOCK,sp(i):!XZOOM,4:IYZO 
OM,5: 1GETSPR,adr(i ) :NEXT; !SET,0: [WINDOW,0, 
0,xb,yb:[FBLOCK,sp(2):IXZOOM,4:[YZOOM,5:[G 
ETSPR,adr(3):RETURN 
1090 GOSUB 1020 
1100 DEFINT a-z 

1110 DIM erg(40),adr(4),punkteC9),alt(9),s 

p ( 2 ) 

1120 sc=0:spieler=l:MODE 0 

1130 POKE &A610,&3E:POKE &A611,0:POKE &A61 
2 , &C3 : POKE &A613 ,&E4 : POKE &A614,&BB:CALL 8. 
A600 

1140 LOAD"fitsp.bin",&9585 

1150 LOAD"fitmc.bin", 40000:CALL 40000: [INI 
T: [ SET,0 

1160 GOSUB 3510:GOSUB 1020:MODE 0:power=&9 
037+2000 

1170 FOR a rt=1 TO 8:FOR num=0 TO spieler-1 
:E=0:0N art GOSUB 1510,1900,2080,2210,2560 
,2700,2840,2980:GOSUB 1290:punkte(num)=pun 
kte(num)+sc:GOSUB 1020:NEXT:NEXT 
1180 FOR i=0 TO 8 

1190 IF a11(i)>punkte(i ) THEN punkte(i) = al 
t( i ) 

1200 NEXT 

1210 MODE 0:GOSUB 4040:CLEAR:GOTO 1160 
1220 ‘ 

1230 ‘INK 
1240 ‘ 

1250 OUT &BC00,6:OUT &BD00,0:INK 0,11:INK 
1,5:INK 2,24:INK 3,19:INK 4,26:INK 5,0:INK 
6,23:INK 7,1:INK 8,3:INK 9,15:INK 10,16:1 
NK 11,17:INK 12,18:IN K 13,6:BORDER 15:FOR 
i=0 TO 25:OUT &BCOO,6:OUT 43D00,i:CALL &BD 
19 : CALL 8.BD19 : NEXT : RETURN 
1260 1 
1270 1 C LS 
1280 ‘ 

1290 FOR i= 39 8 TO 32 STEP -2:MOVE 0,i:DRAW 
638,i,0:NEXT:FOR i=16 TO 0 STEP 2:MOVE 0, 
1:DRAW 638,i,0:NEXT:RETURN 
1300 ' 

1310 'FENSTER 
1320 ' 

1330 GOSUB 1020 

1340 WINDOW#1,1,20,1,9:PAPER#1,13:CLS#1 
1350 PAPER 13:PEN 2:LOCATE 3,5:PRINT "POWE 
R :":LOCAT E 3,7:PRINT "TIME : sec." 

1360 PEN 11:FOR i=l TO 20:LOCATE i,l:PRINT 
CHR$C143):LOCATE i,9:PRINT CHR$(143):NEXT 
:FOR i=2 TO 8:LOCATE l,i:PRINT CHR$(143):L 
OCATE 20,i :PRI NT CHR$(143):NEXT 
1370 MOVE 0,398:DRAW 638,398,5:DRAW 638,25 
4,5:DRAW 0,254,4:DRAW 0,398,4 
1380 MOVE 32,384:DRAW 606,384,4:DRAW 606,2 
70,4:DRAW 32,270,5:DRAW 32,364,5 
1390 [SET,2:[WINDOW,40,30,2,12:[FBLOCK,pow 
e r:p=40 

1400 MOVE 320,314:DRAW 576,314,4 

1410 FOR i=320 TO 576 STEP 32:M0VE i,314:D 

RAWR 0,-4,4:NEXT 

1420 PEN 3:PAPER 0:L0CATE 1,25:PRINT"> " ; :L 
OCATE 20,25:PRINT"<"; 


[2203] 
[8548] 

[ 7702 ] 

[4022] 

[5317] 

[7180] 

[1802 ] 

[1924] 

[ 12639 ] 


[863] 

[ 553 ] 

[2601] 

[ 732] 
[5373] 


[2160] 
[ 3465 ] 

[ 2695 ] 

[9685] 


[ 489 ] 
[3743] 

[350] 

[2507] 

[117] 

[151] 

[117] 

[11044] 


[117] 

[ 467 ] 
[117] 

[4758] 


[117] 

[1072] 
[117] 

[ 863 ] 

[2135] 

[4716] 

[8301] 


[3299 ] 

[4554] 

[3358] 

[ 1306 ] 
[ 2891 ] 

[4360] 
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1430 RETURN 
1440 ' 

1450 'Time 
1460 ' 

1470 erg(a)=p:IF a THEN a=a-l:PAPER 13:PEN 
4:LOCATE 11,7:PRINT STRING$(4-LEN(STR$(a) 
>,“0");MID$(STR$(a),2):RETURN ELSE e = l:RET 
URN 
1480 ’ 

1490 'Jogging 
1500 ' 

1510 sp(0)=&942F+2000:sp(l)=&93EF+2000:sp( 
2 ) =&93AF + 2000 

1520 adr(0)=27000:adr(1)=28280:adr(2)=2700 
0:adr(3)=29560 

1530 xb=4:yb=16:gfl=1:x=0:y=0:GOSUB 1050:a 
$=" Jogging":GOSUB 3280 

1540 LOCATE 2,24:FOR i=l TO 18:PEN RND*12+ 

1:PRINT CHR$(143);;NEXT 

1550 I SET,1: [WINDOW,4,184,72,8 

1560 [SET,0:[WINDOW,32,103,16,80 

1570 GOSUB 1030 

1580 ' 

1590 IF JOY (0 ) =8 AND flOl THEN f1=l:GOSUB 
1660 

1600 IF e THEN GOTO 1810 

1610 IF JOY(0)= 4 AND fl<>0 THEN f]=0:GOSUB 
1660 

1620 t=t+1:IF t>=(73-p)\(5+add) THEN t=0:I 
F p > 40 THEN p=p-l 

1630 !SET,2:[POS,p,30:[FBLOCK,power 
1640 GOTO 1590 
1650 ' 

1660 [SET,0:!FBLOCK,adr(n):n=n+1:IF n=4 TH 
EN n = 0 

1670 SOUND 1,0,4,,,,30:IF p<72 THEN p=p+l 

1680 [SET,2:[POS,p,30:[FBLOCK,power 

1690 [SET,1:[LROTATE:CALL &BD19:[LROTATE:C 

ALL &BD19:[LROTATE 

1700 RETURN 

1710 ' 

1720 'START 
1730 ' 

1740 PEN 4:PAPER 0:L0CATE 1,12:PRINT"Ready 
..":[SET,3:JWINDOW,0,88,28,8:[YZOOM,4;FOR 
i=l TO 1000:NEXT:FOR i=l TO 32:SOUND 1,1*5 
,3:[SCROLLUP:CALL &BD19:CALL &BD19:NEXT 
1750 LOCATE 1,12:PRINT"Set...":[SET,3:[WIN 
DOW,0,88,28,8:[YZOOM,4:FOR i=l TO 1000:NEX 
T:FOR i=1 TO 32:SOUND 1,i* 10,3: [SCROLLUP:C 
ALL 8.BD19 : CALL &BD19:NEXT 

1760 LOCATE 1,12:PRINT"Go!!!":[SET,3:[WIND 
OW,0,88,20,8:[YZOOM,4:FOR 1=1 TO 1000:NEXT 
:FOR i=1 TO 32:SOUND 1,i*20,3:[SCROLLUP:CA 
LL SBD19:CALL &BD19:NEXT:SOUND 1,0,8,0,1,, 
2:SOUND 1,0,15,0,1,,30 
1770 RETURN 
1780 ' 

1790 'Score 
1800 ' 

1810 NIX=REMAIN(0):wert!=0:FOR i=0 TO VAL( 
t$):wert!=wert!+erg(i)-40:NEXT:wert!=wert! 
/VA L(t$):wert!=wert!*100 

1820 LOCATE 2,12:PAPER 0:PEN 4:PRINT"End ! 

!":[SET,3:[WINDOW,4,88,24,8:[YZOOM,4:FOR i 
=1 TO 700:NEXT 

1830 SC=0:FOR i=l TO 32:[SCROLLDOWN:CALL & 
BD19:CALL &8D19:SOUND 1,0,5,1 MOD 15,1,,10 
: N E X T 

1840 LOCATE 2,12:PRI NT"Score:": [SET,3; [WIN 
DOW,4,88,24,8:[YZOOM,4:LOCATE 2,16:sc=sc+I 
NT(wert!):IF sc<0 THEN sc=sc+2“16 
1850 sc$=STRING$(7-LEN(STR$(sc)),"0")+MID$ 
CSTR$(sc),2):PRINT sc$:[WINDOW,4,120,24,8: 
[YZOOM,4 

1860 MOVE 24,226:DRAW 224,226,7:DRAW 224,1 
00,7:DRAW 24,100,4:DRAW 24,226,4:GOSUB 311 
0:RETURN 
1870 ' 

1880 'Rumpfbeugen 
1890 ' 

1900 sp(0)=&934F+2000:sp(1)=&92EF+2000:sp( 
2)=&928F+2000 

1910 adr{0)=27000:adr(1)=28920:adr(2)=3084 
0:adr(3)=28920 

1920 GOSUB 1020:xb=6:yb=16:gfl=0:GOSUB 105 
0:a$=" Rumpf beugenGOSUB 3280 


[ 555 ] 
[117] 
[362] 
[117] 

[ 7306 ] 


[117] 

[153] 

[117] 

[ 3449 ] 

[ 2111 ] 

[4726] 

[3333] 

[2272] 
[2169 ] 
[ 869 ] 
[117] 
[2177] 

[515] 

[2293] 

[2178] 

[2673] 

[317] 

[ 117 ] 
[3332] 

[2487] 

[2673] 

[4476] 

[555 ] 
[117] 
[115] 
[117] 

[8861] 


[9374] 


[ 10315] 


[ 555 ] 
[117] 
[513] 
[117] 
[5307] 


[ 6945 ] 


[4243 ] 


[7323] 


[5377] 


[6082 ] 


[117] 

[1115] 

[117] 

[2565] 

[3800] 

[5234] 
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1930 

!SET,0:IWINDOW,32,103,24,80:GOSUB 103 

[2803 ] 

1940 

IF JOY (0) = 3 AND flOl THEN fl=l:G0SUB 

[ 3376 ] 

2000:FOR i=1 70 100:NEXT:GOSUB 2000 


1950 

IF e THEN GOTO 1810 

[515] 

1960 

IF JOY(0)=19 AND fl<>0 THEN f1=0:GOSU 

[6824] 

B 2000:FOR i=l TO 100:NEXT:GOSUB 2000 


1970 

t=t+1:IF t>=(73-p)\(3+add) THEN t=0:I 

[1407] 

F p> 40 THEN p=p-l 


1980 

!SET,2: !POS,p,30: !F BLOCK,power 

[2673] 

1990 

GOTO 1940 

[343] 

2000 

1 SET,0: !FBLOCK,adr(n):n = n + l:IF n = 4 TH 

[3332] 

EN n = 

0 


2010 

SOUND 1,0,4,,,,30:IF p<72 THEN p=p+l 

[2487] 

2020 

!SET,2:!POS,p,30:!FBLOCK,power 

[ 2673 ] 

2030 

FOR 1=1 TO 100:NEXT 

[ 936] 

2040 

RETURN 

[ 555 ] 

2050 


[117] 

2060 

Liegestuetz 

[2126] 

2070 


[117] 

2080 

sp{0)=&921F+2000:sp(l)=&91AF+2000:sp( 

[2542] 

2 )=&913F+2000 


2090 

adr(0)=27000:adr(1)=29240:adr(2)=3178 

[2330] 

0:ad r(3)=ad r(1 ) 


2100 

GOSUB 1020:xb=7:yb=16:gfl=0:GOSUB 105 

[5583] 

0 : a$ = 

" LiegestuetzGOSUB 3280 


2110 

I SET,0: I WINDOW,32, 103,28,80:GOSUB 103 

[2418] 

2120 

IF JOY(0)=3 AND f1<>1 THEN fl=1:GOSUB 

[3376] 

2000:FOR i=l TO 100:NEXT:GOSUB 2000 


2130 

IF e THEN GOTO 1810 

[515] 

2140 

IF JOY(0)=19 AND fl<>0 THEN fl=0:G0SU 

[6824] 

B 2000:FOR 1=1 TO 100:NEXT:GOSUB 2000 


2150 

t=t+l:IF t>=(73-p)\(3+add) THEN t=0:I 

[ 1407 ] 

F p> 40 THEN p=p-l 


2160 

!SET,2:!POS,p,30:!FBLOCK,power 

[2673] 

2170 

GOTO 2120 

[ 307] 

2180 


[117] 

2190 

' Jump 

[512 ] 

2200 


[117] 

2210 

sp(0)=&942F+2000:sp(1}=&8FF7+2000: sp( 

[2416] 

2 ) = 8>90FF + 2000 


2220 

adr(0)=27000:adr(l)=29304:adr(2)=3160 

[3270] 

8 : adr(3)=29304:adr(4)=adr(0) 


2230 

GOSUB 1020:x=4:y=8:gfl=2:xb=4:yb=16:G 

[5255] 

OSUB 

1050:a$=" Springen":GOSUB 3280 


2240 

!SET,5::WINDOW,32,184,40,8:IGETSPR,33 

[ 2485 ] 

912 



2250 

!SET,0:IWINDOW,32,95,24,96 

[2426] 

2260 

j ump=1:GOSUB 1030:jump=0:fl=0 

[ 1359 ] 

2270 

IF JOY(05 = 16 AND f1= 0 THEN fl=l:GOSUB 

[ 1993 ] 

2330 


2280 

IF e THEN GOTO 1810 

[515] 

2290 

IF JOY(0) = 3 AND fl = l THEN fl=0:GOSUB 

[2309] 

2430 



2300 

t=t+l:IF t>=(73-p)\(5+add) THEN t=0:I 

[2178] 

F p > 40 THEN p=p-l 


2310 

1 SET,2: 1 POS,p,30: IFBLOCK,power 

[2673] 

2320 

GOTO 2270 

[ 365 ] 

2330 

jx = -8:sw=-8: 1 SET,0:FOR i=l TO 4 

[2031] 

2340 

!POS,32+i*4,95+jx:|FBLOCK,adr(i) 

[2261] 

2350 

j x = j x + sw:IF j x = -16 THEN sw=8 

[1495] 

2360 

IF p< 72 THEN p=p+l 

[ 993 ] 

2370 

!SET,2: I POS,p,30: 1FBLOCK,power 

[2673] 

2380 

!SET,5:1FBLOCK,33912:ISET.O 

[ 1252 ] 

2390 

FOR 11 = 1 TO 50 : NEXT 

[ 875 ] 

2400 

SOUND 1,0,3,,,,30 

[1217] 

2410 

NEXT 

[350] 

2420 

RETURN 

[ 555 ] 

2430 

jx=-8:sw=-8:|SET,0:FOR i=3 TO 0 STEP 

[2035] 

2440 

!POS,32+i*4,95+jx:IFBLOCK,adr(1) 

[ 2261 ] 

2450 

j x = j x + sw:IF j x = -16 THEN sw = 8 

[1495] 

2460 

IF p< 72 THEN p = p+l 

[993] 

2470 

!SET,2: 1 POS,p,30: 1FBLOCK,power 

[2673] 

2480 

!SET,5:1FBLOCK,33912:ISET.O 

[ 1252 ] 

2490 

FOR 11 = 1 TO 50.-NEXT 

[ 875 ] 

2500 

SOUND 1,0,3,,,,30 

[1217] 

2510 

NEXT 

[ 350] 

2520 

RETURN 

[ 555 ] 

2530 

* 

[117] 

2540 

Si t-up 

[ 105] 

2550 

* 

[117] 

2560 

sp(0)=&8F01 + 2000:sp(1)=&8EBB+2000 : sp( 

[2330] 

2)=&BE75+2000 


2570 

adr(0)=27000:adr(l)=28400:adr(2)=2980 

[2216] 

0:ad r(3)=ad r (1 ) 
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2580 GOSUB 1020:x=0:y=0:xb=5:yb=14:gf1=0:G 
OSUB 1050:a$=" Sit-up":GOSUB 3280 

[6073] 

2590 1 SET,0: IWINDOW,32,114,20,70 

[2283] 

2600 GOSUB 1030:fl=0 

[ 995 ] 

2610 IF JOY ( 0 ) = 19 AND flOl THEN f 1 = 1 : GOSU 
B 2000:FOR i=l TO 200:NEXT:GOSUB 2000 

[4441] 

2620 IF e THEN GOTO 1810 

[515] 

2630 IF JOY(0)= 3 AND fl<>0 THEN fl=0:G0SU8 
2000:FOR i=1 TO 200:NEXT:GOSUB 2000 

[3455] 

2640 t=t+l:IF t>=(73-p)\(4+add) THEN t=0:I 

F p >40 THEN p = p-l 

[2082] 

2650 1 SET,2: I POS,p,30: IFBLOCK,power 

[2673] 

2660 GOTO 2610 

[ 345 ] 

2670 ' 

[117] 

2680 'Kniebeugen 

[458] 

2690 ' 

[117] 

2700 sp(0)=&942F+2000:sp(l)=&8F47+2000:sp( 

2)=&90BF+2000 

[2717] 

2710 adr(0)=27000:adr(1)=28280:adr(2)=2956 

0:ad r(3) = ad r(0) 

[ 2909 ] 

2720 GOSUB 1020:xb=4:yb=16:GOSUB 1050:a$=" 
Kniebeugen":GOSUB 3280 

[5778] 

2730 I SET,0: IWINDOW,32,103, 16,80 

[2169] 

2740 GOSUB 1030 

[869 ] 

2750 IF JOY ( 0 ) = 12 AND flOl THEN fl =1: GOSU 

B 2000:FOR i=l TO 100:NEXT:GOSUB 2000 

[4201] 

2760 IF e THEN GOTO 1810 

[515] 

2770 IF JOY(0}=28 AND fl<>0 THEN fl=0:GOSU 
B 2000:FOR i=l TO 100:NEXT:GOSUB 2000 

[5107] 

2780 t=t+1:IF t>=(73-p)\(5+add) THEN t=0:I 

F p> 40 THEN p = p-l 

[2178] - 

2 790 1 SET,2: |POS,p,30: IFBLOCK,power 

[2673] 

2800 GOTO 2750 

[ 389 ] 

2810 ’ 

[117] 

2820 'Stuetz-huepfen 

[ 475 ] 

2830 ' 

[117] 

2840 sp(0)=8921F+2000:sp(1)=&8F87+2000:sp( 

2)=&904F+2000 

[2525] 

2850 adr(0)=27000:adr(l)=29240:adr(2)=3178 

0:ad r(3)=ad r( 1) 

[2330] 

2860 GOSUB 1020:xb=7:yb=16:GOSUB 1050:a$=" 
Stuetz-huepfen":GOSUB 3280 

[5961] 

2870 ISET.O:IWINDOW.32,103,28,80 

[2010 ] 

2880 GOSUB 1030 

[869] 

2890 IF JOY(0)=15 AND fl=l THEN fl=0:GOSUB 
2000:FOR 1=1 TO 100:NEXT:GOSUB 2000:F0R 1 
=1 TO 50:NEXT 

[8155] 

2900 IF e THEN GOTO 1810 

[515] 

2910 IF JOY(0)=3 AND fl=0 THEN fl=l:GOSUB 
2000:FOR 1=1 TO 100:NEXT:GOSUB 2000:F0R i= 

1 TO 50:NEXT 

[4118] 

2920 t=t+1:IF t>=(73-p)\(2+add) THEN t=0:I 

F p > 40 THEN p=p-l 

[2354] 

2930 |S E T,2: 1 POS,p,3 0: 1FBLOCK,power 

[ 2673] 

2940 GOTO 2890 

[321] 

2950 ' 

[117] 

2960 ' Entspannen 

[1326] 

2970 ' 

[117] 

2980 sp(0)=&8E35+2000:sp(l)=&8DF5+2000:sp( 

2)=&8DB5+2000 

[2028] 

2990 adr(0)=27000:adr(l)=28280:adr(2)=adr( 
0):adr(3)=29560 

[2936] 

3000 GOSUB 1020:xb=4:yb=16:gfl=1:GOSUB 105 
0:a$=” Entspannen":GOSUB 3280 

[5559] 

3010 !SET,0:!WINDOW,32,103,16,80:GOSUB 103 

[2651] 

3020 IF JOY(0 ) < > 0 AND fl=0 THEN fl=l:GOSOB 
2000 

[1713] 

3030 IF e THEN GOTO 1810 

[515] 

3040 IF JOY(0) = 0 AND fl=l THEN fl=0:GOSUB 
2000 

[ 1732 ] 

3050 t=t+1:IF t>=(73-p)\(4+add) THEN t=0:I 

F p > 40 THEN p=p-l 

[2082] 

3060 I SET,2: I POS,p,30: |FBLOCK,power 

[2673] 

3070 GOTO 3020 

[461] 

3080 ' 

[ 117] 

3090 'Musiki 

[1101 ] 

3100 ' 

[117] 

3110 ENV 1,1,14,1,1,0,10,14,-1,4:ENV 2,1,1 
4,1,14 , -1,4 

[2477] 

3120 DATA 17,284,25,10,716,25,17,268,25,10 
,716,25,17,284,25,10,716,25,17,319,25,10,7 
16,25,2,716,25,2,716,25,2,716,25,2,716,25 

[5980] 

3130 DATA 17,358,25,10,536,25,17,358,25,10 
,536,25,17,426,25,10,536,25,17,358,50,10,4 
78,25,2,478,25,17,319,25,10,478,25,2,478,2 
5,2,478,25 
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3140 DATA 17,284,25,10,716,25,17,268,25,10 
,716,25,17,284,25,10,716,25,17,319,25,10,7 
16,25,2,716,25,2,716,25,2,716,25,2,716,25 

[ 5980] 

3150 DATA 17,358,25,10,536,25,17,358,25,10 
,536,25,17,426,25,10,536,25,17,358,50,10,4 
78,25,2,478,25,17,319,25,10.478,25,2,478,2 
5,2,478,25 

[5558] 

3160 DATA 17,358,23,10,426,25,17,358,23,10 
,426,25,17,358,23,10,426,25,17,358,48,10,4 
26,25,2,426,25,17,358,25,10,426,25,2,478,2 
5,17,426,25,10,426,25 

[8714] 

3170 DATA 17,358,25,10,536,25,17,426,25,10 
,536,25,17,358,25,10,536,25,17,284,48,10,5 
68,25,2,568,25,17,284,25,10,568,25,2,568,2 
5,2,568,25 

[6380] 

3180 DATA 17,268,23,10,638,25,17,268,23,10 
,638,25,17,268,23,10,638,25,17,239,48,10,5 
68,25,2,568,25,17,239,25,10,568,25,2,568,2 
5,17,239,25,10,568,25 

[5973] 

3190 DATA 17,213,23,10,638,25,17,213,23,10 
,638,25,17,213,23,10,638,25,17,213,50,10,4 
78,25,2,478,25,17,239,50,10,478,25,2,478,2 
5,2,478,25 

[6084] 

3200 DATA 99,99,99,99,99,99 

[915] 

3210 RESTORE 3120 

[ 743] 

3220 PEN 2:LOCAT E 9 , 12:PRI NT">Press Fire<" 
:MOVE 252,204:DRAW 638,204,4:DRAWR 0,22,5: 
DRAWR -386,0,5:DRAWR 0,-22,4 

[5558 ] 

3230 READ S,h,1:IF s=99 THEN GOTO 3210 ELS 
E IF UOY(0)=16 THEN CALL &BCA7:RETURN 

[2949] 

3240 IF S=17 THEN SOUND S,h\2,1,14:REA0 S, 
h,1:SOUND s,h\2,L,0,1:SOUND 4.H.L.14 

[ 4659 ] 

3250 IF s=1 THEN SOUND s,h\2,l,14 

[ 1464 ] 

3260 IF s=2 THEN SOUND s,h\2,1,0,1:SOUND 4 
, H , L , 0,2 

[2677] 

3270 GOTO 3230 

[ 443 ] 

3280 WINDOW 1 , 20,1 , 15:CLS:WINDOW 1,20,1,25 
:GOSUB 1340:PAPER 13:POKE &A611, 1 3:CALL &A 
610:PEN 4:LOCATE 3,3:GOSUB 4000:POKE &A611 
,0:CALL &A610:RETURN 

[ 8249 ] 

3290 

[117] 

3300 Music2 

[1116] 

3310 

[117] 

3320 RESTORE 3350 

[ 73 7 ] 

3330 ENV 1,1,13,26,13,-1,5 

[ 1038 ] 

3340 ENV 2 , 1 ,13,26,13,-1,30:ENV 3,5,3,4,15 
,-1,10 

[2165] 

3350 DATA 17,568,30,10,1703,150 

[ 982 ] 

3360 DATA 1,338,30,1,284,30,1,284,30,1,284 
,30,17,284,60,10,1276,120,1,319,30,1,319,3 
0,17,338,30,10,1136,120,1,379,30,1,379,30, 
1,426,30,17,426,120,10,1703,120,17,568,30, 
10,1703,150,1,338,30,1,284.30,1,284,30,1,2 
84,30,17,253,60,10,1276,120,1,284,30,1,319 

[ 13247 ] 

3370 DATA 30,17,338,30,10,1136,120,1,379,3 
0,1,379,30,1,338,30,17,338,120,10,1703,120 
,17,568,30,10,1703,150,1,338,30,1,284,30,1 
,284,30,1,284,30,17,213,60,10,1276,120,1,2 
25,30,1,253,30,17,284,30,10,1136,120,1,319 
,30,1,319,30,1,338,30,17,338,120,10,1703,1 
20 

[11550] 

3380 DATA 17,568,30,10,1703,150,1,338,30,1 
,284,30,1,284,30,1,284,30,17,253,60,10,127 
6,120,1,284,30,1,319,30,17,338,30,10,1136, 
120,1,379,30,1,379,30,1,426,30,17,426,120, 
10,1012,120,17,451,90,10,1351,90 

[8966] 

3390 DATA 17,506,90,10,1276,120,1,568,30,1 

7.426.30.10.1136.120.1.379.30.1.426.30.1.4 
51,30,17,426,120,10,1703,120,17,426,30,10, 

1703.60.1.426.30.17.379.60.10.1136.240.1.5 
68,30,1,568,15,1,568,45,1,568,60,1,568,30 

[ 9736 ] 

3400 DATA 17,319,60,10,1276,120,1,338,30,1 
.379,30,17,426,60,10,1703,120,1,284,30,1,2 
84,30,17,284,30,10,1351,120,1,284,60,1,284 
,30,17,284,60,10,1276,120,1,319,30,1,338,3 
0,17,379,120,10,1136,240,1,0,60,1,284,30,1 
,284,30 

[11267] 

3410 DATA 17,284,60,10,1136,240,1,190,30,1 
,190,15,1,190,15,1,190,30,1,190,30,1,0,30, 
1,190,30,17,213,60,10,1136,240,1,225,30,1, 
253,30,1,284,120,17,319,30,10,1517,60,1,33 
8,30,17,379,60,10,1136,120,1,426,30,1,451, 
30,17,426,120,10,1703,120 

[10334 ] 

3420 DATA 17,319,30,10,1517,60,1,338,30,17 
,379,120,10,1136,180,1,426,30,1,451,30,17, 
426,180,10,1703,180,99,99,99,99,99,99 

[5853] 

3430 READ s,h,1:IF s=99 THEN RESTORE 3350: 
ENV 2,13,1,8,13,-1,8:GOTO 3430 
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3440 IF s =1 THEN SOUND 1 ,h\2, 1,0,1 
3450 IF s=17 THEN SOUND 17 , h\2, 1 ,0,1:READ 
s2 , h2, 12:SOUND s2,h2\2,12,14:SOUND 4,H2\4, 
12 ,0,2 

3460 ON SQ(1) GOSUB 3430:RETURN 
3470 RESTORE 3350:GOTO 3430 
3480 1 
3490 'Titel 
3500 ' 

3510 T AGOF F:GOSUB 1020:PEN 1:PAPER O.MODE 
0 

3520 PEN 1:LOCAT E 2,3:a$="CPC":GOSUB 4000: 

!SET,3:!WINDOW,4,16,13,10:1XZOOM,6:!YZOOM, 
4 

3530 PEN 2:LOCATE 4,10:a$="Fitness’:GOSUB 
4000:|SET,3:!WINDOW,12,72,29,10:1XZOOM,2:1 
YZOOM,4 

3540 PEN 3:LOCATE 2,17:a$="Center":GOSUB 4 
000: !SET,3: !WINDOW,4,128,25,10: !XZOOM,3; J Y 
ZOOM,4 

3550 PEN 11:FOR i-1 TO 20:LOCATE i,l:PRINT 
CHR$(143):LOCATE 1,25:PRINT CHR$(143);:NE 
XT:FOR 1=2 TO 24:LOCATE l,i:PRINT CHR$(133 
):LOCATE 20,i:PRINT CHR$(138):NEXT 
3560 MOVE 0,0:DRAW 0,398,4:DRAW 638,398,4: 
DRAW 638,0,5:DRAW 0,0,5 

3570 MOVE 16,16:DRAW 16,382,5:DRAW 622,382 
,5:DRAW 622,16,4:DRAW 16,16,4 
3580 LOCATE 3,23:PEN 5:PRINT"by Klaus Ebe 
r 1 e " 

3590 DIM name$(13) 

3600 ORIGIN 0,0,64,640,34,32:i=24:|SET,3:j 
WINDOW,8, 164,69,26:num = 0 

3610 name$(0) =" in 1988":name$(1)= 1 Spec 
ial thanks to":name$(2)=”Carsten&Wo1fgang" 
:name$(3)="Special greetings":name$(4)=" t 
o Khalid.Uoerg,“:name$(5) = " Kami 1 and Volk 
er":name$(6) = " MC-routines":narne$(7) = " 
f rom" 

3620 name$(8 ) = " BLUE-BASIC":name$(9) = " 
Music:":name$(10)=" Zwischen boese":nam 
e$(11 ) = " und gut":name$(12 ) = " Urlaub im 

Sued en":name$(13) = " Flashdance" 

3630 GOSU8 1250:GOSUB 3320:PLOT 700,700,5 
3640 ON SQ(1) GOSUB 3430 

3650 MOVE 64,I:TAG:PRINT name$(num);:TAGOF 
F:i = i + 1 : ]SCROLLUP:IF i=56 THEN 1=24:num = nu 
m+l:IF num=14 THEN num=l 

3660 IF INKEY$="" THEN 3650 ELSE ORIGIN 0, 
0,0,640,400,0 

3670 MOVE 32,30:DRAW 600,30,0:LOCATE 3,21: 
PEN 0:PRINT STRING$(17,CHR$(143))i:LOCATE 
3,23:PEN 0:PRINT STRING$(17,CHR$(143)); : LO 
CATE 3,22:PRINT STR ING$(17,CHR$(143) ); 

3680 LOCATE 4,23:PEN 4:A$="P1ayer(1-9) 
GOSUB 4000 

3690 LOCATE 17,23:PRINT" LOCATE 17,23 

:MAXi=2:GOSUB 3900 

3700 spieler=VAL(a$):IF spieler>9 OR (spie 
ler=0 AND UPPER$(a$)<>"0") THEN GOTO 3690 
ELSE IF A$="0" THEN 3770 

3710 FOR NUM= 0 TO spie1er-1:MOVE 32,30:DRA 
W 600,30,0: LOCAT E ‘2,23: PEN 0:PRINT STR I NG$ 
(17,CHR$(143));:LOCATE 2,22:PRINT STRING$( 
17,CHR$(143) ) ; 

3720 LOCATE 2,23:PEN 4:A$="Name"+STR$(NUM+ 
1)+" :":GOSUB 4000:LOCATE 11,23:MAXi=7:GOS 
UB 3900 

3730 name$(NUM)=UPPER$(a$):punkte(NUM)=0 
3740 NEXT 

3750 FOR NUM=spieler TO 9:name$(NUM)="":NE 
XT 

3760 GOTO 3800 

3770 MOVE 32,30:DRAW 600,30,0:LOCATE 3,23: 
PEN O.’PRINT STRING$( 16, CHR$( 143 ));: LOCATE 
3,2 2:PR I NT STRING$(16,CHR$(143) );: LOCATE 2 
,23:PEN 4:A$="Fi 1ename:":GOSUB 4000:LOCATE 
ll,23:MAXi=8:GOSUB 3900 
3780 CALL &BCA 7 : i =0 : \ OPEN , @ i , @a$ : I F iOO T 
HEN MODE 2:INK 1,0:PEN 1:PRINT:PRINT " Thi 
s is your directoryPRINT:PRINT:WINDOW 2 
,79,2,24:CAT:CALL &BB06:WHILE INKEY$<>"":W 
END:RUN 

3790 OPENIN " ! " + a $ :I N P U T # 9,spieler:FOR i=0 
TO 8:INPUT#9,alt(i ):INPUT#9,name$(i ) :NEXT 
:CLOSEIN:RESTORE 3350 


[ 1 792 ] 
[5270] 


( 1300] 
[1013 ] 
[117] 

[ 643 ] 
[117] 
[2332] 

[4410] 


[4678] 


[6605] 


[8138] 


[1774] 

[3995] 

[3797] 

[1014] 

[3186] 

[ 12984] 


[ 10939 ] 

[ 1889 ] 

[ 866 ] 
[5747] 

[2 700 ] 

[ 8295 ] 

[ 2805 ] 
[3199 ] 

[ 4995 ] 

[99 72 ] 


[5398] 


[ 1448 ] 
[ 350 ] 
[2561] 

[481] 

[9999 ] 


[8678] 


[4321] 
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3800 ON SQ(1) GOSUB 3430:MOVE 32,30:DRAW 6 
00,30,0:LOCATE 2,23:P£N 0:PRINT STRING$(16 
,CHR$(143)); ;PEN 4:L0CATE 6,21:A$= " <E>asy. 

GOSUB 4000:LOCATE 6,22:a$="<N>orma1. 

. .":GOSUB 4000:LOCATE 6,23:A$="<D>ifficu1t 
":GOSUB 4000: 

[13554] 

3810 1n$="0":WHILE INSTR("END",in$)=0:in$= 
UPPER$(INKEY$):IF in$="" THEN in$="0" 

[1984] 

3820 WEND 

[ 390] 

3830 IF in$="E" THEN t$="010 " :add = - 1 

[1558] 

3840 IF in$= N" THEN t$="020":ada=0 

[2298] 

3850 IF in$="D" THEN t$="040":add=1 

[ 664] 

3860 CALL &BCA7:RETURN 

[ 958 ] 

3870 ' 

[117] 

3880 'Input 

[213] 

3890 ' 

[117] 

3900 LOCATE POS(#0) ,VPOS(#0):PRI NT "<"; :po 
sa1t = POS(#0 ):VP0SALT=VPOS(#0) 

[3349] 

3910 WHILE INKEY$< >"":WEND 

[1786] 

3920 i=0:a$="in$="WHILE i<MAXi AND IN$ 

< >CHR$(13) 

[3037] 

3930 in$=UPPER$(INKEY$):IF in$<>"" THEN IF 
ASC(in$)<>127 AND in$<>CHR$( 1 3 ) AND ASCti 
n$ ) >31 THEN PRINT CHR$(8);in$i=i + 1: a 
$=a$+in$:GOTO 3950 

[7984] 

3940 IF 1>0 AND in$<>CHR$(13) AND in$=CHR$ 
(127) THEN PRINT CHR$(8);" ";CHR$(8);CHR$( 
8):a$=MID$(a$,l,LEN(a$)-l):i=i-l 

[5727] 

3950 WEND 

[390] 

3960 FOR il=i+posalt-1 TO Posalt STEP -1:L 
OCATE i1.VPOSALT:PRINT "<":CALL &BD19:LOCA 
TE i1,VPOSALT:PRINT " ":NEXT:LOCATE posalt 
-1,vposalt:PRINT"< M :RETURN 

[7393] 

39 70 ' 

[117] 

3980 3 D 

[315] 

3990 ' 

[117] 

4000 PLOT 700,700,7:xn=P0S(#0):yn=VPOS(#0) 

:MOVE (xn-l)*32+4,398-((yn-l)*16)-2:TAG:PR 
INT a$; :LOCATE xn,yn:TAGOFF:IF yn<>25 THEN 
PRINT CHR$(22);CHR$(1);a$;CHR$(22);CHR$(0 
) :RETURN ELSE PRINT CHR$(22);CHR$(1) ;a$;CH 
R$(22 ) ;CHR$(0); :RETURN 

[12543] 

4010 ' 

[117] 

4020 'ENDE 

[715] 

4030 1 

[117] 

4040 MODE 0:GOSUB 1250:FOR 1=0 TO 13:INK I 
,0:NEXT:BORDER 0:INK 15,1,26:INK 14,0:LOCA 
TE 5,3:PEN 15:PAPER 14:PRINT"PIease wait" 

:MOVE 320,0:RAD:FOR i!=-PI/2 TO PI/2+0.1 S 
TEP 0.1:MOVE 320+320*SIN(i!),320*COS(i!):D 
RAW 320,0,4:NEXT 

[ 13977 ] 

4050 WINDOW 5,8,23,25:PAPER 13:CLS:WINDOW 

9, 12,17,25:PAPER 2:CLS:WINDOW 13,16,20,25: 
PAPER 3:CLS:PAPER 0 

[7410] 

4060 WINDOW 1,20,1,25:PEN 5:PAPER 13:LOCAT 
E 6,24:PRINT "3":PAPER 2:LOCATE 10,19:PRIN 
T"1":PAPER 3:LOCATE 14,22:PRINT“2":PAPER 0 

[6951] 

4070 !SET,0:adr(0)=2 7000:entspl=&8E35+2000 

[3036] 

4080 [WINDOW,0,0,4,16:!FBLOCK,entsp1:[XZOO 
M,4:[YZOOM,5:|GETSPR,adr(0) 

[ 4860 ] 

409 0 [WINDOW,16,96,16,80: 1FBLOCK,ad r(0) 

[2165] 

4100 [WINDOW,32,48,16,80:[F8LOCK,adr(0) 

[ 1906] 

4110 [WINDOW,48,72,16,80:1FBLOCK,adr(0) 

[2419] 

4120 WINDOW 1,4,1,10:PAPER 0:CLS:WIND0W 1, 
20,1,25 

[3127] 

4130 LOCATE 1 , 1 : PEN 2:A$="*** Hall of Farne 
** * " :GOSUB 4000:A$=FOR 1 = 2 TO 25:LOCA 
TE 1,1:GOSUB 4000:L0CATE 20,1:GOSUB 400Ö:N 
EXT 

[6796] 

4140 LOCATE 2,2:GOSUB 4000:L0CATE 19,2:GOS 
UB 4000:LOCAT E 2,24:GOSUB 4000:LOCATE 19,2 
4:GOSUB 4000 

[4809 ] 

4150 FOR 1=2 TO 3:LOCATE I,25:GOSUB 4000:L 
OCATE 1+16,25:GOSUB 4000:NEXT 

[3748] 

4160 FOR 1 = 0 TO SPIE L ER-2 

[ 107 7 ] 

4170 FOR J=I TO 5PIELER-1 

[1121 ] 

4180 IF PUNKTEtI)<PUNKTE(J) THEN HILF=PUNK 
TE(I):HILF$=NAME$(I):PUNKTECI)=PUNKTE(J):P 
UNKTE(J)=HILF:NAME$(I)=NAME$(J):NAME$(J)=H 

I LF$ 

[9811 ] 

4190 NEXT 

[ 350 ] 

4200 NEXT 

[ 350 ] 

4210 PRINT CHR$(22);CHR$(1);:PEN 5:L0CATE 

5,12:PRINT NAMES(2):LOCATE 9,6:PRINT NAMES 
(0) :LOCATE 13,9:PRINT NAME$(1) :PRI NT CHR$( 
22);CHR$(0);ILOCATE 5,3:PAPER 0:PRINT STRI 
NG$(12," "):GOSUB 1250 
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4220 fl=0:RESTORE 4 41 0 : E N V 1,1,14,2,14,-1, 
7:ENT 1 ,1 , 1 , 1 , 1,0.30:ENT 2,1 ,-1 , 1 , 1,0,30 
4230 NIX=1:C=2:0N SQ(4) GOSUB 4490 
4240 FOR i=1 TO 500:NEXT:WHILE INKEY$< >"": 
WEND:WHILE INKEY$=“":WEND 
4250 GOSUB 1020 

4260 LOCATE 13,9:PRINT STRING$(7," ");:WIN 
DOW 5,16,2,25:PAPER 0:CLS:WINDOW 1,20,1,25 
4270 FOR i!=-PI/2 TO PI/2+0.1 STEP O.lrMOV 
E 320+320*SIN(i!),320*COS( i ! ) :DRAW 320,0,4 
:NEXT:PRINT CHR$(22) ;CHR$(1) ; 

4280 GOSUB 1250:FOR 1=0 TO 8:IF name$(I)<> 
"" THEN LOCATE 4,3+i*2:PEN i+l:PRINT name$ 
( i )+STRING$(9-LEN(name$( i ) ) , '' " ) ; STRINGS(6 
-LEN(STR$(punkteti))),"0");MID$(STR$(punkt 
e ( 1 ) ) , 2 > 

4290 IF NAME $(I) = "" THEN LOCATE 4,3+i*2:PE 
N i + 1 : PR I NT STRING$(7, ". ")+STRING$(2, ") ; 

STRINGS(6-LEN(STR$(punkteti ))), "0 ' );MID$(S 
TR$(pun kte(i )),2) 

4300 NEXT 

4310 LOCATE 5,25:PEN 7:PRINT">Press Key<" 
;CHR${22);CHR$(0); 

4320 LOCATE 2,24:PAPER 2:PRINT STRINGSC18, 
" "):PEN 3:LOCAT E 3,24:PR I NT"Insert Disk/C 
ass":WHILE INKEY$<>"":WEND:WHILE INKEY$="" 
: WEND 

4330 LOCATE 2,24:PEN 3:PRINT " Fi1ename: 

":LOCATE 11,24:maxi=8:GOSUB 3900:IF I 
NSTR(a$0 OR INSTR(a$0 THEN L 
OCATE 2,2 4:PRINT STRING$(18," "):GOTO 4330 
4340 IF a$ = "" THEN LOCATE 1 1,24 : PRI NT " NO F 
i1e":FOR i=l TO 1000:NEXT:GOTO 4360 
4350 CALL &BCA7:OPENOUT "l"+a$:PRINT #9,sp 
ieler:FOR i=0 TO 8:PRINT#9,punkte(i):PRINT 
#9,name$t 1 ): NEXT:CLOSEOUT 
4360 PAPER 1:PEN 1:RETURN 
4370 ’ 

4380 'SPIELER 
4390 ' 

4400 !SET,1:LOCATE 11,7:PEN 4:PRINT t$:a=V 
AL(t$) :PAPER 0:LOCATE 2,25:PRINT STRINGS(1 
8," " ) ; :LOCATE 2,25:A$="P1ayer: "+STRING$( 
9-LEN(NAMES(NUM)), ")+NAMES(NUM):GOSUB 40 
00:RETURN 

4410 DATA 49,213,180,42,536,240,28,268,30, 
4,268,30,4,268,30,4,268,30,4,268,30,4,268, 

30.33.239.30.12.268.30.33.268.30.12.268.30 
4420 DATA 49,239,176,42,716,240,28,358,30, 
4,358,30,4,358,30,4,358,30,4,358,30,4,358, 

30.33.239.30.12.358.30.33.213.30.12.358.30 
4430 DATA 49,201,180,42,956,240,28,478,30, 
4,478,30,4,478,30,4,478,30,4,478,30,4,478, 

30.33.213.30.12.478.30.33.239.30.12.478.30 
4440 DATA 49,213,30,42,638,240,28,319,30,3 
3,239,30,12,319,30,33,268,120,12,319,30,4, 
319,30,4,319,30,4,319,30,33,239,30,12,319, 

30.33.268.30.12.319.30 

4450 DATA 49,159,180,42,804,240,28,402,30, 
4,402,30,4,402,30,4,402,30,4,402,30,4,402, 

30.33.179.30.12.402.30.33.201.30.12.402.30 
4460 DATA 49,179,180,42,536,240,28,268,30, 
4,268,30,4,268,30,4,268,30,4,268,30,4,268, 

30.33.201.30.12.268.30.33.213.30.12.268.30 
4470 DATA 49,239,210,42,602,240,28,301,30, 
4,301,30,4,301,30,4,301,30,4,301,30,4,301, 
30,4,301,30,33,268,30,12,301,30,49,239,120 
,42,716,120,28,358,30,4,358,30,4,358,30,4, 

358.30 

4480 DATA 99,99,99,99 

4490 READ s,h,l:IF s=99 THEN RESTORE 4410: 
IF NIX=0 THEN C=l:GOTO 4550 ELSE NIX=0:GOT 
0 4550 

4500 IF s= 49 THEN SOUND s,h , 1 , 14, ,1:READ S 
,h,1 :SOUND s,h,1 ,14, ,2:READ s,h,l:IF NIX = 1 
THEN SOUND s,h,l ELSE IF fl=0 THEN fl=l:S 
OUND S,h,1,0,1 ELSE IF f1=l THEN fl=0:S0UN 
D s,h\C,1,0,1 

4510 IF s=1 THEN SOUND l,h,l,14,,l 
4520 IF s=2 THEN SOUND 2,H,L,14,,2 
4530 IF s=4 THEN IF NIX=1 THEN SOUND S,h,l 
ELSE IF fl=0 THEN fl=l:SOUND s,h,1,0,1 EL 
SE IF fl=l THEN f1=0:SOUND s,h\C,1,0,1 
4540 IF s=33 THEN SOUND s,h,1,14,,1;READ s 
,h,l:IF NIX=1 THEN SOUND S,h,l ELSE IF fl= 
0 THEN f1=1:SOUND s,h,1,0,1 ELSE IF f1=1 T 
HEN f1=0:SOUND s,h\C,1,0,1 
4550 ON SQ(4) GOSUB 4490:RETURN 
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10 • FITSP.BAS 
20 ‘ 

1000 DATA 00,00,00,00,00,40,00,80,00,84,00 
,48,00,00,00,00,00,84,00,48,00,40 
1010 DATA 00,80,00,00,CO,00,10,CC,CC,20,30 
,CC,CC,20,64,CC,CC,20,20,CC,CC,20 
1020 DATA AO,54,28,AO,00,FC,28,00,00,A8,28 
,00,54,00,28,00,03.00,03,00,00,00 
1030 DATA 00,00,40,00,80,00,84,00,48,00,00 
,00,00,00,84,00,48,00,40,00,80,00 
1040 DATA 00,CO,00,00,10,CC,CC,20,10,CC,CC 
,30,10,CC.CC,98,10,CC,CC,10,50,54 
1050 DATA 28,50,00,54,30,00,00,54,14,00,00 
,54,00,28,00,03,00,03,00,40,80,00 
1060 DATA 00,00,00,00,40,48,84,80,40,00,00 
,80,40,48,84,80,00,84,48,00,00,40 
1070 DATA 80,00,10,CC,CC,20,10,CC,CC,20,10 
,CC,CC,20,10,CC,CC,20,50,54,28,AO 
1080 DATA 00,54,28,00,00,54,28,00,00,54,28 
,00,00,03,03,00,00,00,00,00,00,00 
1090 DATA 00,00,00,00,00,00,00,00,00,00,00 
,00,00,00,00,00,00,00,80,00,00,40 
1100 DATA CO,CO,00,CC,C6,CO,CO,44,CC,C8,48 
,48,CC,98,C8,48,48,6C,98,60,48,80 
1110 DATA 6C,CC,30,40,00,3C,6C,98,AO,01,3C 
,3C,3C,3C,29,14,3C,3C,3C,29,00,00 
1120 DATA 00,00,00,00,00,00,80,00,00,00,40 
,CO,00,00,00,CO,84,80,00,00,CO , CO 
1130 DATA 80,00,00,CO,48,CO,00,CC,CO,84,00 
,00,98,C8,CO,00,44,98,64,00,00,CC 
1140 DATA CC,30,70,00,CC,CC,98,20,00,9C,3C 
,28,00,01,14,3C,3C,3C,29,00,3C,3C 
1150 DATA 3C,29,40,CO,00,00,00,CO,84,80,00 
,00,CO,CO,CO,00,00,CO,84,08,00,00 
1160 DATA 40,CO,80,00,00,00,CC,00,00,00,44 
,98,88,00,00,CC,98,CC,00,00,CC, 98 
1170 DATA CC,00,00,CC,98,CC,00,00,44,98,88 
,00,00,14,78,3C,00,01,14,3C,3C,3C 
1180 DATA 29,00,3C,3C,3C,29,00,00,00,00,00 
,CO,80,00,40,CO,46,00,40,CO,CO, 80 
1190 DATA 40,CO,OC,00,00,CO,CO,00,00,40,80 
,00,00,CC,CC,00,44,CC,30,70,44,CC 
1200 DATA 30,20,44,CC,CC,88,00,CC,CC,00,00 
,14,28,00,00,00,3C,00,00,14,28,00 
1210 DATA 00,01,03,00,00,00,00,00,00,00,00 
,00,00,00,00,00,00,00,00,00,00,00 
1220 DATA 00,00,00,00,00,00,00,00,00,00,00 
,00,00,00,00,00,00,00,00,00,00,00 
1230 DATA 00,00,00,00,00,00,40,CO,00,00,00 
, 00,00,CO,C0,80,00,00,44,CC,CO,CO 
1240 DATA 80,00,14,CC,CC,CO,CO,80,00,14,6C 
, 64,84,84,80,00,14,3C,64,84,84,80 
1250 DATA 00,00,3C,64,84,CO,00,00,16,6C,20 
,00,80,00,00,02,00,20,00,80,00,00 
1260 DATA 02,00,FO,00,00,00,00,00,00,00,00 
, CO,80,00,40, CO,48,00,40,CO,CO,80 
1270 DATA 40,CO,OC,00,00,CO,CO,00,00,40,80 
,00,00,CC.CC,00,44,CC,64,88,44,98 
1280 DATA 64,88,44,30,CC,88,00,64,CC,00,50 
,14,28,00,00,00,3C,00,00,14,28,00 
1290 DATA 00,01,03,00,C3,F3,OF,F3,CF,F3,33 
,F3,C3,F3,0F,F3,CF,F3,33,F3,C3,F3 
1300 DATA OF,F3,CF,F3,33,F3,00,00,00,00,00 
,00,00,00,00,00,00,00,00,00,00,00 
1310 DATA 00,00,00,00,00,00,00,00,00,00,00 
,00,00,00,00,00,00,00,00,00,00,00 
1320 DATA 00,00,00,00,00,00,00,00,00,00,00 
,00,00,00,00,40,CO,00,00,00,44, CC 
1330 DATA CO,CO,80,00,14,CC.CC,CO,CO,80,00 
, 14,6C,64,C0,CO,80,00,00,3C,64,84 
1340 DATA 84,80,00,00,14,64,84,84,80,00,00 
,16,20,84,CO,00,00,00,02,20,00,80 
1350 DATA 00,00,00,02,FO,00,80,00,00,00,00 
,00,00,00,00,00,00,CO,80,00,40,CO 
1360 DATA 48,00,40,CO,CO,80,40,CO,OC,00,00 
,00,00,00,00.40,80,00,00,00,00,00 
1370 DATA 44,CC,30,70,44,CC,30,20,44,CC,CC 
, 8 8,0 0,CC,CC,00,00,00,3C,2 8,00,14 
1380 DATA 28,00,00,01,03,00,00,CO,80,00,40 
,CO,48,00,40,CO,CO,80,40,CO,OC,00 
1390 DATA 00,CO,C0,00,00,40,80,00,00,CC,CC 
,00,44,CC,64,88,44,CC,30,88,44,CC 
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Listing Joymatte 


1400 DATA 98,20,00,CC,CC,70,00,14,28,00,00 
,00,3C,01,00,00,14,29,00,00,00,29 
1410 DATA 00,00,00,00,00,00,00,00,00,00,00 
,00,00,00,00,00,00,00,00,00,00,00 
1420 DATA 00,00,00,00,00,00,00,00,00,00,00 
,00,00,00,00,00,00,00,00,00,00,00 
1430 DATA 00,00,00,'00,00,00,00,00,00,00,00 
,00,00,4 0,CO,00,00,0 0,00,00,CO,CO 
1440 DATA 80,00,00,00,00,CO,CO,80,00,00,44 
,00,00,00,80,00,14,00,00,84,84,80 
1450 DATA 14,3C,CC,64,84,84,80,16,3C,98,64 
,84,C0,00,02,00,30,CC,00,80,00,02 
1460 DATA 00,50,AO,00,80,00,00,00,00,00,00 
,00,00,00,00,00,00,00,00,00,00,00 
1470 DATA 00,00,00,00,00,00,00,00,00,00,00 
,00,00,00,00,00,00,00,00,00,00,00 
1480 DATA 00,00,00,00,00,00,00,00,40,CO,00 
,00,00,00,00,C0,C0,80,00,00,00,00 
1490 DATA CO,CO,80,00,00,44,CC,CO,CO,80,00 
,14,CC,CC,84,84,80,00,3C,CC,64,84 
1500 DATA 84,80,14,3C,98,CC,84,CO,00,16,00 
,98,CC,00,80,00,02,00,10,88,00,80 
1510 DATA 00,02,00,50,AO,00,00,00,00,00,00 
,00,00,00,00,00,00,00,00,00,00,00 
1520 DATA 00,00,00,00,00,00,00,00,00,00,00 
,00,00,00,00,00,00,00,00,00,00,00 
1530 DATA 00,00,00,40,CO,00,00,00,00,00,CO 
,CO,80,00,00,00,00,CO,CO,80,00,00 
1540 DATA 44,CC,CO,CO,80,00,14,CC,CC,84,84 
,80,00,3C,CC,64,84,84,80,00,3C,CC 
1550 DATA 64,84,CO,00,14,28,CC,64,00,80,00 
,16,00,44.20,00,80,00,02,00,00,20 
1560 DATA 00,00,00,02,00,00,FO,00,00,00,00 
,00,00,00,00,00,00,00,00,00,00,00 
1570 DATA 00,00,00,00,00,00,00,00,00,00,00 
,00,00,00,00,00,CO,80,00,CO,00,40 
1580 DATA CO,CO,00,00,CC,C8,CO,CO,00,44,CC 
,C8,48,48,00,CC,CC,C8,48,48,00,CC 
1590 DATA CC,60,48,80,00,44,CC,20,40,00,00 
,14,6C,20,40,00,00,14,28,20,00,00 
1600 DATA 00,14,28,20,00,00,00,14,28,AO,00 
,00,00,01,03,00,00,00,00,00,00,00 
1610 DATA 00,00,00,00,00,80,00,00,00,00,40 
,CO,00,00,00,00,C0,84,80,00,00,00 
1620 DATA CO,CO,80,00,00,00,CO,48,CO,00,00 
,CC,C0,84,00,00,00,98,C8,CO,00,00 
1630 DATA 44,98,64,00,00,00,44,CC,30,00,00 
,00,44,CC,98,20,00,00,00,9C,28,70 
1640 DATA 00,00,00,14,28,00,00,00,00,14,28 
,00,00,00,00,14,28,00,00,00,00,01 
1650 DATA 03,00,00,00,00,CO,80,00,00,00,40 
,CO,48,00,00,00,40,CO,CO,80,00,00 
1660 DATA 40,CO,OC,00,00,00,00,CO,CO,00,00 
,00,00,44,88,00,00,00,00,CC,64,00 
1670 DATA 00,00,44,CC,64,88,00,00,44,CC,64 
,88,00,00,44,CC,64,88,00,00,00,CC 
1680 DATA 64,00,00,00,00,14,AO,00,00,00,00 
,14,28,00,00,00,00,14,28,00,00,00 
1690 DATA 00,14,28,00,00,00,00,01,03,00,00 
,00,00,40,CO,00,00,CO,84,80,00,CO 
1700 DATA CO,CO,00,CO,84,08,00,40,CO,80,00 
,44,88,00,00,CC,64,00,44,CC,30,88 
1710 DATA 44,CC,98,20,44,CC,CC,20,BO,CC.CC 
,50,00,3C,7C,00,14,3C,FC,00,3C,00 
1720 DATA 54,A8,28,00,00,A0,03,00,00,03,40 
,CO,00,00,CO,84,80,00,CO,CO,CO,00 
1730 DATA CO,84,08,00,40,CO,80,00,00,44,88 
,00,00,CC,64,00,44,98,64,88,44,30 
1740 DATA CC,88,10,64,CC,88,AO,CC,CC,70,00 
,3C,28,00,54,BC,28,00,FC,00,3C,00 
1750 DATA A8,00,14,28,03,00,00,03,00,CO,80 
,00,40,CO,48,00,40,CO,C0,80,40,CO 
1760 DATA OC,00,00,CO,CO,00,00,44,88,00,00 
,CC,64,00,44,CC,64,88,44,CC,64,88 
1770 DATA 44,CC,64,88,00,CC,64,00,00,14,AO 
,00,00,14,28,00,00,14,28,00,00,14 
1780 DATA 28,00,00,01,03,00 
1790 RESTORE lOOO.’FOR a!= 36277 TO 37998: 
READ a$:POKE a!,VAL("&"+a$):NEXT 
1795 SAVE"fitsp.bin",b,36277,1722 
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1000 ' fitmc.bas 

1010 ’ 

1020 DATA 21,4A,90,01,4E,90,CD,Dl,BC,09,00 
,00,00,00,77,90,= 1576 

[741] 

[117] 

[ 3282 ] 

1030 DATA C3,C1,9C,C3,45,9F,C3,£9,9F,C3,38 
,90,03,1A,90,03,= 2535 

[ 2650 ] 

1040 DATA FC,9D,03,BB,9D,03,80,9E,03,56,9E 
,03,7B,9D,03,4E,= 2616 

[2101 ] 

1050 DATA 90,03,02,9D,03,21,9D,4F,50,45,CE 
,59,5A,4F,4F,CD,= 1872 

[2125] 

1060 DATA 57,49,4E,44,4F,D7,53,45,D4,49,4E 
,49,D4,53,43,52,= 1632 

[2557] 

1070 DATA 4F,40,40,55,DO,53,43,52,4F,40,40 
,44,4F,57,CE,58,= 1515 

[3457] 

1080 DATA 5A,4F,4F,CD,47,45,54,41,44,D2,40 
,52,4F,54,41,54,= 1490 

[2130] 

1090 DATA 05,50,4F,D3,47,45,54,53,50,D2,46 
,42,40,4F,43,CB,= 1725 

[3126] 

1100 DATA 00,FE,02,02,F8,90,21,5A,BB,46,05 
,36,09,DD,5E,00,= 2001 

[2900] 

1110 DATA DD,56,01,1A,13,EB,5E,23,56,EB,11 
,00,00,47,CD,77,= 1642 

[1882] 

1120 DATA BC,F5,CD,7A,BC,Fl,CI,21,5A,BB,78 
,77,D2,F8,90,DD,= 2766 

[1879] 

1130 OATA 6E,02,DD,66,03,AF,77,09,DD,6E,02 
,DD,66,03,3E,FF,= 1909 

[2073] 

1140 DATA 77,09,B7,CA,79,AO,FD,2A,DE,Al,FD 
,6E,00,FD,66,OE,= 2396 

[2533] 

1150 OATA DD,5E,00,DD,56,01,03,38,9E,09,21 
,60,Al,22,DE,Al,= 1940 

[1791] 

1160 DATA 09,B7,CA,79,AO,FD,2A,DE,Al,FD,6E 
,00,FD,66,OE,DD,= 2498 

[2411] 

1170 DATA 5E,00,DD,56,01,03,4F,AO,B7,CA,79 
,AO,DD,6E,00,FE , = 2087 

[4050 ] 

1180 DATA OE,D2,80,AO,26,00,11,60,Al,19,22 
,DE,Al,09,FE,02,= 1723 

[2184] 

1190 DATA 02,79,AO,FD,2A,OE,Al,DD,7E,00,FE 
,08,02,72,AO,6F,= 2549 

[2833] 

1200 DATA FD,77,D6,DD,7E,02,FE,50,D2,72,AO 
,67,FD,77,08,CD,= 2633 

[2845 ] 

1210 DATA CA,9F,FD,75,00,FD,74,OE,C9,00,00 
,3E,7E,32,AO,9D,= 1870 

[2415] 

1220 DATA FD,2A,DE,Al,FD, 7E , E4,32,A8,9D,3D 
,FE,50,D2,72,A0,= 2539 

[2103] 

1230 DATA FD,66,08,FD,6E,D6,CD,CA,9F,FD,46 
, F2,05,22, 79,9D,= 2 772 

[3426] 

1240 DATA 7E,FD,77,BA,54,5D,23,01,01,00,OD 
,ED,BO,FD,7E,BA,= 1889 

[2928] 

1250 DATA 12,2A,79,9D,CD,2D,9F,CI,10,E2,09 
,FD,2A,DE,Al,FD,= 2314 

[3046] 

1260 DATA 7E,D6,FD,86,F2,3D,6F,FD,7E,08,FD 
,86,E4,3D,67,CD,= 2 704 

[2946 ] 

1270 DATA CA,9F,54,50,CD,20,9F,EB,FD,46,F2 
.06,00,FD,7E,E4,= 2368 

[2533] 

1280 DATA 32,E6,9D.C5,E5,01,01,00,ED,B8,Dl 
,62,6B,CD,37,9F,= 2119 

[2714] 

1290 DATA 01,10,FO,FD,46,E4,AF, 12 , 1B, 10 , FC 
,09,FD,2A,DE,Al,= 2367 

[2384] 

1300 DATA FD,66,08,FD,6E,D6,CD,CA,9F,54,5D 
,CD,2D,9F,FD,46,= 2607 

[3749] 

1310 DATA F2,OE,00,FD,7E,E4,32,IC,9E,05,E5 
, 01,50,00,ED,BO,= 2019 

[2260] 

1320 DATA Dl,62,6B,CD,2D,9F,CI,10,FO,FD,46 
,E4,AF,12,13,10,= 2051 

[3146] 

1330 DATA FC,09,FD,5E,62,FD,56,70,FD,7E,F2 
,E5,FD,4E,E4,06,= 2764 

[2472] 

1340 DATA 00,ED,BO,El,01,00,08,09,38,05,3D 
,02,3B,9E,09,01,= 1391 

[1871] 

1350 DATA 50,CO,09,03,4A,9E,FE,02,02,79,AO 
,DD,6E,00,DD,66,= 2093 

[3173] 

1360 DATA 01,4E,06,00,23,5E,23,56,D5,1B,EB 
,09,CB,FE,El,CD,= 1706 

[2739] 

1370 DATA D4,BC,D2,80,AO,EB,DD,6E,02,DD,66 
,03,73,23,72,09,= 2257 

[2403] 

1380 DATA FD,2A,OE,Al,FD,7E,E4,FD,66,08,84 
, 67,25,FD,6E,D6,= 2689 

[3177] 

1390 DATA CD,CA,9F,22,04,9F,FD,6E,E4,7D,DO 
,46,00,05,08,05,= 2172 

[3277] 

1400 DATA 28,03,85,10,FD,F5,85,32,08,9F,Fl 
,16,00,5 F,2A,04,= 1828 

[2998] 

1410 DATA 9F, 19,22,06,9F,ED,5B,04,9F,FD, 7E 
,F2,F5,F0,46,E4,= 2675 

[2313] 

1420 DATA DD,4E,00,1A,E6,55,77,OD,20,06,DD 
,4E,00,C3,E7,9E,= 1693 

[2718] 

Listing Joymatte 



1430 DATA CB,27,B6,77,2B,0D,20,03,C3,C3,9E [3697] 
,DD,4E,00,1A,E6,= 1745 

1440 DATA AA.CB,3F,77,OD,28,13,1A,E6,AA,B6 [2613] 
,77,2B,OD,28,03,= 1453 

1450 DATA C3,DE,9E,05,28,11,1B,C3,CO,9E,05 [1768] 
, 28,OA,1B,DD,4E,= 1590 

1460 DATA 00,1A,E6,55,C3,C3,9E,Fl,3D,CA,26 [3257] 
,9F,F5,2A,C6,9F,= 2234 

1470 DATA CD,2D,9F,EB,2A,C4,9F,CD,2D,9F,EB [2350] 
,ED,53,C4,9F,22,= 2394 

1480 DATA C6,9F,Fl,C3,BC,9E,3A,C8,9F,FD,77 [3039] 
,E4,C9,01,00,OB,= 2366 

1490 DATA 09,00,01,50,00,09,09,70,06,08,67 [2040] 
,FE,CO,DO,B7,01,= 1987 

1500 DATA 50,CO,ED,42,09,FE,01,02,79,AO,FD [2784] 
,2A,DE,Al.FD,7E,= 2563 

1510 DATA D6,FD,5E,F2,83,30,32,08,9F,6F,FD [2731] 
,66,C8,CD,CA,9F,= 2636 

1520 DATA 22,04,9F,DD,46,00,FO,7E,F2,05,08 [2383] 
,4F,05,28,03,81,* 1762 

1530 DATA 10,FD,F5,81,ED,4B,08,9F,32,08,9F [3488] 
,Fl,81,6F,FD,66,= 2559 

1540 DATA 08,CD,CA,9F,22,06,9F,FD,46,F2,OE [3091] 
, 00,05,DD,7E,00,= 2280 

1550 DATA 2A,04,9F,ED,5B,06,9F,F5,FD,4E,E4 [2323] 
,AF,47,7A,F6,C0,= 2692 

1560 DATA 57,ED,B0,2A,C6,9F,CD,37,9F,F1,22 [2420] 
,C6,9F,3D,C2,90,= 2349 

1570 DATA 9F,2A,04,9F,CD,37,9F,22,04,9F,CI [3770] 
,10,CF,3A,08,9F,= 2197 

1580 DATA FD,77,F2,09,00,00,00,00,00,00,7D [2108] 
,00,00,5F,54,E6,= 1349 

1590 DATA F8,6F,AF,67,44,4D,29,29,09,29,7B [3062] 
,E6,07,87,87,87,= 1679 

1600 DATA 84,67,4A,09,70,06,CO,67,09,FE,04 [2889] 
,02,79,AO,FD,2A,= 2164 

1610 DATA DE,Al,DD,7E,00,FE,09,D2,72,AO,FD [2597] 
,77,F2,DD,7E,02,= 2632 

1620 DATA FE,51,D2,72,AO,FD,77,E4,DD,7E,04 [2716] 

,FE.C8,D2,72,AO,= 2708 

1630 DATA FD,77,D6,DD,7E,06,FE,50,D2,72,AO [4112] 
,FD,77,08,FD,6E,= 2692 

1640 OATA D6,FD,66,08,F5,CD,CA,9F,Fl,FD,75 [2852] 
,00,FD,74,OE,FD,= 2827 

1650 DATA 4E,E4,81,FE,51,D2,72,AO,FD,4E,F2 [4150] 
,FD,7E,D6,81,FE,= 2803 

1660 DATA 09,D2,72,AO,26,00,60,54,DD,5E,00 [2891] 
,DD,46,02,09,FD,= 1977 

1670 DATA 7E,E4,32,5A,AO,FD,7E,F2,E5,01,04 [2837] 
,00,EB,ED,BO,EB,= 2392 

1680 DATA El,01,00,08,09,38,04,3D,20,EE,09 [2156] 
,01,50,00,09,03,= 1312 

1690 DATA 67,A0,21,8E,A0,CD,E5,A0,C9,21,A5 [2401] 
,A0,CD,£5,A0,C9,= 2546 

1700 DATA 21,B8,AO,CO,E5,AO,09,21,CD,AO,CD [4244] 
, E5,AO,09,56,61,= 2548 

1710 DATA 60,75,65,20,6F,75,74,20,6F,66,20 [2611] 
,73,63,72,65,65,= 1509 

1720 DATA 6E,2E,2E,2E,00,50,61,72,61,60,65 [2780] 
,74,65,72,20,65,= 1310 

1730 DATA 72 , 72,6F, 72,2E,2E,2E,00,56,61,60 [2734] 
,75,65,20,72,61,= 1343 

1740 DATA 6E,67,65,20,65,72,72,6F,72,2E,2E [2816] 

, 2E,00,53, 70,72,= 1347 

1750 DATA 69,74,65,20,64,6F,65,73,6E,27,74 [1780] 
,20,65,78,69,73,= 1519 

1760 DATA 74,2E,2E,2E,00,7E,FE,00,CD,5A,BB [3493] 


,08,23,03,E5,A0,= 1935 

2900 ' [H7] 

2910 MEMORY &9C3F [472] 

2920 ZEILE = 1000 : SCHRITT = 10 [1491] 

2930 ADR = &9C40 : LAST = &A0F0 [1946] 

2940 FOR 1=1 TO 16 [317] 

2950 READ BYTES [603] 

2960 POKE ADR,VAL("&"+BYTE$) [745] 

2970 SUM=SUM+PEEK(ADR) [1499] 

2980 ADR=ADR+1 [392] 

2990 NEXT [350] 


3000 READ CHECKSUM$:CHECKSUM=VAL(MID$(CHEC [3979] 
KSUM$,3)) 

3010 IF SUM< >CHECKSUM THEN PRINT "FEHLER I [ 2 721 ] 
N ZEILE";ZEILE 

3020 IF ADR < LAST THEN SUM = 0:ZEILE = ZEILE + SC [ 22 70] 
HRITT:GOTO 2940 

3030 SAVE"f1tmc.bin",b,40000,&4B1 [1968] 
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CPC-Listingservice 


1. Das abgetippte Programm vor dem ersten Start abspeichern, da 
der Checksummer Maschinensprache enthält. 


Eingabekontrolle für Listings 


für 464-664-6128 


Die Fehlersuche von abgetippten Listings ist manchmal 
eine lästige und nervenaufreibende Sache. Wenn Sie auch 
dieser Meinung sind, dann können wir Ihnen eine Hilfe 
anbieten. 

Auf dieser Seite befinden sich drei Programme, die für jeden CPC- 
Rechner abgestimmt sind. Der “Checksummer“ hilft Ihnen bei je¬ 
der Eingabe von Programmlistings. 

Bevor Sie sich das Programm, das für Ihren Rechner geeignet ist, 
vornehmen, sollten noch einige “Dinge“ beachtet werden: 



2. Um den Checksummer benutzen zu können, genügt es, das Pro¬ 
gramm einmal durch RUN zu starten. Es wird selbständig der Ma¬ 
schinencode eingelesen und aufgerufen. 

3. Jedesmal, wenn die ENTER oder RETURN-Taste gedrückt wird, 
erscheint eine Quersumme der eingegebenen Zeile. Z.B. wenn ohne 
Zeile die ENTER-Taste gedrückt wird, erhalten Sie in eckigen 
Klammem am Ende der Zeile eine < 0 >. Dadurch lassen sich ein¬ 
getippte Listings gleich auf Fehler überprüfen. 

4. Weitere Möglichkeiten: Möchten Sie ein Listing mit dem Check¬ 
summer ausdrucken, so läßt sich auch das bewerkstelligen. Z.B. mit 
lcheck,x,y. Wobei x=Ausgabekanal und y=Zeilennummer ist. Vor 
dem Druck sollte man mit WIDTH x die maximale Breite (x) einer 
Zeile festlegen. Mit Hilfe der RSX-Befehle ON und OFF kann der 
Checksummer ein- bzw. ausgeschaltet werden. 


(Thomas Fippl/cd) 



Version 464 


10 REM *** CHECKSUM 464 ••* [1071] 

20 MEMORY SA4FP (4631 

30 FOR a»«&A500 TO SA607 (903) 

40 READ byteS (603] 

50 PORE a%,VAL("&"+byte$) 19381 

60 NSXT (350) 

70 PRINT (3611 

80 PRINT"CHECKSUM v2" [1533] 

90 CALL &A500:!ON:NEW (978] 

100 : [174] 

110 DATA 21,09.a5,01,0d,a5.c3,dl [1000] 

120 DATA bc,00,00,00,00,18,a5,c3 [757] 

130 DATA 2a,a5,c3,2f.a5,c3,43,a5 [1681] 

140 DATA 4f,ce,4£-46,c6,43,48,45 [1162] 

150 DATA 43.cb,00,00,cf,98.aa,c3 (799) 

160 DATA a8,a5.21.27,>5,18.03,21 [1100] 

170 DATA 24.a5,28,06,cd.00,b9.c3 [1425] 

180 DATA 06,dd,11,3a.bd,01,03,00 [923] 

190 DATA ed.bO.c9,4f.cd.00.b9,Od [1382] 

200 DATA 28,08,0d.20,ea,dd,7e,02 [481] 

210 DATA 18.04,7b,11.01.00.cd,a2 [1665] 

220 DATA cl,cd,a3.e7,e5,4e,23,46 [1294] 

230 DATA 23,5e,23,56.el,78,bl,c8 [1226] 

240 DATA cd,3c.c4.e5,09,e3,cd.63 [1318] 

250 DATA el,21,a4,ac,cd,7a,a5,el [1223] 

260 DATA 18,e2.e5,cd.ba,a5,e3,cd [1468] 

270 DATA 98,a5.cd,96,f2,e3,cd,f6 [973] 

280 DATA a5,cd.4e.e3.el,7e.a7,c8 [738] 

290 DATA cd.98,a5,cd.4e,c3,18.£5 [1601] 

300 DATA 3a,24.ac,d6,08.47,7e,a7 [1761] 

310 DATA c8,cd,45,el,23,10,£7,c9 [1394] 

320 DATA cd,24.a5,£5.c5.d5,e5,cd [1019] 

330 DATA ba,a5.cd.£6.a5,el.dl,el [1941] 

340 DATA fl.c9,eb,lb,af,47,67,6t (1774) 

350 DATA 2f,32.23.>5,13,1s.d6,30 [1279] 

360 DATA 38.04,fe,0a,38,f6,la,13 [1209] 

370 DATA >7.c8,4£,3a,23,a5.al,fe [1573] 

380 DATA 20,28,£3,79.fe,22,20,07 [1570] 

390 DATA 3a,23,a5,2f,32,23,a5,3a (1615) 

400 DATA 23.85,87,79,04,8a,f£,4£ [1826] 

410 DATA ad,07.6f.09.18.d8,3e,20 [791] 

420 DATA cd,5c,c3,3e.5b.cd.5c.c3 [1002] 

430 DATA cd,79,ee,3e,5d.c3,5c,c3 [1170] 


Version 664 


10 REM «•* CHECKSUM 664 [1262] 

20 MEMORY SA4FF [463] 

30 FOR a%=£A500 TO SA607 [903] 

40 READ byteS (603] 

50 POKE a%.VALC'&"-*byteS) [938] 

60 NEXT [350] 

70 PRINT [361] 

80 PRINT“CHECKSUM v2" [1533] 

90 CALL SA500:ION:NEW [978] 

100 : [174] 

110 DATA 21,09,a5,01,0d,a5,c3,dl [1000] 

120 DATA bc,00,00,00,00.18,a5,c3 [757] 

130 DATA 2a,a5,c3.2£,a5,c3,43.a5 [1681] 

140 DATA 4£,ce.4£,46,c6,43.48,45 [1162] 

150 DATA 43,cb.00.00.c£.02,ac.c3 (333) 

160 DATA a8,a5,21,27,a5,18,03,21 [1100] 

170 DATA 24,a5,28,06,cd,00.b9.c3 (1425) 

180 DATA 4C.cb,11,5b.bd,01,03,00 [1095] 

190 DATA ed.bO,c9.4£,cd,00,b9,Od [1382] 

200 DATA 28,08,0d,20,ea,dd,7e,02 [481] 

210 DATA 18.04,7b,11,01,00,cd,a9 [1682] 

220 DATA cl,cd,69,e8,e5,4e,23,46 [1382] 

230 DATA 23,5e.23,56,el,78,bl,c8 [1226] 

240 DATA cd,75.c4,e5,09,e3,cd,59 [798] 

250 DATA e2,21.8a,ac,cd,7a,a5,el [1228] 

260 DATA 18,e2.e5,cd,ba,a5.e3.cd [1468] 

270 DATA 98,a5,cd,58,f3,e3,cd,£6 11104] 

280 DATA a5.cd.9b.c3,el,7e.a7.c8 [1523] 

290 DATA cd,98.a5.cd,9b,c3,18.£5 [1069] 

300 DATA 3a,09,ac,d6,08,47,7e,a7 [1172] 

310 DATA C8,cd,22,e2,23,10,£7,c9 [1848] 

320 DATA cd.24,a5.£5,c5.d5,e5.cd [1019] 

330 DATA ba.a5,cd.£6.a5,el,dl.cl [1941] 

340 DATA £l,c9,cb,lb,a£,47,67,61 [1774] 

350 DATA 2f,32,23,a5,13,1a,d6,30 [1279] 

360 DATA 38,04,fe,0a,38,£6,la,13 [1209] 

370 DATA a7,c8.4£.3a,23.a5,al.fe (1573) 

380 DATA 20,28,f3,79,fe.22.20,07 [1570] 

390 DATA 3a,23,a5,2£,32,23.a5,3a [1615] 

400 DATA 23,a5,a7,79,c4,ab,££,4f [1559] 

410 DATA ad.07,6f,09,18,d8,3e,20 [791] 

420 DATA cd,a3,c3,3e,5b,cd,a3,c3 [1480] 

430 DATA cd.49,ef,3e,5d,c3,a3,c3 [1389] 


Version 6128 


10 REM •** CHECKSUM 6128 •** [945] 

20 MEMORY SA4FF 1463] 

30 FOR a*=&A500 TO SA607 [903] 

40 READ byteS [603] 

50 POKE a*,VAL("S"+byteS> [938] 

60 NEXT [350] 

70 PRINT [361] 

80 PRINT"CHECKSUM v2" [1533] 

90 CALL &A500:!ON:NEW [978] 

100 : (174] 

110 DATA 21,09,a5,01.0d,a5,c3,dl [1000] 

120 DATA bc,00.00,00,00,18,a5,c3 [757] 

130 DATA 2a,a5,c3,2t.a5.c3.43,a5 [1681] 

140 DATA 4f,ce,4£,46,c6,43,48,45 [1162] 

150 DATA 43,cb.00,00,cf,02,ac,c3 [333] 

160 DATA 88,85,21,27,35,18,03,21 [1100] 

170 DATA 24.a5.28,06.cd,00.b9,c3 [1425] 

180 DATA 49,cb,11,5e.bd,01,03,00 (1424] 

190 DATA ed,bO,c9,4£,cd,00,b9,Od [1382] 

200 DATA 28,08,0d.20,ea,dd,7e,02 [481] 

210 DATA 18,04,7b,11,01,00,cd.a6 [1661] 

220 DATA cl.cd,64,e8,eS,4e.23.46 [812] 

230 DATA 23,5e.23,56,el,78,bl.c8 [1226] 

240 DATA cd,72,c4,e5,09,e3,cd,54 [1100] 

250 DATA e2,21,8a.ac,cd,7a,a5,el [1228] 

260 DATA 18,e2,e5,cd,ba,a5,e3,cd [1468] 

270 DATA 98,a5.cd,53.£3,e3.cd,£6 [1107] 

280 DATA a5,cd.98,c3,el,7e,a7.c8 (1357) 

290 DATA cd.98,aS,cd,9B,c3.18.£5 [1651] 

300 DATA 3a,09.ac.d6,08,47,7e.a7 [1172] 

310 DATA c8,cd,ld.e2,23,10,£7.c9 [1782] 

320 DATA Cd.24.a5,f5,c5,d5,e5,cd [1019] 

330 DATA ba.a5,cd,f6,a5,el,dl,cl [1941] 

340 DATA fl.c9.eb,lb,a£,47,67,6f [1774] 

350 DATA 2£,32,23,a5,13.1a.d6.30 [1279] 

360 DATA 38,04 fe.Oa.38,f6,la,13 [1209] 

370 DATA a7,cS,4f,3a.23.a5,al,fe [1573] 

380 DATA 20,28,£3,79,fe,22,20,07 [1570] 

390 DATA 3a,23,a5,2f.32.23.a5,3a [1615] 

400 DATA 23,a5,a7.79,c4.ab,ff,4f [1559] 

410 DATA ad,07,6f,09,18,d8,3e,20 [791] 

420 DATA cd,a0,c3,3e,5b,cd.a0,c3 [1906] 

430 DATA cd,44,ef,3e,5d.c3,a0.c3 [1650] 
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CP/M Intern I 

Eine Einführung in das Betriebssystem CP[M 

Der CPC ist “von Hause aus“ ein BASIC-Rechner. Dieses dient sowohl als 
Programmiersprache wie auch als Betriebssystem. Der JOYCE mit dem 
Programm LOCOSCRIPT gilt als Textverarbeitungsrechner. 


Oft wird dabei übersehen, daß beide voll¬ 
wertige CP/M-Rechner sind. Beim CPC 
läuft die Version CP/M 2.2 auf allen Mo¬ 
dellen mit mindestens einem Disketten¬ 
laufwerk. Auf dem CPC 6128 läuft au¬ 
ßerdem noch die Version 3 (CP/M Plus), 
die auch Verwendung beim Joyce findet. 

CP/M (Control Program for Microcom- 
puters wurde 1973 von Gary Kildall als 
ein Betriebssystem für spezielle Hard¬ 
warekonfigurationen entwickelt. Durch 
glückliche Umstände wurde es 1976 mit 
der Version 1.3 das Betriebssystem für 
Mikrocomputer mit dem Prozessor 8080. 
Damals entstand auch die grundlegende 
Struktur von CP/M. Ein Betriebssystem, 
welches so weit wie irgend möglich hard¬ 
wareunabhängig ausgeführt ist, damit es 
universell auf allen Rechnern mit 8080 
und später auch Z80 CPU eingesetzt wer¬ 
den kann. 

Gründung von 
DIGITAL RESEARCH 

1976 wurde auch die Vertriebsfirma DI¬ 
GITAL RESEARCH gegründet. Es ent¬ 
standen dann weitere Versionen (bis 2.2), 
die insgesamt auf Computertypen von 
fast 100 verschiedenen Herstellern in ei¬ 
ner Stückzahl von weit über 200000 lie¬ 
fen. Weiter entstand ein riesiges Angebot 
von Programmen, welche problemlos 
(gegebenenlälls nach einer kleinen An¬ 
passung) auf allen diesen Computertypen 
lauffähig waren. Der Glanz von Digital 
Research schien unübertreffbar — das 
Elend aber folgte auf dem Fuße. 1982 er¬ 
schien eine ganz neue Version CP/M 3, 
auch CP/M Plus genannt. Das erwarte¬ 
te weltweite Echo aber blieb aus, denn 
ein neuer Stern am Computerhimmel war 
aufgegangen: Der IBM PC mit dem 
16-Bit-Prozessor 8088 (Vorläufer 8086). 
Auch er brauchte (für seine damals be¬ 
scheidenen 64 kByte RAM) ein Betriebs¬ 
system. Das hätte eine CP/M-Version 
von Digital Research werden können. 
Durch eine Verkettung merkwürdiger 
Umstände wurde aber nichts daraus. 
MICROSOFT mit MS-DOS (PC-DOS) 
machte das Rennen. Daran konnten auch 


die nachträglichen Anstrengungen von 
Digital Research (CP/M 86) nichts mehr 
ändern. 

Heute gibt es außer den CPCs und dem 
Joyce keine CP/M-Rechner mehr, und 
dadurch ist auch CP/M selbst nicht mehr 
aktuell. 

Lohnt sich dann überhaupt noch die Be¬ 
schäftigung mit CP/M? Mit Sicherheit, 
wenn Sie Ihren CPC oder Joyce weiter 
betreiben wollen, und das ist doch wohl 
der Fall. 

CP/M ist ein sehr gutes Betriebssystem, 
und es besteht immer noch das große 
Softwareangebot, Wordstar, dBase, Mul¬ 
tiplan, Turbo Pascal, C-Compiler und 
vieles andere. Die Preise sind günstig wie 
nie zuvor. Greifen Sie zu - solange der 
Vorrat reicht. Und denken Sie daran, 
nicht alles, was modern ist, muß deswe¬ 
gen auch besser sein! Wenn Sie CP/M 
noch nicht so genau kennen, so bekom¬ 
men Sie in diesem Beitrag einen Über¬ 
blick über Aufbau und Wirkungsweise — 
mit besonderer Berücksichtigung der 
Verhältnisse beim CPC. Aber auch wenn 
Sie schon Bescheid wissen, werden Sie 
vielleicht das eine oder andere erfahren, 
was Ihnen noch nicht bekannt war. Wer 
tiefer einsteigen will, insbesondere etwa 
Programmierung unter CP/M verstehen 
und vielleicht auch selbst betreiben 
möchte, muß weitere Fachliteratur stu¬ 
dieren. Eine geeignete Auswahl ist am 
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Abb.l: Allgemeine Speicheraufteilung unter dem 
Betriebssystem CP/M 2.2 


Ende des Berichts angegeben. Hinweise 
zur praktischen Handhabung von CP/M 
finden Sie in dem Beitrag “Die residen¬ 
ten und transienten Commands von 
CP/M“. 

Ein Rechner ohne Betriebssystem ist für 
den Benutzer praktisch wertlos. Er will 
zum Beispiel wissen, welche Programme 
er auf einer Diskette zur Verfügung hat, 
und will eines davon starten. Wenn die¬ 
ses Programm läuft, greift es auf die 
Rechnerperipherie wie Tastatur, Bild¬ 
schirm, Drucker und Diskettenlaufwerk 
zu. Wenn diese Arbeiten (und noch an¬ 
dere) mehr rationell erledigt werden sol¬ 
len, so braucht man ein universelles 
Überwachungs- und Steuerprogramm, 
welches einen vernünftigen Rechnerbe¬ 
trieb überhaupt erst ermöglicht. Ein sol¬ 
ches Programm nennt man Betriebssy¬ 
stem. 

Das Betriebssystem CP/M und 

seine Bestandteile 

Dieses muß, wie auch das Anwenderpro¬ 
gramm, im Speicher des Rechners vor¬ 
handen (“resident“) sein, weil ja immer 
wieder darauf zugegriffen wird. Das Be¬ 
triebssystem kann “speicherresident“ im 
RAM — oder auch teilweise im ROM - 
sein. CP/M ist ein solches Systempro¬ 
gramm, und zwar ein Diskettenbetriebs¬ 
system, weil es bei der Inbetriebnahme 
des Rechners von einer Diskette geladen 
wird und weil sich die von ihm “verwal¬ 
teten“ Dateien auf einer Diskette (nicht 
Kassette!) befinden müssen. 

CP/M besteht aus drei Teilen: 

1. Dem CCP (Console Command Pro¬ 
cessor) 

2. Dem BDOS (Basic Disk Operating 
System) 

3. Dem BIOS (Basic Input Output Sy¬ 
stem) 

Im Fall 2 und 3 hat das Wort “Basic“ 
nichts mit der Programmiersprache 
“BASIC“ zu tun, sondern ist sinngemäß 
mit “Basis“ zu übersetzen. Der CCP ist 
die “Benutzeroberfläche“ von CP/M. 
Wenn das System gestartet wird — wir 
werden auf dieses “Booten“, wie es ge¬ 
nannt wird, nocheingehen - und jedes¬ 
mal, wenn ein Programm beendet ist, 
meldet sich CP/M über den CCP durch 
Angabe des “angemeldeten“ Laufwerks 
mit dem folgenden “Prompt“ (Zeichen 
“ > “). Der Cursor dahinter zeigt, daß 
der CCP bereit ist, “Kommandos“ vom 
Benutzer entgegenzunehmen. Das kann 
ein “residentes“ Kommando sein (zum 
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Beispiel “DIR“), welches imCCP “ein¬ 
gebaut“ (also vorgesehen ist) und dann 
sofort ausgeführt wird. Es kann auch ein 
“transientes“ Kommando sein. Dieses 
besteht dann in dem Aufruf eines Pro¬ 
gramms, welches sich auf der angemel¬ 
deten Diskette befindet. Diese Program¬ 
me sind entweder Hilfsprogramme für 
das System - zum Beispiel PIP.COM - 
oder Anwenderprogramme. Ein solches 
Programm wird “transient“, das heißt, 
“vorübergehend“ von der Diskette in den 
dafür vorgesehenen Teil des RAM gela¬ 
den (“TPA“ = Transient Program Area) 
und anschließend ausgeführt. CP/M ist 
mit dem CCP ein Betriebssystem “klas¬ 
sischer Bauart“. Es verlangt Eingaben in 
Textform, hat also keine “grafische Be¬ 
nutzeroberfläche“. Das gilt übrigens auch 
für modernere Betriebssysteme wie MS- 
DOS oder sogar OS/2. Bei diesen gibt es 
dann allerdings Ergänzungsprogramme 
mit grafischen Symbolen und Mausbetä¬ 
tigung. 

Wenn ein transientes Programm gestar¬ 
tet ist, hat der CCP seine Schuldigkeit ge¬ 
tan. Jetzt tritt der Hauptteil von CP/M, 
das BDOS in Aktion. 

BDOS, die Schnittstelle 

Über das BDOS laufen alle Ein- und 
Ausgaben und alle Diskettenzugriffe ei¬ 
nes Programms. BDOS ist also “Schnitt¬ 
stelle“ (das ist die etwas unglückliche 
Übersetzung für “interface“ zwischen 
Programm und Betriebssystem). Diese 
Operationen werden durch standardisier¬ 
te Befehlsfolgen, die sogenannten 
“BDOS-Funktionen“, ausgeführt. In je¬ 
dem CP/M-Programm ist dann also die 
Ausgabe eines Zeichens auf dem Bild¬ 
schirm oder der Zugriff auf eine Disket¬ 
tendatei in genau gleicher Weise pro¬ 
grammiert. 

Das BIOS 

Die Hardware der einzelnen Rechnerty¬ 
pen ist aber durchaus unterschiedlich. 
Die Ansteuerung von Tastatur, Bild¬ 
schirm und Drucker erfolgt über Ports 
(oder auch Speicherstellen) mit den ver¬ 
schiedensten Adressen. Der Zugriff auf 
Diskettenlaufwerke geschieht über einen 
FDC (Floppy-Disk-Controller), von dem 
es auch die verschiedensten Typen gibt. 
Kurz und gut, allein mit einem universel¬ 
len BDOS ist es nicht getan. Man benö¬ 
tigt noch eine weitere Schnittstelle zwi¬ 
schen BDOS und Hardware — nämlich 
das BIOS. CCP und BDOS sind also für 
alle CP/M-Computer (mit 8080 bezie- 
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hungsweise Z80 CPU) einheitlich pro¬ 
grammiert, während das BIOS vom Her¬ 
steller an die Hardware angepaßt werden 
muß. Damit die Universalität von CP/M 
gewahrt bleibt, muß sich auch der Über¬ 
gang vom BDOS zum BIOS in einer fest¬ 
gelegten Weise abspielen. Während das 
Anwenderprogramm die erforderlichen 
BDOS-Funktionen aufruft, ruft seiner¬ 
seits BDOS durch standardisierte Be- 
tehlsfolgen die “BIOS-Routinen“ auf. 
Diese Aufrufe erfolgen über die soge¬ 
nannte “BlOS-Sprungleiste“. Im BIOS 
finden wir auch eine Reihe von Tabellen, 
in denen die Kenndaten für das verwen¬ 
dete Diskettenformat festgehalten sind. 
Dazu gehört zum Beispiel der DPB 
(Disk-Pärameter-Block). Wir können uns 
das Zusammenwirken von CP/M und 
Anwenderprogramm an einem “Schalen¬ 
modell“ vorstellen: Die äußerste Schale 
ist der CCP, der an seiner “Oberfläche“ 
(über Tastatur und Bildschirm) mit dem 
Benutzer korrespondiert. Die erste innere 
Schale ist das vom Benutzer aufgerufene 
Anwenderprogramm. 

Darunter liegt als zweite innere Schale 
das BDOS, welches über seine Oberflä¬ 
che (BDOS-Funktionen) mit dem An¬ 
wenderprogramm korrespondiert. Unter 
dem BDOS liegt als dritte innere Schale 
das “allgemeine BIOS“, welches wieder¬ 


um über seine Oberfläche (BIOS- 
Sprungleiste) mit dem BDOS verkehrt. 
Der innerste Kern schließlich ist das “in¬ 
dividuelle“ BIOS, der Teil, der mit der 
Rechner-Hardware verkehrt. Durch diese 
Grundkonzeption von CP/M wird er¬ 
reicht, daß nur der innere BIOS-Kem für 
den einzelnen Rechner angepaßt pro¬ 
grammiert werden muß, während alles 
andere einheitlich ist. Dadurch ist auch 
gewährleistet, daß ein CP/M-Anwender- 
programm grundsätzlich auf allen 
CP/M-Rechnem lauffähig ist. 

Auf diese Weise hat CP/M Ruhm, Anse¬ 
hen und seine außerordentliche Verbrei¬ 
tung gefunden. Außerdem ist das Kon¬ 
zept so gut, daß es von allen folgenden 
Betriebssystemen im Prinzip übernom¬ 
men wurde. Um eine unkontrollierte Ver¬ 
breitung zu vermeiden, wurden von 
Digital Research CCP und BDOS nur un¬ 
ter strengen Lizenzen an die Computer¬ 
hersteller weitergegeben. Lediglich für 
die individuelle BIOS-Anpassung wur¬ 
den Vorschläge und Listings veröffent¬ 
licht. Allerdings haben die Hersteller 
dann ihre BlOS-Versionen meist wieder 
als strenges Geheimnis gehütet. Wer da¬ 
gegen heute kommentierte Listings von 
CCP und BDOS veröffentlicht (für die 
Version 2.2 ist dies bereits geschehen), 
muß kaum eine Intervention von Digital 
Research befürchten. 

CP/M im Speicher 

CP/M ist speicherresident, wie wir ge¬ 
hört haben, und Abbildung 1 zeigt, wie 
das bei einem CP/M-Rechner mit der 
Version 2.2 prinzipiell aussieht. Die 
CPU kann maximal 64 kByte adressie¬ 
ren, und dann liegt das obere Speicheren¬ 
de bei FFFF (alle Adressenangaben he¬ 
xadezimal). Das BDOS hat eine Länge 
von 14 pages, der CCP eine Länge von 8 
pages (1 page = 256 Bytes). Das BIOS 
ist individuell programmiert und hat kei¬ 
ne feste Länge. Ein typischer CP/M- 
Computer hatte zum Beispiel ein BIOS 
von 4 kByte = 16 pages. Dann wird 
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BlOSanfang = F000 FBASE = E200 
CBASE = DAOO. 

Wozu dient die “Zeropage“? 

Die BDOS-Funktionen werden vom An¬ 
wenderprogramm aufgerufen. Da aber 
(wegen der unterschiedlichen Länge des 
BIOS) das BDOS keine festen Adressen 
im Speicher belegt, kann dieser Aufruf 
nicht direkt durch einen Sprung in das 
BDOS erfolgen. Er wird indirekt über 
eine feste Adresse in der Zeropage (0005) 
geführt. 

Eine weitere wichtige Adresse in der 
Zeropage ist 0000. Über diese Adresse 
wird ein Sprung zu der BIOS-Routine 
“Warmboot“ ausgeführt. Der Aufruf er¬ 
folgt üblicherweise nach Beendigung ei¬ 
nes transienten Programms. Dabei wird 
der CCP (bei der Version 2.2 auch das 
BDOS) neu in den Speicher geladen und 
CCP gestartet. 

Warum wird der CCP 
neu geladen? 

Während der Ausführung eines transien¬ 
ten Programms können keine CP/M- 
Kommandos mehr eingegeben werden. 
Der Benutzer kann nicht mehr mit dem 
Betriebssystem, sondern nur noch mit 
dem laufenden Programm über entspre¬ 
chende BDOS-Funktionen kommunizie¬ 
ren. Der CCP wird für diesen Zeitraum 
nicht benötigt, und sein Speicherplatz 
kann vom transienten Programm genutzt 
und dabei überschrieben werden. Daher 
erfolgt sicherheitshalber immer das 
Nachladen. Mit dem weiteren Inhalt der 
Zeropage- (Sprungadressen-) Tabellen 
wollen wir uns hier nicht befassen. 

Die TPA von CP/M 

Die oben erwähnte TPA beginnt immer 
bei 0100. Hierhin wird jedes unter CP/M 
laufende Programm durch den CCP ge¬ 
laden und ab Adresse 0100 gestartet. Die 


TPA kann sich sicher bis CBASE er¬ 
strecken. Wenn der CCP während dem 
Ablauf eines Programms überschrieben 
wird, kann sich die TPA sogar bis 
FBASE erstrecken. In unserem Beispiel 
hat sie damit eine Größe von E200 - 0100 
= E100 Bytes, das sind (E=14 14 x 4 = 
54 kByte plus 1 page, das heißt 54 1/4 
kByte. Beim CPC sieht die Speicherbe¬ 
legung unter CP/M 2.2 leider viel ungün¬ 
stiger aus (Abbildung 2). FBASE ist 
9F00 und die TPA hat die Größe 9F00 - 
0100 = 9E00 Bytes, das sind 9 x 4 = 36 
kByte plus 14 pages (3 1/2 kByte), das 
heißt 39 1/2 kByte. Das ist so wenig, daß 
kaum ein Anwenderprogramm darin 
läuft. (Es gibt einige Ausnahmen, zum 
Beispiel der gute alte Wordstar). 

Der CPC ist von Hause aus als grafikfa- 
higer BASIC-Rechner konzipiert. Er be¬ 
sitzt daher ein 16 kByte großes “Video- 
RAM“, da jedes “Pixel“ des Bildschir¬ 
mes mindestens durch ein Bit angespro¬ 
chen werden muß. Das eigentliche 
“BASIC“ (also das Interpretierpro¬ 
gramm ist in einem ROM von ebenfalls 
16 kByte enthalten). Das Betriebssystem, 
welches ja auch ein BASIC-Rechner 
benötigt, ist in einem weiteren ROM von 
16 kByte enthalten. Berücksichtigt man, 
daß ROM-Programme immer noch zu¬ 
sätzliche RAM brauchen, so bleibt, wenn 
man den oben genannten Speicherbedarf 
addiert, für die BASIC-Anwenderpro- 
gramme praktisch nichts übrig. 

Was ist die Ursache für diese 

kleine TPA? 

Die AMSTRAD-Entwickler haben sich 
daher einer Technik bedient, die auch bei 
anderen Mikrocomputern schon lange 
verwendet wurde. Es handelt sich um das 
sogenannte “Bankswitching“ oder 
“Blockswitching“. Die CPU kann nur ei¬ 
nen Gesamtspeicher von 64 kByte adres¬ 
sieren. Man kann aber einzelne Speicher¬ 
bereiche (RAM oder ROM) “ausblen¬ 


den“ und dafür andere Bereiche gleicher 
Größe (ebenfalls RAM oder ROM) “ein¬ 
blenden“. Diese Bereiche haben beim 
CPC eine einheitliche Größe von 16 
kByte. Man nennt sie “Blöcke“ (daher 
“Blockswitching“). Die gesamten jeweils 
adressierten 64 kByte bilden eine “Spei¬ 
cherbank“. Nach dem Ausblenden alter 
und dem Einblenden neuer Blöcke adres¬ 
siert der Prozessor dann eine neue Spei¬ 
cherbank (daher “Bankswitching“). Die¬ 
se umschaltbaren Speicherblöcke tau¬ 
chen neuerdings auch bei den MS- 
DOS-Rechnem auf, wo sie vielfach 
“caches“ genannt werden. Einige Auto¬ 
ren übersetzen dies mit “Kacheln“, was 
zwar ähnlich klingt, aber leider falsch ist. 
Softwaremäßig wird das Blockswitching 
vom Systemprogramm aus veranlaßt. Die 
hardwaremäßigen Voraussetzungen, (die 
zusätzlichen) Speicherblöcke und eine 
entsprechende Umschaltlogik müssen 
natürlich vorhanden sein. Das laufende 
Anwenderprogramm darf von der Um¬ 
schaltung natürlich nichts merken. Um 
das zu erreichen, muß einiges beachtet 
werden: Das umschaltende Programm 
(eine Routine des Betriebssystems) darf 
sich natürlich nicht selbst wegschalten. 
Es muß daher in einem Speicherbereich 
liegen, der auch nach dem “Switching“ 
erhalten bleibt. Dieser Speicherbereich, 
der allen “Banks“ gemeinsam angehört, 
heißt “COMMON AREA“. Weiter wird 
ein Anwenderprogramm, welches in ei¬ 
nem “ausgeblendeten“ Speicherblock 
liegt, einen “Stack“ besitzen, auf dem 
Rückkehradressen und gegebenenfalls 
auch Variable gespeichert sind. Dieser 
Stack ist nach dem Ausblenden nicht 
mehr greifbar. Nach dem “Einblenden“ 
des Blockes muß er natürlich wieder da 
sein. Es ist also ein “Stack Saving“ erfor¬ 
derlich, was normalerweise folgender¬ 
maßen geschieht: 

Der Stackpointer für das ausgeblendete 
Programm wird gespeichert. Für die 
Routinen im eingeblendeten Block wird 
ein neuer Stack eingerichtet. Wenn die¬ 
se beendet sind, ist auch der neue Stack 
“abgearbeitet“. Dann kann der alte Stack¬ 
pointer wieder hergestellt und zurückge¬ 
schaltet werden. Abbildung 3a zeigt, wie 
der Speicher beim CPC unter BASIC 
aussieht. Bei der ursprünglichen Konfi¬ 
guration war nur ein Kassettenlaufwerk 
angeschlossen. Für seine “Versorgung“ 
sind Routinen im “unteren System- 
ROM“ vorgesehen. Schließt man ein 
Diskettenlaufwerk an, so braucht man 
eine größere Anzahl weiterer Routinen, 
die in einem “DOS“ (Disk Operating Sy¬ 
stem) zusammengefaßt sind. Amstrad hat 
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Abb.4: Allgemeine 
Speicheraufteilung 
bei CP/M Plus 
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dafür ein eigenes ROM entwickelt 
(AMSDOS-ROM), welches bei Bedarf 
im Adreßbereich C000 bis FFFF (an 
Stelle des BASIC-ROMs) eingeblendet 
werden kann. Für ein VORTEX-Lauf- 
werk gibt es das VDOS-ROM im glei¬ 
chen Adreßbereich. Bei der Installation 
von CP/M auf dem CPC war nun — wie 
üblich — vom Hersteller ein BIOS zu er¬ 
stellen. Der Einfachheit halber haben die 
Amstrad-Entwickler dabei das vorhande¬ 
ne AMSDOS und das “untere System- 
ROM“ mitverwendet. Für die “BIOS- 
Sprungleiste“ und die erforderlichen Ta¬ 
bellen war dann noch ein gewisser RAM- 
Bereich erforderlich, und als Ergebnis er¬ 
hielt man — als Folge der eingesparten 
Programmierarbeit - die Speicherauftei¬ 
lung von Abbildung 3b. Die Ursachen für 
die zu kleine TPA sind damit erläutert. 
Was kann man dagegen tun? Will man die 
TPA vergrößern, so braucht man auf je¬ 
den Fall zusätzliches RAM. Da der 
Adreßbereich des Prozessors ohnehin 
nicht ausreicht, muß man mit einem wei¬ 
teren Block- beziehungsweise Bankswit¬ 
ching arbeiten, um das Zusatz-RAM bei 
Bedarf ein- und auszublenden. Man kann 
nun die CP/M-Version 2.2 beibehalten 
und das BIOS so erweitern, daß von dort 
das zusätzliche Bankswitching durchge¬ 
führt werden kann. Eine solche Metho¬ 
de wurde früher bereits bei verschiede¬ 
nen CP/M-Rechnem angewandt. Für den 
CPC gibt es die Speichererweiterung der 
Firma VORTEX, die nach diesem Prin¬ 
zip funktioniert. Man erhält hardware¬ 
mäßig Zusatz-RAM und softwaremäßig 
ein entsprechendes BIOS. Damit ergibt 
sich eine TPA von etwa 60 kByte, auf der 
praktisch alle CP/M-Programme (unter 
der Version 2.2 laufen). 

Man kann aber auch — wenn die hard¬ 
waremäßigen Voraussetzungen vorhan¬ 
den sind — die bereits 1982 entwickelte 


neue Version 3 des CP/M (CP/M Plus) 
verwenden. Bei ihr ist eine TPA-Erwei- 
terung mit der Methode des Bankswit¬ 
ching im Systemprogramm vorgesehen. 

Abbildung 4 zeigt die allgemeine Spei¬ 
cheraufteilung bei CP/M Plus. Bank 1 ist 
die TPA- oder Anwenderbank. Sie enthält 
die Zeropage und eine TPA von minde¬ 
stens 60 kByte, in welche die transienten 
Programme geladen werden. Darüber 
befindet sich nicht mehr das ganze Be¬ 
triebssystem (wie bei der Version 2.2), 
sondern nur noch ein kleiner Teil vom 
BIOS und BDOS. Der CCP ist nicht 
mehr unterhalb des BDOS, sondern wird 
wie ein transientes Programm ab 0100 in 
die TPA geladen und dort dann vom An¬ 
wenderprogramm überschrieben. (An 
seine Stelle ist unterhalb des BDOS ein 
kleiner Programmlader getreten.) 

Die in Bank 1 befindlichen Teile des Be¬ 
triebssystems sind resident und befinden 
sich daher in der COMMON AREA. Im 
BDOS-Teil sind die Einsprünge für die 
BDOS-Funktionen, im BIOS-Teil die 
Sprungleiste, die Disk-Parameter und die 
Funktionen zur Ansteuerung der Hard¬ 
warelogik für das Bankswitching unter¬ 
gebracht. Die Common Area muß natür¬ 
lich mindestens so groß sein, daß all diese 
residenten Programme darin Platz haben. 


Meist ist sie noch etwas größer, so daß 
sich auch noch ein Teil der TPA darin be¬ 
findet, was weiter nicht stört (übliche 
Größe beim CPC und Joyce ist 16 kByte). 
Wenn nun vom Anwenderprogramm eine 
BDOS-Funktion aufgerufen wird, so er¬ 
folgt normalerweise vom residenten Teil 
des Systems (in der Common Area) eine 
Umschaltung auf Bank 0 (Systembank). 
Hier sind alle restlichen Teile des Sy¬ 
stems (BDOS und BIOS vorhanden und 
das Anwenderprogramm kann entspre¬ 
chend “bedient“ werden. Danach wird 
wieder auf Bank 1 zurückgeschaltet. Die¬ 
ses Konzept des Bankswitching mit einer 
Common Adress am oberen Ende des 
Speichers ist kennzeichnend für CP/M 
Plus. Es können noch weitere Speicher¬ 
bänke vorhanden sein (insgesamt sech¬ 
zehn Stück), die dann zum Beispiel als 
RAM-Disk verwendet werden (Joyce). 
Meist wird in einer dieser Bänke der 
CCP untergebracht. Wenn dieser bei ei¬ 
nem Warmboot dann neu geladen wird, 
so geht das von der Speicherbank aus na¬ 
türlich viel schneller als von der Diskette. 
Abbildung 10 zeigt die Speicherauftei¬ 
lung von CP/M Plus auf dem CPC 6128. 
Dieser Rechner hat bereits ein RAM von 
zweimal 64 kByte und eine hardwaremä¬ 
ßige Bankumschaltlogik, so daß hier 
CP/M Plus installiert werden kann. Das 
Umschaltkonzept von CP/M Plus ist an¬ 
ders als das AMSTRAD-Konzept bei 
BASIC und CP/M 2.2 (vergleiche dazu 
Abbildung 3b und 4). Für CP/M Plus ist 
eine Common-Adress im Bereich C000 
bis FFFF erforderlich, so daß das AMS- 
DOS-ROM hier nicht verwendet werden 
kann. Daher mußten die AMSTRAD- 
Programmierer neue Disketten-Routinen 
für CP/M Plus erstellen die im RAM der 
Bank 0 untergebracht sind. Für den Sach¬ 
kundigen hat das den großen Vorteil, daß 
er BIOS-“Patches“ bei Bedarf leicht aus¬ 
führen kann. Die Systemroutinen im un¬ 
teren ROM (0000 bis 3FFF werden auch 
unter CP/M Plus verwendet, denn von 
der Systembank aus kann dieses ROM je¬ 
derzeit ein- und ausgeblendet werden. 
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Abb.öa: CP/M-Directory (AMSDOS-Systemformat) 
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Abb.öb: CP/M-Directory. Die Datei ED.COM wurde mit ERA gelöscht 


Beim Joyce gibt es übrigens kein solches 
ROM. Daher müssen dort die BIOS- 
Routinen im RAM wesentlich umfangrei¬ 
cher sein. Für die CPC-464-Besitzer gibt 
es eine Speichererweiterung von der Fir¬ 
ma dk’tronics, welche die für CP/M Plus 
erforderliche Hardwarelogik besitzt. Das 
gilt aber nicht für die VORTEX-Erwei- 
terung. 

Die Disketten unter CP/M 

Wir haben gesehen, daß sich CCP und 
BDOS sowie auch Teile des BIOS im 
RAM-Speicher befinden. Sie werden von 
einer CP/M-Systemdiskette dorthin ge¬ 
laden. Wie das im einzelnen geschieht, 
werden wir noch erfahren. Zunächst wol¬ 
len wir uns allgemein mit den Disketten 
unter CP/M etwas näher befassen. CP/M 
ist ein “single user“- und “single task“- 
Betriebssystem. Das heißt, zu gleicher 
Zeit kann nur ein Benutzer an einer Auf¬ 
gabe (praktisch also an einem Pro¬ 
gramm) arbeiten. Es ist auch nur ein 
Laufwerk “angemeldet“, auf welches 
CP/M zugreift. Soll auf ein anderes 
Laufwerk zugegriffen werden, so muß es 
vom Benutzer (eventuell auch durch das 
laufende Programm) angemeldet werden. 
Zu jedem Laufwerk gehören Tabellen - 
vor allem die DPBs (Disk-Parame- 
ter-Blöcke) die sich im BIOS befinden. 
Damit stellt sich das Betriebssystem bei 
der Anmeldung eines Laufwerks auf das 
Diskettenformat ein, welches dort verar¬ 


beitet wird. Dieses kann auf den einzel¬ 
nen Laufwerken durchaus verschieden 
sein. Gleichzeitig wird bei der Anmel¬ 
dung “Login“ eines Laufwerks noch eine 
“Belegungstabelle“ der gesamten Disket¬ 
te und eine Prüfsumme über das Inhalts¬ 
verzeichnis “Directory“ erstellt. Das 
sind Schutzmaßnahmen gegen einen ver¬ 
sehentlichen Diskettenwechsel. Würde 
dieser nämlich unkontrolliert stattfinden, 
so würde — da das Directory der neuen 
Diskette mit dem der alten nicht überein¬ 
stimmt - ein Schreibzugriff nach dem 
alten Muster im Directory ausgeführt. 
Dabei würden sicherlich vorhandene Da¬ 
teien zerstört werden. Aus diesem Grund 
wird die Directory-Prüfsumme immer 
vorher kontrolliert. Erkennt CP/M einen 
Diskettenwechsel, so sperrt es bei der 
Version 2.2 den Schreibzugriff. 

Daher müssen - bei CP/M 2.2 — Dis¬ 
kettenwechsel durch ein neues Login dem 
System immer mitgeteilt werden. Das 
kann sich gelegentlich sehr unangenehm 
auswirken. Man hat zum Beispiel eine 
mühsam erstellte, größere Datei im Spei¬ 
cher und stellt dann fest, daß der Platz auf 
der Diskette für eine Speicherung nicht 
mehr ausreicht. Sowohl bei einem 
“heimlichen“ Diskettenwechsel als auch 
bei einem neuen login wird das laufende 
Programm mit einem Warmstart abge¬ 
brochen, und die Daten im Speicher sind 
normalerweise futsch, wenn man sie 
nicht durch besondere Tricks noch retten 
kann. 
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Abb. 6c:Gleiches 
Directory, mit der ge¬ 
speicherten Datei 
TEST.TST 


Abb.öd: Directory auf 
der gleichen CP/M- 
Diskette mit der 
Datei TEST1.TST 


Hier hilft CP/M Plus. Bei dieser Version 
führt der vom System erkannte Disketten¬ 
wechsel automatisch zu einem neuen 
Login, und alles ist gerettet. Eine Disket¬ 
te besteht physikalisch aus Zylindern 
und Sektoren. Die Sektoren können sich 
nur auf der Vorderseite des Zylinders 
oder zusätzlich auch auf seiner Rückseite 
befinden. Die Größe eines “physikali¬ 
schen“ Sektors ist bei den einzelnen For¬ 
maten verschieden. Beim CPC und Joyce 
beträgt sie immer 512 Bytes. Logisch - 
aus der Sicht von CP/M — besteht die 
Diskette aus Spuren und Sektoren. 
Wenn sich auch auf der Rückseite Sekto¬ 
ren befinden, dann kann eine logische 
Spur auf der Vorderseite beginnen und 
sich auf der Rückseite fortsetzen. Sie 
kann aber auch nur eine Seite eines Zy¬ 
linders umfassen. Auf der anderen Sei¬ 
te ist dann eine andere Spur. Jede logi¬ 
sche Spur enthält eine bestimmte Anzahl 
von logischen (oder auch CP/M-) Sek¬ 
toren mit einer Größe von 128 Bytes. Im 
Verkehr mit einem Programm sieht 
BDOS nun die Diskette noch etwas an¬ 
ders, nämlich als ein Speichermedium, 
auf dem sich zusammenhängende Infor¬ 
mationen in Form von Dateien (“Files“) 
befinden. Jede Datei hat einen Namen, 
unter dem sie von CP/M erfaßt wird. (Bis 
zu 8 Zeichen und zusätzlich noch wahl¬ 
weise bis zu 3 Zeichen für einen Datei¬ 
typ.) Für die Verwaltung der Dateien teilt 
BDOS die Diskette in Blöcke (Allocation 
Blocks) auf. Die Länge eines solchen 
Blocks ist bei den einzelnen Formaten 
verschieden. Bei AMSDOS 1 kByte, bei 
VORTEX 4 kByte. BDOS vergibt den 
Diskettenplatz nur blockweise, so daß 
eine Datei immer ganze Blöcke belegt, 
auch wenn die tatsächliche Länge kleiner 
ist. Im Directory, am Anfang der Disket¬ 
te, sind alle Dateien aufgelistet. Neben 
dem Namen sind die Länge und die von 
der Datei auf der Diskette belegten 
Blöcke angegeben. Jeder Eintrag umfaßt 
32 Bytes. 

Die ersten sechzehn Bytes enthalten Na¬ 
men und Typ sowie einige wichtige Sy¬ 
stemdaten. Die nächsten sechzehn Bytes 
enthalten die Nummern der belegten 
Blöcke — üblicherweise ein Byte pro 
Blocknummer. Damit beträgt die Datei- 
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länge pro Eintrag bei AMSDOS 16 x l — 
16 kBytes, bei VORTEX 16 x 4 - 64 
kBytes. Ist die Datei länger, so werden 
weitere Einträge unter demselben Datei¬ 
namen benötigt. Eine entsprechende 
Kennzeichnung sagt dem System, daß es 
sich um die gleiche Datei handelt. 

Der Datentransfer zwischen Diskette und 
Anwenderprogramm erfolgt über be¬ 
stimmte BDOS-Funktionen. Für diesen 
Transfer wird die Datei in einzelne Sät¬ 
ze “records“ mit einer Länge von 128 
Bytes aufgeteilt. Das entspricht der Län¬ 
ge eines CP/M-Sektors. Dem BDOS 
muß dann der Dateiname übergeben wer¬ 
den. Soll nicht die ganze Datei von An¬ 
fang an, also sequentiell, verarbeitet wer¬ 
den, so muß auch noch die gewünschte 
Satznummer genannt werden. Mit Hilfe 
der Directory-Einträge berechnet BDOS 
daraus die logische Spur und den logi¬ 
schen Sektor. Diese Werte werden an das 
BIOS weitergegeben, als Parameter über 
die BlOS-Sprungleiste. Der an die Hard¬ 
ware eng angepaßte Teil des BIOS muß 
daraus dann die “physikalischen“ Werte 
ermitteln. Diese Daten werden dem FDC 
(Floppy-Disk-Controller) übergeben, 
und damit wird das Laufwerk angesteu¬ 
ert. Das Directory befindet sich am “lo¬ 
gischen“ Anfang der Diskette. Hier be¬ 
ginnt auch die Numerierung der Blöcke, 
das heißt, das Directory belegt immer 
Block 0. (Bei Bedarf noch weitere 
Blöcke.) Den “physikalischen“ Anfang 
der Diskette bilden die “Systemspuren“ 
Im ersten Sektor der ersten Spur (Spur 0) 
befindet sich ein “Bootprogramm“ (von 
dem wir gleich noch mehr hören wer¬ 
den). Dann folgt allerdings nur bei der 
Version 2.2 das eigentliche Betriebssy¬ 
stem BIOS und BDOS. Insgesamt sind 
bei einem normalen CP/M-Rechner drei 
bis vier Spuren als Systemspuren belegt. 
Beim CPC ist es etwas günstiger, weil der 
größte Teil des BIOS bereits im ROM 
vorhanden ist. Für die vorhandenen zwei 
Systemspuren ergibt sich folgende Bele¬ 
gung (für die Version 2.2): Spur 0, Sek¬ 


tor 1 = Bootprogramm. Sektor 2 = ver¬ 
kürztes BIOS. Sektor 3 bis 7 = unbenutzt. 
Spur 0, Sektor 8 bis 9, und Spur 1, Sek¬ 
tor 1 bis 2 = CPC. Spur 1 Sektor 3 bis 9 
= BDOS. Bei der Version 3 (CP/M Plus) 
ist das Betriebssystem so umfangreich ge¬ 
worden, daß es sich nicht mehr in den Sy¬ 
stemspuren unterbringen läßt. Es befin¬ 
det sich in einer eigenen Datei (System¬ 
file) im Datenteil der Diskette und ist da¬ 
her auch - wie alle anderen Disketten¬ 
dateien — im Directory aufgeführt. 
(Beim CPC 6128 hat das Systemfile 
die Bezeichnung C10CPM3.EMS 
“EMS “-Datei). Auf der Spur 0 befindet 
sich jetzt nur das Bootprogramm (Ver¬ 
sion 3 im Sektor 1). Der Rest der System¬ 
spuren ist leer, was eigentlich eine Ver¬ 
schwendung von Diskettenplatz bedeutet. 
Bei MS-DOS ist das übrigens besser or¬ 
ganisiert. 

Das Booten von CP/M 

Wir wissen jetzt, wo sich das Betriebssy¬ 
stem auf der Diskette befindet, und müs¬ 
sen nun noch erläutern, wie es von dort 
in den Speicher geladen wird. Nach dem 
Einschalten des CPC ist bekanntlich das 
BASIC-ROM aktiviert. Unter BASIC 
kann man Maschinenprogramme im 
RAM oder in einem ROM als sogenannte 
RSXs (Resident System eXtensions) auf- 
rufen. Ein solches RSX ist auch CPM — 
eine Routine im AMSDOS-ROM. Die¬ 
se ROM-Routine ist ein sogenannter 
“Bootstrap“ . Er liest von einer System¬ 
diskette den ersten Sektor der ersten Spur 
in das RAM. Dieser Sektor enthält ein 
sogenanntes “Bootprogramm“, welches 
anschließend gestartet wird. Das Boot¬ 
programm lädt dann BIOS und BDOS in 
das RAM, bei der Version 2.2 aus den 
Systemspuren, bei der Version 3 (CP/M 
Plus) als “EMS-Datei“. Dann wird die 
BIOS-Routine “Coldboot“ gestartet, 
welche Tabellen, Sprungleisten und vie¬ 
les andere initialisiert. Zu guter Letzt 
folgt dann “Warmboot“, wodurch der 


CCP geladen wird und das System sich 
mit dem “Prompt“ melden kann. 
Besitzt der Rechner kein BASIC-ROM — 
wie zum Beispiel der JOYCE — so hat er 
lediglich ein kleines “Bootstrap-ROM“. 
Diese Bootstrap-Routine wird beim Ein- 
schalten automatisch (oder durch eine be¬ 
stimmte Tastenkombination) gestartet, 
und dann läuft alles andere wie be¬ 
schrieben. 

Den gesamten Rechnerstart nennt man 
dann “Booten“ oder auch “Coldboot“ — 
im Gegensatz zum (darin enthaltenen) 
“Warmboot“. Was aber haben die 
“Boots“, also die Stiefel, dabei zu su¬ 
chen? Erfunden wurden diese Bezeich¬ 
nungen von den Pionieren der Computer¬ 
technik, die dabei an eine alte Redensart 
aus der Cowboyzeit angeknüpft haben. 
Die Stiefel hatten damals große Schlau¬ 
fen, damit man sie besser anziehen konn¬ 
te. Das waren die “Bootstraps“. Ein 
“Tausendsassa“ brachte es nun sogar fer¬ 
tig, sich an seinen eigenen Bootstraps in 
die Höhe zu ziehen. Für unsere Pionie¬ 
re — die das Staunen noch nicht verlernt 
hatten - war der Start eines Rechners ein 
durchaus vergleichbares Kunststück. Da¬ 
mit wollen wir unseren Überblick über 
CP/M beenden. Einiges über die prakti¬ 
sche Handhabung von CP/M-Komman- 
dos finden Sie in dem Beitrag “Die resi¬ 
denten und transienten Kommandos von 
CP/M“. Auf die angeführte Fachliteratur 
sei nochmals hingewiesen. 

Sie sollten sich übrigens unbedingt eine 
CP/M-Systemdiskette mit einem Disket¬ 
tenmonitor ansehen. Monitor-Program¬ 
me sind mehrfach schon in der PCI ver¬ 
öffentlicht worden. Es sind allerdings al¬ 
les BASIC-Versionen, die nicht unter 
CP/M laufen. Sie können damit aber 
ohne weiteres auch eine CP/M-Diskette 
untersuchen. Ein ausgezeichneter Disk- 
Monitor, der unter CP/M 2.2 und CP/M 
Plus läuft, ist das Programm DU.COM, 
welches Sie als Public-Domain-Softwa- 
re sehr preisgünstig erhalten. (Siehe Test¬ 
bericht in PCI 11/88, S. 54/55.) 


CP/M Intern II 

Die residenten und transienten 
Commands von CP/M 


In diesem Beitrag finden Sie Hinweise 
für den praktischen Umgang mit CP/M 
auf dem CPC. Und zwar für beide dort 
laufende Versionen - CP/M 2.2 und 


CP/M Plus. Er ist vor allem für den 
CP/M-Anfänger bestimmt. Aber das eine 
oder andere ist auch für den Fortgeschrit¬ 
tenen interessant. 


Wir werden gelegentlich diesen Aufsatz 
als CP/M-Beitrag zitieren. Natürlich 
können wir nicht alle CP/M-Commands 
ausführlich besprechen. Näheres müssen 
Sie in der Fachliteratur nachlesen. Eine 
geeignete Auswahl — besonders auch für 
die praktische Arbeit - finden Sie am 
Schluß dieses Beitrags. 

Da wir uns hier vorwiegend mit der Pra¬ 
xis beschäftigen wollen, so starten Sie 
gleich einmal CP/M 2.2 und — wenn es 
Ihre Hardware erlaubt — auch CP/M 
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A> DDT 
DDT VERS 2.2 
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0114 

00 

72 

0115 

00 

67 

0116 

00 

65 

0117 

00 

6E 
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- Ä c 



A> SAVE 

1 TEXTAUS.COM 


Abb. 7 : Protokoll der ‘‘DDT-Sitzung “ unter 
CP/M 2.2 

Plus jeweils mit der entsprechenden Sy¬ 
stemdiskette. Beobachten Sie dabei den 
im “CP/M-Beitrag“ beschriebenen Boot¬ 
vorgang. Es finden zwei Ladevorgänge 
hintereinander statt: 

1. Laden des Bootprogramms 

2. Laden der Systemroutinen 

Bei 2.2 erfolgt beides aus den Systemspu¬ 
ren und so schnell hintereinander, daß Sie 
es nicht voneinander trennen können. Bei 
CP/M Plus aber können Sie auseinander¬ 
halten. Zunächst das Laden des Bootpro¬ 
gramms von der Systemspur 2 und dann 
das folgende Laden der EMS-Datei über 
das Directory (das dauert nämlich etwas 
länger). In jedem Falle meldet sich 
schließlich der CCP mit dem angemelde¬ 
ten Laufwerk A (Bootlaufwerk) und dem 
Prompt “ > Der Cursor zeigt, daß eine 


Eingabe erwartet wird. In PCI 4/88, 
S.75/76, mit Ergänzung im Leserbrief, 
PCI 8/88, S.9, ist beschrieben, wie Sie 
sich einen “blinkenden “ Cursor erzeugen 
können. 

ALLGEMEINES ÜBER CP/M 

Geben Sie nun irgendeinen Text ein. Jede 
Eingabe — von der in Zukunft die 
Rede ist — muß durch die Betätigung 
der ENTER- oder RETURN-Taste ab¬ 
geschlossen werden. Je nach Länge Ih¬ 
rer Eingabe wird der CCP die ganze oder 
einen Teil Ihrer Eingabe mit einem Fra¬ 
gezeichen wiederholen, weil er Sie nicht 
verstanden hat. Er erwartet natürlich die 
Eingabe eines residenten oder transien¬ 
ten Kommandos. 

Überzeugen Sie sich auch davon, daß Sie 
für die Eingabe Groß- oder Kleinschrei¬ 
bung wählen können; der CCP wandelt 
alles in Großbuchstaben um. Natürlich 
gilt das nur für Buchstaben. Bei allen an¬ 
deren Zeichen ist zwischen Eingabe ohne 
oder mit SHIFT-Taste wohl zu unterschei¬ 
den. Probieren Sie auch die Texteingabe, 
nachdem Sie vorher CTRL-P eingege¬ 
ben haben. Jetzt wird alles was auf dem 
Bildschirm steht - Ihre Eingabe und die 
Ausgabe des CCP — vom Drucker “pro¬ 
tokolliert“. Natürlich muß dieser einge¬ 
schaltet und “online“ sein, sonst akzep¬ 
tiert CP/M nichts mehr, bevor das erfolgt 
ist. Ausgeschaltet wird die Druk- 
kerausgabe durch ein erneut eingegebe¬ 
nes CTRL-P. 

Beim CP/M Plus ertönt bei der ersten 
CTRL-P Eingabe ein “Beep“. Dann ge¬ 
ben Sie noch ein CTRL-C ein und erzeu¬ 
gen damit ein “'Warmboot“ Beim 2.2 er¬ 
kennen Sie das Nachladen von CCP und 
BDOS von der Diskette. Beim CP/M 
Plus erfolgt das Nachladen von CCP aus 
einer Speicherbank, was schnell und 
lautlos vonstatten geht. Die Bedeutung 
von CTRL-C für das “Login“ einer Dis¬ 
kette werden wir später noch behandeln. 
Wenn Sie ein zweites Laufwerk mit ein¬ 
gelegter Diskette angeschlossen haben, 
so können Sie darauf durch Eingabe von 
“B: “ umschalten. Ist keine Diskette ein¬ 
gelegt, so bekommen Sie eine ERROR- 
Meldung. Nach Einlegen einer Diskette 
können Sie “RETRY“ machen, und al¬ 
les ist in Ordnung. Das Laufwerk B ist 
“eingelogged“ und damit für das Be¬ 
triebssystem angemeldet. Durch Einga¬ 
be von “A: “ wird wieder Laufwerk A an¬ 
gewählt. Wenn Sie kein zweites Laufwerk 
angeschlossen haben, bekommen Sie 


auch eine ERROR-Meldung, aus der Sie 
aber — trotz aller Anstrengungen - 
kaum herauskommen werden (Versuchen 
Sie es!). Es bleibt schließlich nur der 
“Totale RESET“ mit dem Dreifingergriff 
(ESC-SHIFT-CONTROL). Denken Sie 
daran, wenn Sie wichtige Daten im RAM 
haben, die noch nicht abgespeichert sind. 

CP/M 2.2 

RESIDENTE COMMANDS 

Jetzt wollen wir uns mit den residenten 
Commands von CP/M 2.2 beschäftigen. 
Sie lauten DIR, ERA, REN, TYPE, USER 
und SAVE. DIR kennen Sie natürlich. 
Die Ausgabe der Dateinamen erfolgt ge¬ 
nau in der Reihenfolge, wie die Dateien 
im Directory auf der Diskette gespeichert 
sind. Mit einem Diskettenmonitor — sie¬ 
he dazu die Ausführungen im CP/M-Bei¬ 
trag — können Sie sich davon überzeu¬ 
gen. Sie können DIR auch in Verbindung 
mit “Wildcards“ einsetzen. Was ist das? 
Nehmen wir an, Sie wollen sich alle PAS- 
CAL-Dateien anzeigen lassen. Da diese 
vom Dateityp “PAS“ sind so geben Sie 
ein DIR *.PAS. Nehmen wir weiter an, 
Sie haben Dateien von Jahresbilanzen mit 
den Namen BILANZ86, BILANZ87 und 
so weiter. Zusätzlich haben diese Datei¬ 
en noch den Typ ,EIG oder .FRD, je 
nachdem, ob es sich um Ihre eigenen 
oder fremde Bilanzen handelt. Mit der 
Eingabe DIR BILANZ??.* bekommen 
Sie alle, mit DIR BILANZ??.EIG nur 
die eigenen Bilanzdateien angezeigt. Der 
Stern steht also für eine beliebige und be¬ 
liebig lange Bezeichnung, das Fragezei¬ 
chen genau für ein beliebiges (erlaubtes 
Zeichen). 

Zur Erinnerung: der Dateiname kann bis 
zu acht Zeichen, der Typ bis zu drei Zei¬ 
chen lang sein. Als Zeichen sollten Sie 
Zahlen oder Buchstaben, möglichst keine 
Sonderzeichen und keine deutschen Um¬ 
laute verwenden. ERA wird Ihnen auch 
bekannt sein. Es “löscht“ den Eintrag ei¬ 
nes Dateinamens im Directory. Auch 
ERA können Sie in Verbindung mit 
“Wildcards“ einsetzen. Seien Sie dabei 
vorsichtig, denn der CCP ist schnell bei 
der Hand. Lediglich, wenn Sie mit ERA 
*.* angeben, daß alle Dateien gelöscht 
werden sollen, fragt er zur Vorsicht noch 
einmal nach. An sich geschieht beim Lö¬ 
schen mit ERA noch nichts Schlimmes. 
Es wird lediglich das erste Byte im Direc¬ 
tory-Eintrag, welches normalerweise 00 
ist (siehe aber später unter USER), mit 


0100 

ii Ob oi 


LD DE,01OB 

Lade Text 

0103 

0E 09 


LD C,09 

Aufruf 

0105 

CD 05 00 


CALL 0005 

BDOS-Funktion 9 

0108 

C3 00 00 


JP 0000 

Warmboot 


OC 



"Bildschirmlöschen" 

010C 

47 75 74 

65 6E 

20 


0112 

4D 6F 72 

67 61 

6E 24 

"Morgen?" 

Listing 1a. TEXTAUS.COM 



0100 11 OB 01 0E 09 CD 05 00 C3 00 00 0C 47 75 74 65 
0110 6E 20 4D 6F 72 67 65 6E 24 00 00 00 00 00 00 00 

Lisiing 1b: HexdUmp von TEXTAUS.COM 
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E5 überschrieben. Der gesamte Eintrag 

— insbesondere die von der Datei beleg¬ 
ten Blöcke — bleibt zunächst erhalten. 
Wenn weiter nichts geschehen ist, so kön¬ 
nen Sie eine versehentlich gelöschte Da¬ 
tei wieder retten. Wurde aber inzwischen 
eine andere Datei gespeichert, so ist der 
Platz der gelöschten Datei — oder zu¬ 
mindest ein Teil davon — anderweitig 
vergeben und überschrieben. Sehen Sie 
sich diese Vorgänge unbedingt mit einem 
Diskettenmonitor an, Abbildung 6a...d 
zeigt die Untersuchung eines Beispiels 
mit DU.COM. In Abbildung 6a sehen Sie 
das ursprüngliche Directory. Dann wurde 
die Datei ED.COM mit ERA gelöscht. 
Abbildung 6b zeigt das Ergebnis. Achten 
Sie auf die erhaltene Blockbelegung. 
(Will man die Datei jetzt wieder retten, 
so kann man mit DU das “E5“ wieder 
mit “00“ überschreiben.) Man kann auch 
ein Hilfsprogramm UNERA.COM be¬ 
nutzen. (Es steht auf der gleichen Public- 
Domain-Diskette wie DU.COM.) Jetzt 
wurde die Datei TEST.TST gespeichert. 
Für das Experiment wird dazu einfach 
ein Teil des RAMs — von 0100 bis 0C.FF 

— das sind zwölf Pages = 3 Blöcke — 
mit dem Command SAVE (siehe weiter 
unten) abgespeichert. In Abbildung 6c 
können Sie sehen, wie das Directory jetzt 
aussieht. Die Datei ED.COM ist ver¬ 
schwunden, die von ihr belegten Blöcke 
tauchen nicht mehr auf. Statt dessen be¬ 
legt TEST.TST die Blöcke OF 10 11. Auf 
den Blöcken 12 13 14 15 ist natürlich der 
Rest von ED.COM noch vorhanden (Sie 
können sich mit dem Monitor überzeu¬ 
gen). Aber man sieht davon nichts, denn 
diese Blöcke sind CP/M als frei gemel¬ 
det und stehen bei Bedarf zur Verfügung. 
Wenn jetzt die Datei TEST1.TST gespei¬ 
chert wird (als RAM von 0100 bis 18FF, 
das sind 24 Pages = 6 Blöcke), dann be¬ 
legt TEST1.TST die restlichen ehemali¬ 
gen Blöcke von ED.COM - 12 13 14 15 

— und weil das nicht reicht, zusätzlich 
noch IC und ID (Abbildung 6d). Damit 
ist dann ED.COM endgültig überschrie¬ 
ben. Das Kommando REN wird Ihnen 
auch bekannt sein. Sie ändern damit den 
Namen einer vorhandenen Datei, REN 
neuer Name = alter Name, zum Beispiel 
REN NEU. DAT ALT.DAT . 

Mit TYPE geben Sie den Inhalt einer 
ASCII-(Text-)Datei auf dem Bildschirm 
aus: TYPE DATA.TXT. Haben Sie vor¬ 
her CTRL-P eingegeben, so erfolgt die 
Ausgabe auch auf dem Drucker. Wenn 
Sie die Ausgabe anhalten wollen, so ge¬ 
ben Sie CTRL-S ein. Durch Eingabe von 
CTRL-Q (oder irgendeinem anderen Zei¬ 
chen) wird die Ausgabe fortgesetzt. 
TYPE sollte nur bei Textdateien verwen¬ 
det werden. Die Binärcodes anderer Da¬ 
teien ergeben meist keine darstellbaren 


Abb.8: Protokoll 
der “DDT-Sitzutig“ 
zum Patchen des 
TEXTAUS.COM 


A> DDT TEXTAOS.COM 
DDT VERS 2.2 
NEXT PC 
0180 0100 

- D0100,017F 

0100 11 OB 01 OE 09 CD 
0110 6E 20 4D 6F 72 67 
0120 00 00 00 00 00 00 
0130 00 00 00 00 00 00 
0140 00 00 00 00 00 00 
0150 00 00 00 00 00 00 
0160 00 00 00 00 00 00 
0170 00 00 00 00 00 00 

- S0112 

0112 4D 41 
0113 6F 62 
0114 72 65 

0115 67 6E 
0116 65 64 

0117 6E 20 
0118 24 
0119 00 . 

- ~C 

A> SAVE 1 TEXTAUS.COM 


Zeichen. Probieren Sie TYPE einmal bei 
einer anderen Datei (.COM oder auch 
.BAS). Sie werden erstaunt sein, was sich 
da auf Ihrem Bildschirm tut. (Den 
Drucker schalten Sie besser nicht ein!) 
Wenn Sie “Glück“ haben, erleben Sie 
vielleicht sogar einen “Systemabsturz“ 
(mit “nichts geht mehr“). 

USER werden wir ausführlich bei CP/M 
Plus besprechen. SAVE dient dazu, einen 
Teil des RAMs — genauer gesagt der 
TPT — als Datei auf der Diskette zu spei¬ 
chern. Es fängt immer bei 0100 an. Die 
Länge des Bereichs wird in “Pages“ 
angegeben (Pageanzahl dezimal 1 Page 
= 256 kBytes, das heißt, 4 Pages = 
1 KByte). 

SAVE 12 TEST.TST speichert 12 = 0C 
pages — also den Bereich von 0100 bis 
OCFf - als Datei TEST.TST auf der Dis¬ 
kette. Benötigt wird SAVE vor allem, 
wenn “Patches“ mit DDT ausgeführt 
wurden. Wir werden das gleich sehen. 

CP/M 2.2 

TRANSIENTE COMMANDS 


Nun kommen wir zu den transienten 
Commands von CP/M 2.2. Diese bedeu¬ 
ten bekanntlich den Aufruf eines Pro¬ 
gramms mit dem entsprechenden Namen 
(also einer Datei vom Typ .COM). Dazu 
müssen sie natürlich auf der Diskette im 
angemeldeten Laufwerk vorhanden sein, 
sonst gibt der CPC seine stereotype ER- 
ROR-Meldung (Wiederholung des Na¬ 
mens mit einem Fragezeichen). Auf den 
Systemdisketten sind alle diese Program¬ 
me vorhanden. Wir können hier nur ei¬ 
nige - und auch keineswegs erschöpfend 
— besprechen. PIP.COM ist das univer¬ 
selle Kopierprogramm. Es setzt das Vor¬ 
handensein von zwei Laufwerken voraus. 
Unter CP/M 2.2 sind das zwei physika¬ 
lische Laufwerke, und daher spielt PIP 
hier für die Mehrzahl der CPC-Benutzer 
keine große Rolle. Unter CP/M Plus ist 
das anders. Wir kommen später darauf 
zurück. 

STAT.COM ist ein wichtiges Programm 
unter CP/M 2.2, mit dem einfachen Auf¬ 


05 00 C3 00 00 CC 47 75 74 65 .GJte 

65 6E 24 00 00 00 00 00 00 00 n Morgens. 

00 00 00 00 00 00 00 00 00 00 . 

00 00 00 00 00 00 00 00 00 00 . 

00 00 00 00 00 00 00 00 00 00 . 

00 00 00 00 00 00 00 00 00 00 . 

00 00 00 00 00 00 00 00 00 00 . 

00 00 00 00 00 00 00 00 00 00 . 


ruf STAT wird der freie Speicherplatz auf 
der Diskette (im angemeldeten Lauf¬ 
werk) angegeben. Wollen Sie wissen, 
wieviel Platz eine bestimmte Datei be¬ 
legt, so geben Sie ein: STAT Name.Typ. 
Wollen Sie die Platzbelegung von allen 
Dateien wissen, so geben Sie ein: STAT 
** 

Mit CTRL-S können Sie die Ausgabe — 
wie oben beschrieben — anhalten und 
durch vorherige Eingabe von CTRL-P 
gleichzeitig ausdrucken. 

Die Platzhalter sind die “Wild¬ 
cards“ für alle Dateien. Sie können auch 
die anderen beschriebenen “Wildcards“ 
verwenden. 

DDT.COM (kein Insektenvertilger, son¬ 
dern Dynamic Debugging Tool) ist ein au¬ 
ßerordentlich nützliches Hilfsprogramm. 
Sie sollten in der Fachliteratur nachlesen, 
was man alles damit machen kann. Häu¬ 
fig wird es benutzt , um vorhandene Da¬ 
teien abzuändern (also zu “patchen“) 
oder um kleinere Hilfsroutinen zu erstel¬ 
len. In dieser Eigenschaft begegnet es ei¬ 
nem immer wieder in den Computerzeit¬ 
schriften. Ebenso wird es benutzt, um 
eine vorhandene Datei — oder auch einen 
Speicherbereich - zu “dumpen“, das 
heißt, den Inhalt hexadezimal und in 
ASCII auszugeben. (Wenn der Hexcode 
keinem ASCIl-Zeichen entspricht, so 
wird ein Punkt ausgegeben.) Wir geben 
Ihnen zwei Beispiele. Es soll ein Pro¬ 
gramm erstellt werden, welches den Bild¬ 
schirm löscht und dann den Text “Guten 
Morgen“ ausgibt. Wir nennen es 
TEXTAUS.COM. Dann soll das Pro¬ 
gramm gepatcht werden, so daß es den 
Text “Guten Abend“ ausgibt. Aus dem 
CP/M-Beitrag wissen Sie, daß Ein- und 
Ausgabeoperationen durch den Aufruf 
entsprechender BDOS-Funktionen erfol¬ 
gen. Für unsere Zwecke gibt es die 
BDOS-Funktion Nr. 9, welche eine Kette 
von ASCIl-Zeichen auf dem Bildschirm 
ausgibt, darunter können sich auch Steu¬ 
erzeichen wie “Bildschirmlöschen“ be¬ 
finden. Am Schluß der Kette muß das 
Dollarzeichen stehen, damit BDOS das 
Ende erkennt. Im Register DE wird die 
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Adresse der Zeichenkette übergeben. Die 
Funktionsnummer wird immer im Regi¬ 
ster C übergeben und die Funktion über 
die Adresse 0005 in der Zeropage aufge¬ 
rufen. Im Listing la ist unser kleines Pro¬ 
gramm dargestellt. Es ist der Assembler¬ 
code angegeben und der vom Assembler¬ 
programm erstellte Hexadezimalcode. 
Auch wenn Sie kein “Assemblerspezia¬ 
list“ sind, werden Sie den besprochenen 
Ablauf erkennen. Das erste Zeichen in 
unserer Zeichenkette ist der Steuercode 
0C CTRL L für das Löschen des Bild¬ 
schirms (unter CP/M 2.2). Das Pro¬ 
gramm endet — wie üblich — mit einem 
Sprung zur Adresse 0000 (Warmboot). 
Listing lb stellt dann einen “Hexdump“ 
unseres Programms dar, wie er beispiels¬ 
weise in einer Zeitschrift veröffentlicht 
würde. Die Eingabe erfolgt mit DDT. Ein 
“Protokoll“ dieser Operation ist in Ab¬ 
bildung 7 dargestellt. Alle Ihre Eingaben 
sind fett gedruckt. Vergessen Sie nicht 
die RETURN-(oder ENTER-) Taste nach 
jeder Eingabe. Durch Eingabe von DDT 
wird das Programm aufgerufen. Es mel¬ 
det sich mit Ausgabe der Versionsnum¬ 
mer und mit seinem “Prompt“, einem 
waagrechten Strich (“-“). Der Cursor 
zeigt wieder, daß eine Eingabe erwartet 
wird. Es gibt mehr als ein Dutzend Com- 
mands für DDT, wie Sie in der Fachlite¬ 
ratur nachlesen können. 

Wir benutzen zuerst das Command F 
(fill). Es lautet Fadressel,adresse2,wert. 
Damit füllen Sie den RAM-Speicher von 
adressel bis adresse2 mit wert, hier also 
von 0100 bis 01FF mit 00. Das ist eine 
kleine — nicht unbedingt erforderliche — 
“Schönheitsoperation“. Wir müssen 
nämlich später ein Page abspeichem, und 
darin soll - außer dem Programm - 
nichts anderes stehen. 

Zur Eingabe des Programms benutzen 
wir das Command S (störe). Wir müssen 
eingeben: S adresse also S0100. DDT 
gibt dann die Adresse aus und dahinter 
das Byte, welches sich jetzt in dieser 
Adresse befindet. Das ist hier 00, weil 
wir dies mit “F“ ja dorthin gebracht ha¬ 
ben. Dahinter können Sie nun den neu¬ 
en Wert eingeben, der an der Adresse ge¬ 
speichert werden soll. Das ist hier 11 ent¬ 
sprechend Listing lb. Nach dem RE¬ 
TURN zeigt DDT die nächste Adresse 
an, und Sie können mit der Eingabe fort¬ 
fahren. Wenn sich der angezeigte Wert im 
RAM nicht ändern soll, so geben Sie 
nichts ein, sondern bestätigen nur mit der 
RETURN-Taste. Wenn alles eingegeben 
ist, beenden Sie den Modus für das S- 
Command mit der Eingabe eines Punk¬ 
tes. Dann meldet sich DDT wieder mit 
seinem Prompt und zeigt dadurch an, daß 
es ein weiteres Command erwartet. Sie 
können sich zum Beispiel das eingegebe- 


A> SID 

CP/M 3 SID - Version 3.0 

# F0100,01FF,00 

# S0100 


0100 

00 

11 

0101 

00 

OB 

0102 

00 

01 

0103 

00 

0E 

0104 

00 

09 

0105 

00 

CD 

0106 

00 

05 

0107 

00 


0108 

00 

C3 

0109 

00 


010A 

00 


010B 

00 

1B 

010C 

00 

48 

010D 

00 

1B 

010E 

00 

45 

010F 

00 

47 

0110 

00 

75 

0111 

00 

74 

0112 

00 

65 

0113 

00 

6E 

0114 

00 

20 

0115 

00 

4D 

0116 

00 

6F 

0117 

00 

72 

0118 

00 

67 

0119 

00 

65 

011A 

00 

6E 

011B 

00 

24 

011C 

00 

. 


# W TEXTAUS.COM,0100,011B 

0001h record(s) written. 

# ~C 

A> 

Abb.9: Protokoll zur Eingabe des Programms 
TEXTAUS.COM unter CP/M Plus 

ne Programm als Hexdump — entspre¬ 
chend Listing lb — ansehen. 

Dazu benutzen Sie das Command Dis¬ 
play. Es lautet Dadressel,adresse2 hier 
also D0100,011F. Dabei wird der Textteil 
des Programms auch in ASCII ausgege¬ 
ben, so daß Sie es kontrollieren können. 
Sie können auch das Programm, welches 
ja zunächst nur im RAM steht, von DDT 
aus mit dem Command G (go) starten. 
Die Startadresse ist 0100, also müssen Sie 
eingeben G0100. Versuchen Sie es ein¬ 
mal. Grundsätzlich ist dies Verfahren 
aber nicht zu empfehlen — jedenfalls bei 
einem längeren Programm. Es könnte ja 
sein, daß durch einen Eingabefehler das 
Programm nicht ordnungsgemäß läuft, 
sondern sich “in einer Endlos-Schleife“ 
aufhängt oder sogar einen Systemabsturz 
verursacht. In diesem Falle wären alle 
Ihre Eingaben “futsch“, und Sie müßten 
neu anfangen. Der Abschluß des Pro¬ 
gramms DDT erfolgt durch Eingabe von 
CTRL-C (Warmboot). Sie können natür¬ 
lich auch G0000 eingeben, dami meldet 
sich wieder der CCP mit seinem Prompt. 
Jetzt muß das im RAM stehende Pro¬ 


gramm auf der Diskette gespeichert wer¬ 
den. Dazu dient das erwähnte residente 
Command SAVE. Es lautet SAVE anzahl 
Dateiname.Typ. 

Dabei ist anzahl die Anzahl der Pages zu 
je 256 kBytes. Wenn das Programm von 
0100 bis maximal 01FF geht - wie in un¬ 
serem Falle —, so ergibt das ein Page. 
Wir geben ein SAVE 1 TEXTAUS. 
COM. Nach dem Abspeichem meldet 
sich wieder der CCP. (Vergleichen Sie 
alle Ihre Eingaben mit dem Protokoll in 
Abbildung 2.) Anschließend können Sie 
Ihr “transientes“ Anwenderprogramm 
durch Eingabe von TEXTAUS starten. 
Der programmierte Text wird ausgege¬ 
ben, und als Abschluß erfolgt Warmboot, 
und der CCP meldet sich wieder. Jetzt 
wollen wir das Programm für die Ausga¬ 
be von “Guten Abend“ “patchen“. (Soll¬ 
ten Sie bislang einen Fehler gemacht ha¬ 
ben, so können Sie ihn nach dem glei¬ 
chen Muster korrigieren.) Dazu rufen 
wir DDT mit dem Namen der zu pat¬ 
chenden Datei auf, also DDT TEXT- 
AUS.COM . In Abbildung 8 sehen Sie 
ein Protokoll dieser “Pätehsitzung“, nach 
dem Sie sich richten können. DDT zeigt 
Ihnen an wie weit sich die zu patchende 
Datei im RAM erstreckt. Unter “NEXT“ 
ist der erste freie Speicherplatz nach dem 
Dateiende angegeben (natürlich in Hexa¬ 
dezimal). Schreiben Sie sich diesen Wert 
immer auf, damit Sie später richtig “sa- 
ven“ können. 

Unter PC (= Program Counter) steht der 
Wert 0100 als Zeichen, daß diese Adres¬ 
se “im Zugriff“ ist. Mit dem D-Com- 
mand sehen wir uns unser Programm 
noch einmal in Hex und ASCII an. Wir 
erkennen, daß der zu patchende Text bei 
Adresse 0112 beginnt und geben ein 
S0112. Dann patchen wir den alten 
ASCII-Code mit dem neuen. Ein Buch¬ 
stabe bleibt übrig, für den wir ein Leer¬ 
zeichen einfügen (oder das Dollarzeichen 
vorrücken). Der Rest läuft ab wie oben 
beschrieben. Wenn Sie bei SAVE den Na¬ 
men TEXTAUS.COM eingeben, so wird 
die neue Version gespeichert und dabei 
die alte überschrieben. Eine Backup-Da¬ 
tei (Typ *.BAK) wird nicht angelegt. 
Wollen Sie die alte Version behalten, so 
müssen Sie die neue Version unbedingt 
unter einem anderen Namen “saven“ und 
später den Namen mit REN ändern. 
Noch ein Hinweis, wie Sie die Anzahl 
Pages fiir SAVE ermitteln. Von dem Wert 
NEXT nehmen Sie die beiden ersten Zif¬ 
fern als Hexzahl. Wenn NEXT mit 00 en¬ 
det, muß 1 davon subtrahiert werden, an¬ 
dernfalls bleibt die Zahl unverändert. Der 
Wert den Sie noch in eine Dezimalzahl 
verwandeln müssen, ergibt dann die An¬ 
zahl pages. Beispiel: NEXT = 0C800C 
(unverändert gleich 12 Pages (Dezimal) 
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NEXT = 1D00 ID minus 1 gleich IC 
gleich 28 Päges. Hexadezimales Rechnen 
sollten Sie etwas üben, denn DDT bietet 
nur eine einseitige Hilfe. 

Mit Hdwertl,dwert2 erhalten Sie Sum¬ 
me und Differenz der Dezimalzahlen 
dwertl und dwert2 in Hex. 

Weitere transiente Commands von CP/M 
2.2 wollen wir nur kurz erwähnen: 
MÖVCPM und SYSGEN sind Program¬ 
me zur Veränderung der TPA-Größe, 
wenn ein neues BIOS erstellt wurde. Sie 
werden benötigt, wenn Sie eine VOR- 
TEX-Floppy installieren. ED ist ein zei¬ 
lenorientiertes Textverarbeitungspro¬ 
gramm aus der Steinzeit, das in der Fach¬ 
literatur immer noch beschrieben wird. 
Hüten Sie sich davor! Es soll Leute gege¬ 
ben haben, die beim Arbeiten mit diesem 
Programm aus Verzweiflung den Moni¬ 
tor zertrümmerten. ASM ist ein Assem¬ 
bler für “8080 Code“. Wir wollen jetzt 
mit Hilfe des SAVE-Commands noch ein 
Experiment machen, das Ihnen die Not¬ 
wendigkeit zeigt, bei einem Disketten¬ 
wechsel die neue Diskette “anzumelden“ 
(siehe “CP/M-Beitrag“). Stellen Sie sich 
vor, Sie haben Daten im RAM, welche 
auf der Diskette gespeichert werden sol¬ 
len. Sie merken, daß auf der im Lauf¬ 
werk befindlichen Diskette nicht mehr 
genügend Platz ist, und legen eine neue 
ein. Jetzt versuchen Sie, Ihre Daten zu 
“saven“. Geben Sie als Beispiel ein: 
SAVE 3 TEST.TST. Ergebnis CP/M 
streikt mit einer ERROR-Meldung. Ge¬ 
ben Sie CTRL-C ein und melden mit dem 
Warmboot die neue Diskette an. Jetzt 
können Sie anschließend speichern. Bei 
diesem Experiment befinden Sie sich im 
CCP, so daß auch im Ernstfall nichts ver¬ 
loren wäre. Wenn das aber in einem An¬ 
wenderprogramm geschieht, so wird 
durch die ERROR-Meldung oder auch 
mit einem Warmboot immer das Pro¬ 
gramm verlassen, und den Weg zurück 
werden Sie nicht mehr finden. 

ALLGEMEINES 
ÜBER CP/M PLUS 

Jetzt wollen wir zu CP/M Plus übergehen 
und uns zunächst das ansehen, was dort 
gegenüber der Version 2.2 verbessert ist. 
Eine der wesentlichen Verbesserungen ist 
darin zu sehen, daß CP/M Plus zwischen 
physikalischen und logischen Laufwer¬ 
ken unterscheidet. 

Dadurch ist es möglich, daß einem vor¬ 
handenen physikalischen Laufwerk (zum 
Beispiel beim CPC 6128) mehrere (zwei 
beim CPC) logische Laufwerke zugeord¬ 
net werden. Machen Sie gleich einen 
Versuch: Starten Sie CP/M Plus mit ei¬ 
nem Laufwerk. Sie erhalten eine entspre¬ 
chende “Bootmeldung“ und in der unte¬ 


ren (Status-)Zeile die Meldung, daß 
Laufwerk A aktiv ist. Wenn Sie zwei 
Laufwerke angeschlossen haben, beim 
Start von CP/M Plus sich aber keine Dis¬ 
kette im Laufwerk B befindet, so erhal¬ 
ten Sie die gleiche Meldung: Das System 
erkennt das zweite Laufwerk nicht. Ach¬ 
ten Sie also immer darauf, daß sich be¬ 
reits beim Start (aber nach dem Einschal¬ 
ten des Laufwerks!) eine Diskette in B be¬ 
findet. 

Sie können sich auch davon überzeugen, 
daß dies bei CP/M 2.2 nicht erforderlich 
ist. Wenn Sie noch kein Zweitlaufwerk 
besitzen, sich aber eines anschaffen wol¬ 
len, so wählen Sie doch ein 5 1/4-Zoll- 
Laufwerk mit 2 x 80 Spuren. Bei CP/M 
Plus befindet sich das Disk-BIOS im 
RAM (siehe “CP/M-Beitrag“) und läßt 
sich daher so patchen, daß das Laufwerk 
vom System akzeptiert wird. Dann haben 
Sie endlich eine ausreichende Disketten¬ 
kapazität. 

Wählen Sie nun Laufwerk B durch Ein¬ 
gabe von “B:“. Während das bei CP/M 
2.2 zu einem Fiasko führte, fordert Sie 
jetzt das System in der Statuszeile auf, die 
Diskette für Laufwerk B einzufügen und 
dies durch die Betätigung einer beliebi¬ 
gen Taste zu quittieren. Damit steht Ih¬ 
nen auf dem gleichen physikalischen 
Laufwerk das logische Laufwerk B zur 
Verfügung. Das funktioniert natürlich ge¬ 
nauso “programmgesteuert“, das heißt, 
wenn ein beliebiges CP/M-Programm 
den Zugriff auf Laufwerk B verlangt, 
meldet sich das System in gleicher Wei¬ 
se. Was beim CP/M 2.2 unmöglich war, 
geht hier absolut einwandfrei - wenn 
auch vielleicht ein wenig holperig. Wir 
werden das später bei PIP noch exerzie¬ 
ren. Eine zweite Verbesserung von CP/M 
Plus, daß es nämlich einen Disketten¬ 
wechsel ohne ERROR akzeptiert, kann 
man aufgrund des oben geschilderten 
vermuten. Wir werden uns später davon 
noch überzeugen. 

CP/M PLUS 

RESIDENTE COMMANDS 

Jetzt wollen wir die residenten Com¬ 
mands von CP/M Plus betrachten. Es 
sind fast dieselben wie bei CP/M 2.2, es 
fehlt nur SAVE (dieses Command ist hier 
transient ). Bei CP/M Plus gibt es aber 
für die residenten Commands DIR ERA 
REN und TYPE transiente Ergänzun¬ 
gen. Wir probieren zunächst einmal das 
residente DIR . Das Ergebnis ist prak¬ 
tisch wie bei 2.2. Es gibt einen Unter¬ 
schied, den Sie aber bei den drei Disket¬ 
ten — mangels Masse — kaum bemerken 
werden. Wenn der Bildschirm voll ist, 
hält die Ausgabe an, und der CPC fordert 
Sie auf, RETURN zu drücken, wenn Sie 


alles gelesen haben. Bei TYPE können 
Sie diesen Effekt besser beobachten. Daß 
Sie auch hier die Bildschirmausgabe 
durch vorherige Eingabe von CTRL-P 
auf dem Drucker protokollieren können, 
wissen Sie bereits. Auch der “Beep“ wird 
Sie hoffentlich nicht mehr erschrecken. 
Vergessen Sie aber nicht das abschließen¬ 
de Ausschalten — ebenfalls mit CTRL- 
P. Vielleicht stört Sie die immer wieder¬ 
kehrende “RETURN“-Aufforderung bei 
der Druckerausgabe. Hier hilft das tran¬ 
siente TYPE, bei dem Sie die “Option 
NOPAGE“ eingeben können. Das sieht 
dann so aus TYPE dateiname [NOPA¬ 
GE]. Die Option muß in eckigen Klam¬ 
mern stehen! Das kann sich auf Bild¬ 
schirm (und Drucker) als deutsche Um¬ 
laute darstellen, wenn Sie den deutschen 
Zeichensatz installiert haben (siehe un¬ 
ten). Zur Ausführung dieses transienten 
Commands brauchen Sie natürlich - 
wie bei allen solchen Commands — das 
entsprechende Programm, hier also 
TYPE.COM. Was tun Sie, wenn zwar die 
auszugebende Datei auf der Diskette 
steht, nicht aber TYPE.COM? Geben Sie 
ein B:TYPE A:dateiname [NOPAGE]. 
Das System fordert Sie auf, die Disket¬ 
te B einzulegen, auf der natürlich 
TYPE.COM stehen muß. Dies wird ge¬ 
laden, dann werden Sie aufgefordert, die 
Diskette A einzulegen, und schon läuft 
die Ausgabe auf Bildschirm und Drucker 
wie geschmiert. Moment, Sie wollen 
jetzt doch anhalten? Geben Sie einfach 
CTRL-S ein - wie früher bei 2.2 - und 
wenn es weiter gehen soll, hilft CTRL- 
Q (aber hier keine andere Taste). Haben 
Sie das Prinzip verstanden? Wir probie¬ 
ren es gleich noch einmal bei DIR , denn 
dort gibt es eine besonders interessante 
Option, nämlich [FULL] (die Option 
muß wieder in eckigen Klammern ste¬ 
hen.). Sie wollen also das Directory der 
eingelegten Diskette, auf der sich aber 
nicht das Programm DIR.COM befindet. 
Also geben Sie ein B:DIR A [FULL] 
Nach Aufforderung legen Sie die Disket¬ 
te B (mit Programm DIR.COM) ein und 
dann — wieder nach Aufforderung — er¬ 
neut die Diskette A. Sie wollen es etwas 
anders machen? Bitte sehr! 

Sie starten CP/M mit einer Systemdisket¬ 
te, auf der alle gewünschten transienten 
Systemprogramme enthalten sind. Das ist 
dann Laufwerk A. Jetzt geben Sie ein 
DIR B [FULL] . Nach Aufforderung le¬ 
gen Sie dann “Ihre“ Diskette als B ein 
und erhalten die Directory-Ausgabe. Na¬ 
türlich können Sie wieder durch vorher¬ 
ige Eingabe von CTRL-P auf dem 
Drucker mitprotokollieren. Die Ausga¬ 
be wird Sie an die Auflistung erinnern, 
die wir bei CP/M 2.2 mit STAT erhiel¬ 
ten. Sie sehen Angaben zur Größe jeder 
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Datei. Zunächst der auf der Diskette be¬ 
legte Platz in kByte. Da beim 3“-Format 
die Blockgröße 1 kByte beträgt, ist dies 
auch die Anzahl der belegten Blöcke. 
Aus dem “CP/M-Beitrag“ wissen Sie, 
daß die Datei immer eine ganze Zahl von 
Blöcken belegt, auch wenn sie etwas klei¬ 
ner ist. Die tatsächliche Dateigröße ist 
ebenfalls angegeben und zwar in “re- 
cords“ (1 record = 128 bytes, so daß 8 re- 
cords = 1 kByte.) Beim VORTEX-For- 
mat ist die Blockgröße 1 kByte. Dadurch 
kann sich hier für die gleiche Datei ein 
größerer Platzbedarf ergeben. Eine Da¬ 
tei von 15 records zum Beispiel belegt un¬ 
ter AMSDOS 2 Blöcke gleich 2 kByte, 
unter VORTEX aber 1 Block gleich 4 
kByte. Weiter sind in der DIR-Ausgabe 
bei jeder Datei “Attribute“ angegeben. 
Diese Attribute werden mit dem transien¬ 
ten Command SET gesetzt (und ge¬ 
löscht), wie wir noch sehen werden. 
“RW“ ist eine Datei, die gelesen und ge¬ 
schrieben werden kann , also der Normal¬ 
fall. “RO“ (ReadOnly) ist eine schreib¬ 
geschützte Datei. Weiter sind alle Dateien 
entweder “Dir“-(Normalfall) oder 
“Sys“-Dateien. Die letzteren spielen eine 
Rolle in Verbindung mit dem USER- 
Command (siehe unten). JOYCE-Benut- 
zer kennen “Sys“-Dateien vom LOCO- 
SCRIPT her. Mit dem residenten DIR 
werden diese Dateien nicht angezeigt. Es 
erfolgt lediglich der Hinweis, daß welche 
vorhanden sind. 

Es gibt aber das residente Command 
DIRS YS — oder auch DIRS — mit dem 
diese Dateien aufgelistet werden. Bitte 
beachten Sie: “Sys“-Dateien haben das 
“Attribut“ Sys, welches mit SET gesetzt 
wird. Dem Dateinamen sieht man das 
nicht an. Sie müssen also nicht vom Typ 
.SY’S sein! Die weiteren Ausgaben im 
DIR [FULL]-Command wollen wir hier 
nicht besprechen, Sie erfahren darüber 
mehr in der Fachliteratur. Wenn Sie nur 
an der Platzbelegung der Dateien inter¬ 
essiert sind, so können Sie auch die Op¬ 
tion [SIZE] bei dem Command DIR ver¬ 
wenden. Auch das Command ERA hat 
eine transiente Ergänzung, die manchmal 
ganz nützlich sein kann. Das residente 
Command funktioniert ähnlich wie un¬ 
ter CP/M 2.2, lediglich bei der Verwen¬ 
dung von “Wildcards“ fragt es zur Vor¬ 
sicht immer nach. 

Manchmal werden Sie aber mit den 
“Wildcards“ nicht auskommen. Wir ver¬ 
weisen auf unser oben gezeigtes Beispiel 
mit den Dateien BILANZnn (nn = Jah¬ 
reszahl). Sie wollen alle “Siebziger“-Bi¬ 
lanzen löschen, nur nicht “78“. Mit der 
Option [CONFIRM] (abgekürzt auch 
[C]) geht das ganz einfach. (Sie müssen 
jetzt natürlich wieder das transiente Pro¬ 
gramm ERASE.COM zur Verfügung ha¬ 


ben.) Sie rufen auf ERA BILANZ7? 
ICONFIRM /. Dann fragt das System bei 
jeder “Siebziger“-Bilanz, ob sie gelöscht 
werden soll. Einige Worte wollen wir 
noch zu dem residenten Command 
USER sagen. 

Sie wissen vielleicht, daß bei MS-DOS 
auf der Diskette neben dem “Haupt“ -Di¬ 
rectory auch “Unter“-Directories defi¬ 
niert werden können. So läßt sich bei ei¬ 
ner Vielzahl von Dateien leichter Ord¬ 
nung halten. Bei CP/M kann man mit 
USER etwas ähnliches erreichen. Sie 
können USER-Bereiche von 0 bis 15 auf 
der Diskette anlegen und in jedem Be¬ 
reich Dateien einer bestimmten Sach¬ 
gruppe speichern. 

Sie geben zum Beispiel ein: USER 4, 
und dann steht Ihnen der Bereich 4 auf 
der Diskette zur Verfügung. Sie sehen das 
an der CCP-Meldung. Dort steht nämlich 
die USER-Nummer vor dem Laufwerk, 
also “4A >“. Jetzt können Sie Dateien in 
diesem Speicherbereich (und auch — mit 
einer Ausnahme — nur in diesem Be¬ 
reich) schreiben und lesen. Die Ausnah¬ 
me bilden Dateien im Bereich 0, welche 
das Attribut “Sys“ haben. Auf diese kön¬ 
nen Sie von jedem USER-Bereich aus 
zugreifen. Das ist der eigentliche Sinn 
der “Sys“-Dateien. 

Mit PIP können Sie übrigens zwischen 
den einzelnen USER-Bereichen kopieren 
(siehe unten). Es gibt aber noch einen an¬ 
deren Weg, Dateien von einem USER- 
Bereich in einen anderen zu bringen: 
Wenn Sie sich das Directory einer Dis¬ 
kette mit mehreren USER-Bereichen mit 
einem Diskettenmonitor ansehen, so be¬ 
merken Sie, daß das erste Byte eines Ein¬ 
trages die USER-Nummer angibt (Hex 0 
bis F). Sie können nun diese Einträge mit 
Hilfe des Monitors ändern und dadurch 
die Datei in den gewünschten Bereich 
“befördern“. 

CP/M PLUS 

TRANSIENTE COMMANDS 

Jetzt wollen wir uns den “eigentlichen“ 
transienten Commands von CP/M Plus 
zu wenden. Das Command STAT exi¬ 
stiert hier nicht. Sie wissen, daß damit 
unter CP/M 2.2 der freie Diskettenplatz 
und die Dateibelegung angezeigt werden 
(STAT tut noch einiges mehr, was wir 
nicht besprochen haben). STAT benutzt 
einen BDOS-Aufruf, der unter CP/M 
Plus nicht funktioniert. Daher wird es 
hier durch zwei andere transiente Com¬ 
mands ersetzt: SHOW für den freien 
Diskettenplatz und DIR für die Dateibe¬ 
legung. DIR haben wir schon kennenge- 
lemt. SHOW funktioniert genauso wie 
STAT. Probieren Sie es aus. Wenn Sie 
das transiente Programm SHOW.CÖM 


nicht auf der Diskette haben, so können 
Sie sich nach dem oben angegebenen 
Muster helfen. Es gibt noch verschiedene 
Optionen, die wir hier aber nicht erläu¬ 
tern können. Ein Hinweis nochßr Benut¬ 
zer von TURBO-PASCAL. Der DIR-Be- 
fehl gibt dort die freie Diskettenkapazi¬ 
tät an. Unter CP/M Plus stimmt das aber 
nicht, weil die gleiche BDOS-Funktion 
verwendet wird wie bei STAT. Mit einem 
— von Borland angegebenen — Patch 
kann man diesen Fehler beseitigen. Mit 
PIP.COM können wir unter CP/M Plus 
auch mit einem physikalischen Laufwerk 
bestens arbeiten, denn wir haben ja zwei 
logische Laufwerke. Die Handhabung ist 
einfach. Am besten rufen Sie zunächst 
einfach immer PIP auf. Es meldet sich 
die CP/M-Plus-Version mit dem Prompt 
Dann müssen Sie eingeben nach 
dem Schema: 

ziellaufw:zieldatei=quelllaufw: quell- 
datei 

Also zum Beispiel B:DATEIBB.TYP= 
A: DATEIAA .TYP . Wenn der Dateina¬ 
me derselbe bleibt, so wird daraus einfa¬ 
cher: 

ziellaufw:=quelllaufw:dateiname 
( B:=ArDATEIOO.TYP ). 

Bei Dateiname können Sie “Wildcards“ 
verwenden und dadurch ganze Datei¬ 
gruppen kopieren, zum Beispiel: 
B:=A:DATEI*.TYP . 

Es werden die vorhandenen Dateien 
DATEIOO.TYP DATEI01.TYP und 
DATEI02.TYP kopiert. Wenn ein “Ko¬ 
pierauftrag“ beendet ist, so erscheint 
wieder der Prompt, und Sie können ei¬ 
nen weiteren “Auftrag“ eingeben. Nach¬ 
dem alles erledigt ist, geben Sie einfach 
RETURN ein, und PIP wird damit been¬ 
det. Wenn Sie noch nicht mit PIP gear¬ 
beitet haben, so probieren Sie es gleich 
einmal aus, um zu erleben, wie das Sy¬ 
stem Sie immer wieder zum Disketten¬ 
wechsel auffordert und so die beiden lo¬ 
gischen Laufwerke “managt“. Es gibt 
eine Reihe von Optionen, die wieder in 
eckige Klammern gesetzt werden 
müssen. 

[V] (= Verify) bedeutet, daß nach dem 
Kopieren jeder Datei Quelle und Ziel auf 
Gleichheit überprüft werden. Sie sind da¬ 
mit ganz auf der sicheren Seite, müssen 
aber entsprechend lange warten. Erfah¬ 
rungsgemäß ist die Verwendung im all¬ 
gemeinen nicht erforderlich. - 
[R] bedeutet, daß “Sys“-Dateien kopiert 
werden, wobei auch die Zieldatei dieses 
Attribut bekommt (ohne diese Option 
werden “Sys“-Dateien nicht kopiert). 
Diese beiden Optionen werden an den 
Schluß des Kopierauftrags (hinter die 
Quellendatei) gesetzt und gelten dann für 
Quelle und Ziel. Zum Beispiel: 

B: - 4: DAT EI 0 O.T Y P [ V J 
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Die Option [Gnummer] (Nummer 
gleich 0 bis 15) dient zum Kopieren von 
Dateien von einem USER-Bereich zum 
anderen. Also: 

A: [G2]=B:FDATEN.TST[G1] 

kopiert die Datei FDATEN.TST aus dem 
USER-Bereich 2 der Diskette im Lauf¬ 
werk A (unter demselben Namen) in den 
USER-Bereich 1 einer anderen Diskette 
im Laufwerk A. 

Es geht aber auch das folgende: 

A:[G2]=ArFDATEN.TST [Gl] . 

Hier wird auf der gleichen Diskette die 
Datei vom USER-Bereich 1 in den 
USER-Bereich 2 kopiert. Die Datei ist 
dann in beiden USER-Bereichen vorhan¬ 
den, was keineswegs stört. So kann man 
nachträglich auf einer Diskette USER- 
Bereiche einrichten. Das hat allerdings 
eine kleinen Haken. Die doppelt vorhan¬ 
dene Datei braucht auch doppelten Platz. 
Hinterher kann man zwar dann die Da¬ 
tei in einem USER-Bereich löschen, aber 
zunächst muß der Platz da sein. PIP 
überschreibt eine bereits vorhandene Da¬ 
tei gleichen Namens, ohne daß eine 
Backup-Datei erstellt wird. 

Wir nehmen an, daß sich auf der Diskette 
in A bereits eine Datei TEST.TST befin¬ 
det und daß mit PIP eine neue Version 
dieser Datei von B nach A kopiert wer¬ 
den soll. Dann geschieht folgendes: PIP 
richtet auf A eine Datei TEST.$$$ ein 
und kopiert dorthin die Version von B. 
Dann wird die alte Datei TEST.TST auf 
A gelöscht und die Datei TEST.$$$ 
in TEST.TST umbenannt. (Ein Pro¬ 
gramm, welches ein Backup erstellt, 
wird die alte Datei nicht löschen, sondern 
in TEST.BAK umbenennen.) 

Wenn nun auf A für die Datei TEST.$$$ 
kein Platz mehr ist, so streikt PIP. Sie 
können sich dann helfen, indem Sie vor¬ 
her die alte Version von TEST.TST auf A 
löschen. Statt des Programms DDT gibt 
es unter CP/M Plus das Programm 
SID.COM (Symbolic Instruction Deco¬ 
der). Sie wissen, daß man unter CP/M 
2.2 beim Arbeiten mit DDT unbedingt 
das residente SAVE benötigt, um das Er¬ 
gebnis eines Patches abzuspeichem. Un¬ 
ter CP/M Plus ist SAVE ein transientes 
Programm, bei dessen Handhabung man 
leicht Fehler machen kann. Glücklicher¬ 
weise ist aber SID ein Programm, mit 
dem wir nicht nur die Patches im RAM 
durchführen, sondern anschließend 
gleich auf der Diskette abspeichem kön¬ 
nen, so daß SAVE nicht benötigt wird. 
Zur Einübung wollen wir die gleichen 
Beispiele unter CP/M Plus exerzieren, 
die wir oben unter CP/M 2.2 ausgeführt 
haben (Listing laund lb). Wir müssen le¬ 
diglich den Steuercode für das Bild¬ 
schirmlöschen ändern. Unter CP/M Plus 
muß es heißen 1B 48 1B 45 (ESC H 


ESCE). An diesem Beispiel erkennen Sie 
auch den Grund, weshalb CP/M-Pro- 
gramme, die doch auf allen CP/M-Rech- 
nem laufen sollen, unter Umständen erst 
“installiert“ werden müssen. Die Steue¬ 
rungen von Bildschirm und Drucker sind 
doch zum Teil sehr unterschiedlich, so 
daß hier entsprechende Patches erforder¬ 
lich sind, die meist mit “Installationspro¬ 
grammen“ ausgeführt werden (zum Bei¬ 
spiel WORDSTAR, MULTIPLAN, 
dBASE, TURBO PASCAL usw.). Abbil¬ 
dung 9 zeigt das Protokoll der “SID-Sit- 
zung“. Nach dem Aufruf von SID läuft 
zunächst alles genauso ab wie bei DDT 
(in Abbildung 7), denn die Commands 
von SID entsprechen weitgehend denen 
von DDT. Lediglich der Abschluß ist 
jetzt anders. Wenn Sie durch Eingabe ei¬ 
nes Punktes den Modus für das S-Com- 
mand verlassen haben, dürfen Sie SID 
nicht beenden, sondern müssen zuerst 
das im RAM stehende Programm spei¬ 
chern. Das geschieht mit dem Command 
W. Es lautet: 

Wlaufw: dateiname.ty p,anfadr,endadr 

Wenn das Speichern auf dem angemelde¬ 
ten Laufwerk geschehen soll, so brau¬ 
chen Sie es nicht anzugeben. Wir geben 
also ein: W TEXTAUS.COM ,0100,011B, 
so wie sich die Adressen bei der Einga¬ 
be mit dem S-Command ergeben. Das 
Umrechnen in Päges können wir uns hier 
sparen, SID teilt uns mit, daß es etwas 
mehr abgespeichert hat, nämlich 1 record 
(von 0100 bis 017F) . Danach können Sie 
SID mit CTRL-C verlassen. Sie können 
auch — und jetzt gefahrlos, denn das Pro¬ 
gramm ist gespeichert — dieses mit 
G0100 von SID aus starten. Das Patching 
entsprechend dem Protokoll in Abbil¬ 
dung 10 wird Ihnen ohne weiteres ver¬ 
ständlich sein. 

Wir wollen uns jetzt noch davon überzeu¬ 
gen, daß CP/M Plus einen Disketten¬ 
wechsel ohne Murren akzeptiert. Wir 
verfahren ähnlich wie bei CP/M 2.2, be¬ 
nutzen aber jetzt das Programm SH) zum 
Speichern. Rufen Sie also zunächst SID 
auf, Sie wissen, daß Sie mit dem W 
Command-Daten aus dem RAM auf der 
Diskette speichern können. Jetzt merken 
Sie aber wieder — wie oben bei CP/M 
2.2 -, daß auf dieser Diskette kein Platz 
mehr ist, und legen “heimlich“ eine neue 
ein. Dann geben Sie ein W TEST.TST 
0100,03FF. Ergebnis: Die Daten werden 
anstandslos auf der neuen Diskette ge¬ 
speichert. Glauben Sie aber nicht, daß 
CP/M geschlafen hat. Es hat die neue 
Diskette sehr wohl erkannt und von sich 
aus neu “eingelogged“. Damit ist alles 
wieder in Ordnung. Das transiente Com¬ 
mand SET (Programm SET.COM) ha¬ 
ben wir schon erwähnt. Man kann damit 
verschiedene “Datei-Attribute“ setzen. 


Wenn Sie eine Datei als “Sys“ definieren 
wollen, so rufen Sie auf SET laufw:da- 
teiname.typ[SYS] . Wollen Sie das wie¬ 
der rückgängig machen, so geben Sie ein 
SET laufw:dateiname.typ[DIR] . Sie 
können auch eine Datei als “schreibge¬ 
schützt“ deklarieren — was vielleicht 
manchmal ganz nützlich ist. Sie geben 
dann ein SET laufwrdateiname. 
typ[RO]. 

Mit SET laufw:dateiname.typ[RW] 

machen Sie das wieder rückgängig. Er¬ 
wähnen wollen wir das Command SET- 
DEF. Wenn Sie ein transientes Programm 
— also eine .COM-Datei — zur Ausfüh¬ 
rung aufrufen, so sucht der CCP norma¬ 
lerweise danach nur auf der Diskette im 
angemeldeten Laufwerk. (Es sei denn, 
Sie haben durch Eingabe von “lauf- 
werk: “ vor dem Dateinamen ein anderes 
Laufwerk benannt, auf dem gesucht wer¬ 
den soll.) Mit SETDEF können Sie in ei¬ 
nem “Suchpfad“ alle Laufwerke ange¬ 
ben, in denen das System nach dem Pro¬ 
gramm suchen soll. Bei den zwei Lauf¬ 
werken des CPC ist das nicht besonders 
wichtig. Eher vielleicht beim Joyce, wo 
die RAMDISK M noch dazu kommt. 
Wenn Sie MS-DOS kennen, so werden 
Sie die Parallele zu PATH erkennen. 
Nützlich sind noch die transienten Com¬ 
mands SUBMIT und PROFILE . Mit 
SUBMIT können Sie eine “SUBMIT- 
Datei“ abarbeiten lassen. Eine solche 
Datei ist eine “Batchdatei“ (“Stapelda¬ 
tei“), die .SUB als Typbezeichnung ha¬ 
ben muß. Sie kann mit einem Texteditor 
erstellt werden und enthält eine Reihe von 
Commands, die Sie sonst dem CCP ein¬ 
geben könnten. Sie schreiben zum Bei¬ 
spiel mit Wordstar (im “N“-Modus!) den 
Text: 

DIR 

WS 

und speichern ihn als Datei ANFANG. 
SUB. Wenn Sie jetzt eingeben SUBMIT 
ANFANG , so wird erst das Directory 
ausgegeben und dann Wordstar gestartet; 
genauso, als wenn Sie die Commands 
von Hand eingegeben hätten. Daher der 
Name “Stapeldatei“ weil die “gestapel¬ 
ten“ Commands der Reihe nach abgear¬ 
beitet werden. Besonders interessant ist 
es, wenn die Commands in einer SUB- 
MIT-Datei mit dem Namen PROFI¬ 
LE.SUB stehen, weil diese Datei beim 
Start des Rechners automatisch abgear¬ 
beitet wird. Beim Booten sucht das Sy¬ 
stem im Directory nach einer Datei 
PROFILE.SUB. Ist sie vorhanden, so 
wird sie vom System mit SUBMIT 
PROFILE aufgerufen. Nützlich ist es, 
wenn in einer solchen PROFILE-Datei 
Commands stehen, mit denen eine ge¬ 
wünschte “Grundeinstellung“ des Rech¬ 
ners erfolgt. Beim CPC gibt es im we- 
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A> SID TEXTAUS.COM 
CP/M 3 SID - Version 3.0 
NEXT MSZE PC END 
0180 0180 0100 D2FF 
# D0100,017F 


0100: 

11 

03 

01 

0E 

09 

CD 

05 

00 

C3 

00 

00 

1B 

48 

1B 

45 

47 

0110: 

75 

74 

65 

6E 

20 

4D 

6F 

72 

67 

65 

6E 

24 

00 

00 

00 

00 

0120: 

00 

CO 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

CO 

00 

0130: 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

oc 

00 

00 

0140: 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

0150: 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

0160 ■ 

00 

00 

00 

00 

00 

00 

00 

00 

oc 

CO 

oc 

00 

00 

00 

00 

00 

0170: 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

ou 


47 .H.EG 


# S0115 

0115 4D 41 
0116 6F 62 
0117 72 65 

0118 67 6E 
0119 65 64 

OHA 6E 20 
011B 24 
01IC 00 . 

# W TEXTAUS.COM,0100,011C 
0001h record(s) written. 

# “C 
A> 


Abb.10: Protokoll 
des Patches von 
TEXTAUS.COM 
unter CP/M Plus 


sentlichen zwei Dateien, die gerätespe¬ 
zifische transiente Commands darstellen, 
nämlich SETKEYS.COM und LAN- 
GUAGE.COM . Beim CPC sind die 
“Tastencodes“ für die Bedürfnisse von 
BASIC ausgebildet. (Außerdem hat er 
eine “amerikanische Tastatur“ “QWER¬ 
TY“.) Für CP/M-Programme (zum Bei¬ 
spiel Textverarbeitung) ist es aber besser, 
wenn die Tasten entsprechend anders co¬ 
diert sind, zum Beispiel die Pfeiltasten 
mit den Cursor-Steuercodes, die ES- 
CAPE-Taste mit ASCII ESC (1B) usw. 
In der Datei KEYS.WP ist etwas derar¬ 
tiges programmiert , und wenn Sie SET¬ 
HEYS KEYS.WP aufrufen, so wird Ihre 
Tastatur für die Textverarbeitung “umco¬ 
diert“. Probieren Sie das einmal aus, und 
probieren Sie auch SETKEYS KEYS. 
CCP. In der Bedienungsanleitung finden 
Sie Hinweise, wie Sie sich eine KEYS- 
Datei nach Ihren Wünschen erstellen 
können. Weiter sind bei CP/M Plus die 
“Matrizen“, mit deren Hilfe die Darstel¬ 
lung der ASCII-Zeichen auf dem Bild¬ 
schirm erfolgt, im RAM gespeichert (Bei 
CP/M 2.2 befinden sie sich im ROM!). 
Das heißt, bei CP/M Plus können die 
Zeichen leicht geändert werden. Dazu 
dient die Datei LANGUAGE.COM. 
“Von Hause aus“ gilt der “amerikani¬ 
sche“ ASCII-Zeichensatz (mit eckigen 
und geschweiften Klammern). Mit dem 
Aufruf von LANGUAGE 2 erhalten Sie 
den “deutschen“ Zeichensatz. Jetzt wird 
bei der Betätigung der Taste “[“ der 
Buchstabe “Ä“ und bei zusätzlicher Be¬ 
tätigung von SHIFT (= Täste “[“) der 
Buchstabe “ä“ ausgegeben. (Durch Ein¬ 
gabe von LANGUAGE 0 erhalten Sie 
wieder den amerikanischen Zeichen¬ 
satz.) 

Wenn es Sie stört, daß bei den Umlauten 
die Kleinbuchstaben mit der SHIFT-Ta- 
ste erzeugt werden müssen, so können 
Sie das mit einer geeigneten KEYS-Da- 
tei ändern. 

Derartige Commands eignen sich nun be¬ 
sonders für eine Datei PROFILE.SUB. 
Sie könnte etwa folgendermaßen aus- 
sehen: 

SETKEYS KEYS.WP 
LANGUAGE 2 


CURBLK30 

WS 

Auf der Systemdiskette müssen außer 
dieser Datei PROFILE.SUB noch fol¬ 
gende Dateien vorhanden sein: 
SETKEYS.COM 
KEYS.WP 
LANGUAGE.COM 
CURBLK30.COM 
SUBMIT.COM 
WS.COM 

Beim Start des Rechners wird dann die 
Tastatur des Rechners für Wordstar ein¬ 
gerichtet, die Bildschirmdarstellung für 
den deutschen Zeichensatz, ein “blinken¬ 
der“ Cursor, wird erzeugt, und Wordstar 
wird gestartet - ohne daß Sie eine zu¬ 
sätzliche Taste betätigen müssen. Bei ei¬ 
nem Farbmonitor können Sie noch mit 
dem Programm PALETTE.COM 
Hintergrund- und Schriftfarbe nach Ihren 
Wünschen wählen. 

Einige weitere transiente Commands von 
CP/M Plus wollen wir noch kurz erwäh¬ 
nen: GET.COM ist ein Programm, mit 
dem man Eingaben für den CCP, die ja 
normalerweise “von Hand“ über die 
Tastatur kommen, aus einer Datei “ho¬ 
len“ kann. Auf diese Weise kann man 
zum Beispiel in einer SUBMIT-Datei be¬ 
liebige CCP-Eingaben unterbringen. 
PUT.COM leitet die Bildschirmausgabe 
in eine Datei um. Unter CP/M Plus ste¬ 
hen gleich drei Assembler (mit Hilfspro¬ 
grammen) zur Verfügung: ASM, MAC 
und RMAC, alle allerdings nur für 
den “8080 Code“. Das Programm 
DATE.COM dient zum Stellen und An¬ 
zeigen der “inneren“ Uhr des CPC (mit 
Datumsanzeige). Leider geht diese Uhr 
nur, wenn der Rechner eingeschaltet ist 
(keine eingebaute Batteriepufferung). 
Daher muß sie jedesmal neu gestellt 
werden. 

Damit soll unser Streifzug durch die re¬ 
sidenten und transienten CP/M-Com- 
mands beendet sein. Den Einstieg in die 
CP/M-Welt werden Sie mühelos schaf¬ 
fen, und mit der angegebenen Literatur 
können Sie sich sogar bald zu einem 
“CP/M-Freak“ entwickeln. 

(Hans-Georg Sanner/cd) 
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BASIC-Befehle. Ferner allgemeine Sy¬ 
stem-Information über CP/M und die 
CPC Hardware. 

Rodnay Zaks, “CP/M Handbuch“ 
Sybex, 2.Aufl. 1984 
Eine allgemeine Einführung in CP/M 
2 . 2 . 

Helmut Tischer, “Programmentwick¬ 
lung unter CP/M 2.2 auf dem CPC 
464/664“ 

Markt&Technik 1986 
Eine sehr tiefgehende Behandlung von 
CP/M 2.2. Für Systemprogrammierer 
bestens geeignet. 

Klaus Kämpf, “CP/M 2.2 Assembler- 
Listing“ 

Röckrath Microcomputer Aachen 1985 
Listings von CCP und BDOS mit vielen 
weiteren Hinweisen. Wichtig für interes¬ 
sierte Systemprogrammierer. 

Werner Schmuck, Manfred Schüler, 
Willi Wagemuth “Einsteigen in CP/M“ 
c’t 1985 Heft 7, 8. 9, 10 (CP/M 2.2) 
c’t 1985 Heft 11, 12 1986 Heft 1, 2 (CP/M 
Plus) 

Diese sehr ausführliche und weitgehen¬ 
de Aufsatzreihe kann weitgehend die 
Original-Dokumentation von DIGITAL 
RESEARCH ersetzen. 

Diese Dokumentation — in englischer 
Sprache — ist teilweise als Nachdruck 
bei Markt&Technik erschienen. 

M. Anton, “Im Herzen von CP/M Plus 
- XBIOS zerlegt“ 

JOYCE Sonderheft 1/1987 
Dieser Aufsatz bringt sehr viel Wissens¬ 
wertes über CP/M Plus - auch für den 
CPC 6128. 

Martin Kotulla, 

“Programmieren unter CP/M Plus“ 
“CP/M Plus ist einfach mehr“. 

“Am Pulsschlag der CPU“ 

Sonderheft 10 (5. Schneider Sonderheft) 
HAPPY COMPUTER. 

Es werden die BDOS- und BIOS-Funk- 
tionen beschrieben. Dem Verfasser sind 
leider einige kleine Fehler unterlaufen. 
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BASIC-Compiler für CPC 464/664/6128 

Der Turbo-Antrieb für Ihre BASIC-Programme! 


Haben auch Sie sich schon immer gewünscht, daß Ihre selbstgeschriebenen BASIC- 
Programme schneller laufen? Mit dem BASIC-Compiler von DMV ist das nun kein Problem 
mehr, denn 


- der Compiler hat den vollen Sprachumfang des 
BASIC 1.1 (CPC664/6128). 

- das compilierte Programm ist auf jedem CPC lauffähig. 

- unterstützt Integer- und Fließkomma-Arithmetik. 

- ist kompatibel zu Vortex-Peripherie inkl. Nutzen der 
RAM-Disk. 

- Programme, die spezielle BASIC-1.1.-Befehle beinhalten, sind 
auch auf dem CPC464 lauffähig (außer FILL und MASK). 

- der Compiler arbeitet unter CP/M, das heißt, alle CP/M- 
Dienstprogramme können genutzt werden. 

- bis 17 kByte Quellcode können problemlos compiliert werden. 

- einzelne Programmteile können ebenfalls compiliert werden 
(z.B. wichtig bei Nachiadeprogrammen). 


- die ausführliche deutsche Bedienungsanleitung macht Sie auf 
einfache Weise mit dem Umgang des Compilers vertraut. 

- viele Beispielprogramme veranschaulichen die Arbeitsweise des 
Compilers und zeigen die Geschwindigkeitsvorteile auf. 

- das Programm ist in 100% Maschinencode geschrieben. 

Der BASIC-Compiler ist nur auf 3“-Diskette erhältlich. 

Best .-Nr.: 209 Preis 49,- DM* 

Bitte benutzen Sie die Bestellkarte. 


Möchten Sie gerne in Assembler programmieren ? 

CPC Assembler Software und Trainingsbuch 


Das Buch: 



Preis 39, 
Preis 49, 


führt den Anfänger schrittweise in die Programmierung des Z80 ein. Dabei werden 
Vorkenntnisse nicht vorausgesetzt. Nach der Lektüre des Buches sind Sie mit dem 
Befehlssatz des Prozessors wie auch mit den Adressierungsarten vertraut. Anhand 
einer Fülle von Programmbeispielen, die speziell auf den CPC 464 zugeschnitten 
sind, lernen Sie, nützliche Routinen in Maschinensprache zu entwickeln, die auf 
Ihrem Rechner sofort lauffähig sind. Dazu erfahren Sie, wie Sie die im ROM des 
Schneider CPC vorhandenen Hilfsroutinen sinnvoll für die Lösung eigener Probleme 
einsetzen können. Darüber hinaus lernen Sie einige spezielle Programme zur 
Erweiterung des Betriebssystems mit leistungsfähigen grafischen Befehlen kennen, 
die Sie in BASIC verwenden können, z.B. TRIANGEL, BOX und CIRCLE. Ein umfang¬ 
reicher Anhang mit Erläuterungen des Befehlssatzes, des Assemblers sowie einer 
Vielzahl kommentierter Einsprungadressen des Betriebssystem-ROMs rundet das 
Buch ab. 


Buch mit Diskette Best.-Nr.: 447 


Die Software: 


besteht aus einem menügesteuerten Z80 - Assembler. 

Mit seiner Hilfe können Sie nicht nur die im Buch erläuterten Beispielprogramme editie¬ 
ren und in Maschinensprache übersetzen, sondern auch selbst entworfene Programme 
entwickeln und testen. Für Ihre Arbeit stehen Ihnen Funktionen zur Verfügung wie 

Einfügen - Löschen - Ändern von Programmzeilen - Abspeichern und Laden 
von Programmen auf Datenträgern wie Kassette und Diskette - Ausgabe von 
Listings auf Bildschirm und Drucker - Zahlenkonvertierung von der Menü-Ebene 
aus - Durchführung von Zwischenrechnungen mit binären, hexadezimalen und 
dezimalen Zahlen. Weiterhin erhalten Sie ein Trainingsprogramm, mit dessen Hilfe Sie 
den Umgang mit verschiedenen Zahlenformaten vertiefen können, und Programme zur 
Demonstration der grafischen Erweiterungen des Betriebssystems. 

Buch mit Kassette Best.-Nr.: 446 


★ Unabhängig von der Anzahl der bestellten Programme berechnen wir für das Inland 4,- DM bzw. für das Ausland 6,- DM Porto und Verpackung. 

Bitte benutzen Sie den Bestellcoupon auf Seite 7. 

DMV-Verlag ■ Postfach 250 ■ 3440 Eschwege /UsAI ¥ 
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DMV braucht Platz für neue Ideen - 
darum müssen wir unsere Lager räumen. 
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Allen JOYCE-Besitzern machen wir deshalb ein einmaliges Angebot: 

JOYCE Sonderhefte 2, 3 und 4 sind ab sofort im Kombi-Pack zum Preis von 29,- DM beim Verlag zu beziehen. 
- Sie sparen mehr als 50% gegenüber dem Einzelpreis! 

JOYCE Sonderhefte sind Sonderpublikationen der PC AMSTRAD International und bieten jeweils auf 120 Seiten 
ausschließlich erstmalig veröffentlichte Beiträge, Tips und Tricks zu PCW 8256, 8512 und 9512. 


Aus dem Inhalt 
JOYCE Sonderheft 2: 

Adreßverwaltung 
Archivprogramm 
(Video-oder Literaturverwaltung) 
PASCAL-Compiler in BASIC 
Suburbia (Spiel ähnlich Monopoly (R)) 
Turbo-PASCAL-Grafikroutinen ohne GSX 
Komfortable Balkengrafik 
JOYCE-Zweitlaufwerk selbst anschließen 
3-D-Plotter 

Etikettendruckprogramm 
Ordnung auf der Diskette mit LocoScript 
Funktionstasten selbst belegen 
Spaltensatz unter LocoScript 
dBase-Handbuch selbst ausdrucken 
LOGO- Funktionenzeichner 


Aus dem Inhalt 
JOYCE Sonderheft 3: 

Vokabeltrainer 

RAM-Monitor-Speicherinhalte 
verändern 
Memory-Spiel 
Mini-DTP-Programm 
Drucker-Spooler unter CP/M 
Disketten-Kopierprogramm bis 
43 Spuren 

Reset ohne Datenverlust 
Grafik auf dem JOYCE-Drucker 
Tastaturbelegung unter CP/M und 
LocoScript ändern 
Reset ohne Datenverlust 
Super-Werkzeugkiste dBase 
Grafikutilities für LOGO 


Aus dem Inhalt: 

JOYCE Sonderheft 4: 

Strickmustergenerator 
Wordstar-Verbesserungen 
Bundesligasimulator 
Super Reaktionsspiel 
FILEMANAGER, Pulldown-Menüs 
Stichwortverzeichnis, 
Astrologieprogramm 
Diskettenmonitor 
Hauptstädte raten in LOGO 
Statuszeile für dBase und Basic 
Hardcopyroutine für 24-Nadier 
LOGO macht Schachteln 
d Base-Literaturverwaltung 
Universelles Werkzeug zur Veränderung 
von dBase-Dateien 


Und dazu die Databoxen aller Sonderhefte im Paket! 


5 Disketten Joyce-Power für traumhafte 79,- DM* 


* Unabhängig von der Anzahl der bestellten Artikel berechnen wir für das Inland 4,- DM bzw. für das Ausland 6,- DM 
Porto und Verpackung. 


Bitte benutzen Sie den Bestellcoupon auf Seite 7. 

DMV-Verlag ■ Postfach 250 ■ 3440 Eschwege 
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